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

Diff of /emacs/lisp/startup.el

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

revision 1.331 by ttn, Wed Sep 8 11:43:30 2004 UTC revision 1.332 by jasonr, Mon Sep 20 20:09:29 2004 UTC
# Line 810  or `CVS', and any subdirectory that cont Line 810  or `CVS', and any subdirectory that cont
810                              ((eq system-type 'ms-dos)                              ((eq system-type 'ms-dos)
811                               (concat "~" init-file-user "/_emacs"))                               (concat "~" init-file-user "/_emacs"))
812                              ((eq system-type 'windows-nt)                              ((eq system-type 'windows-nt)
813                                 ;; Prefer .emacs on Windows.
814                               (if (directory-files "~" nil "^\\.emacs\\(\\.elc?\\)?$")                               (if (directory-files "~" nil "^\\.emacs\\(\\.elc?\\)?$")
815                                   "~/.emacs"                                   "~/.emacs"
816                                 "~/_emacs"))                                 ;; Also support _emacs for compatibility.
817                                   (if (directory-files "~" nil "^_emacs\\(\\.elc?\\)?$")
818                                       "~/_emacs"
819                                     ;; But default to .emacs if _emacs does not exist.
820                                     "~/.emacs")))
821                              ((eq system-type 'vax-vms)                              ((eq system-type 'vax-vms)
822                               "sys$login:.emacs")                               "sys$login:.emacs")
823                              (t                              (t

Legend:
Removed from v.1.331  
changed lines
  Added in v.1.332

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