/[emacs]/emacs/lisp/loadup.el
ViewVC logotype

Diff of /emacs/lisp/loadup.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.138 by eliz, Fri May 6 11:25:26 2005 UTC revision 1.139 by eliz, Sun Jun 12 12:47:26 2005 UTC
# Line 320  Line 320 
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 ()

Legend:
Removed from v.1.138  
changed lines
  Added in v.1.139

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26