From ac3186fd96de9332bbeb4c7bf1f7ac66de26752a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 11 Nov 2001 01:53:31 +0000 Subject: [PATCH] (command-line): Read standard abbrev file (abbrev-file-name), if it exists. --- lisp/startup.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/startup.el b/lisp/startup.el index 4355d21ee51..c2bfe10396e 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -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) -- 2.39.5