mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases 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
Show Stats 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)