diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2011-03-16 03:13:31 +0100 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2011-03-16 03:13:31 +0100 |
| commit | 8a05b6681ee826c186f533900208b2226d3549a6 (patch) | |
| tree | 54367eb0aef65a38325e434ec2149e5413d9b4ab /lisp/startup.el | |
| parent | 5ba5fb816df11ef82326f16c8d9da88169bde721 (diff) | |
| download | emacs-8a05b6681ee826c186f533900208b2226d3549a6.tar.gz | |
Add warning for obsolete _emacs init file.
* lisp/startup.el (command-line): Warn the user that _emacs is deprecated.
* etc/NEWS: Document warning about _emacs.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 30 |
1 files changed, 17 insertions, 13 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 2bdb6fef505..65b1a013c21 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1006,19 +1006,23 @@ opening the first frame (e.g. open a connection to an X server).") (if init-file-user (let ((user-init-file-1 (cond - ((eq system-type 'ms-dos) - (concat "~" init-file-user "/_emacs")) - ((eq system-type 'windows-nt) - ;; Prefer .emacs on Windows. - (if (directory-files "~" nil "^\\.emacs\\(\\.elc?\\)?$") - "~/.emacs" - ;; Also support _emacs for compatibility. - (if (directory-files "~" nil "^_emacs\\(\\.elc?\\)?$") - "~/_emacs" - ;; But default to .emacs if _emacs does not exist. - "~/.emacs"))) - (t - (concat "~" init-file-user "/.emacs"))))) + ((eq system-type 'ms-dos) + (concat "~" init-file-user "/_emacs")) + ((not (eq system-type 'windows-nt)) + (concat "~" init-file-user "/.emacs")) + ;; Else deal with the Windows situation + ((directory-files "~" nil "^\\.emacs\\(\\.elc?\\)?$") + ;; Prefer .emacs on Windows. + "~/.emacs") + ((directory-files "~" nil "^_emacs\\(\\.elc?\\)?$") + ;; Also support _emacs for compatibility, but warn about it. + (display-warning + 'initialization + "`_emacs' init file is deprecated, please use `.emacs'" + :warning) + "~/_emacs") + (t ;; But default to .emacs if _emacs does not exist. + "~/.emacs")))) ;; This tells `load' to store the file name found ;; into user-init-file. (setq user-init-file t) |