diff lisp/startup.el @ 40906:fe298eabbb27

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

--- a/lisp/startup.el	Sun Nov 11 01:52:15 2001 +0000
+++ b/lisp/startup.el	Sun Nov 11 01:53:31 2001 +0000
@@ -949,6 +949,11 @@
 			(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)