(command-line): Read standard abbrev

file (abbrev-file-name), if it exists.

diff --git a/lisp/startup.el b/lisp/startup.el
index 4355d21ee51a3fe12c5071aa3a4a22ffc41721ea..c2bfe10396e28c7a3af5942223472fc52c5e97a3 100644 (file)
--- 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)