mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(command-line): Read standard abbrev

Browse source 
file (abbrev-file-name), if it exists.
This commit is contained in:
Richard M. Stallman 2001-11-11 01:53:31 +00:00
parent b59c5368b0
commit ac3186fd96
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/startup.el
View file

@ -949,6 +949,11 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
(mapconcat 'prin1-to-string (cdr error) ", "))
(pop-to-buffer "*Messages*")
(setq init-file-had-error t)))))
;; If the user has a file of abbrevs, read it.
(if (file-exists-p abbrev-file-name)
(quietly-read-abbrev-file abbrev-file-name))
;; If we can tell that the init file altered debug-on-error,
;; arrange to preserve the value that it set up.
(or (eq debug-on-error debug-on-error-initial)