From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 11 Nov 2001 01:49:05 +0000 (+0000)
Subject: (read-abbrev-file): Don't set save-abbrevs.
X-Git-Tag: ttn-vms-21-2-B4~18682
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d0b6d945bbfe373c8b7f2069019a3a7cd28a57af;p=emacs.git

(read-abbrev-file): Don't set save-abbrevs.
(quietly-read-abbrev-file): Doc fix.
---

diff --git a/lisp/abbrev.el b/lisp/abbrev.el
index b0934c82bec..6a17b747a73 100644
--- a/lisp/abbrev.el
+++ b/lisp/abbrev.el
@@ -176,17 +176,17 @@ the ones defined from the buffer now."
   "Read abbrev definitions from file written with `write-abbrev-file'.
 Optional argument FILE is the name of the file to read;
 it defaults to the value of `abbrev-file-name'.
-Optional second argument QUIETLY non-nil means don't print anything."
+Optional second argument QUIETLY non-nil means don't display a message."
   (interactive "fRead abbrev file: ")
   (load (if (and file (> (length file) 0)) file abbrev-file-name)
 	nil quietly)
-  (setq save-abbrevs t abbrevs-changed nil))
+  (setq abbrevs-changed nil))
 
 (defun quietly-read-abbrev-file (&optional file)
   "Read abbrev definitions from file written with write-abbrev-file.
 Optional argument FILE is the name of the file to read;
 it defaults to the value of `abbrev-file-name'.
-Does not print anything."
+Does not display any message."
   ;(interactive "fRead abbrev file: ")
   (read-abbrev-file file t))