- (if (eq system-type 'vax-vms)
- (progn
- (message "Dumping data as file temacs.dump")
- (dump-emacs "temacs.dump" "temacs")
- (kill-emacs))
- (let ((name (concat "emacs-" emacs-version)))
- (while (string-match "[^-+_.a-zA-Z0-9]+" name)
- (setq name (concat (downcase (substring name 0 (match-beginning 0)))
- "-"
- (substring name (match-end 0)))))
- (if (memq system-type '(ms-dos windows-nt cygwin))
- (message "Dumping under the name emacs")
- (message "Dumping under names emacs and %s" name)))
+ (progn
+ (if (memq system-type '(ms-dos windows-nt cygwin))
+ (message "Dumping under the name emacs")
+ (message "Dumping under the name emacs"))