320 |
(setq name (concat (downcase (substring name 0 (match-beginning 0))) |
(setq name (concat (downcase (substring name 0 (match-beginning 0))) |
321 |
"-" |
"-" |
322 |
(substring name (match-end 0))))) |
(substring name (match-end 0))))) |
323 |
(if (eq system-type 'ms-dos) |
(if (memq system-type '(ms-dos windows-nt cygwin)) |
324 |
(message "Dumping under the name emacs") |
(message "Dumping under the name emacs") |
325 |
(message "Dumping under names emacs and %s" name))) |
(message "Dumping under names emacs and %s" name))) |
326 |
(condition-case () |
(condition-case () |