From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 11 Nov 2001 01:53:31 +0000 (+0000)
Subject: (command-line): Read standard abbrev
X-Git-Tag: ttn-vms-21-2-B4~18680
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ac3186fd96de9332bbeb4c7bf1f7ac66de26752a;p=emacs.git

(command-line): Read standard abbrev
file (abbrev-file-name), if it exists.
---

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)