diff options
| author | Richard M. Stallman | 2001-11-11 01:49:05 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2001-11-11 01:49:05 +0000 |
| commit | d0b6d945bbfe373c8b7f2069019a3a7cd28a57af (patch) | |
| tree | b88eff718fb45b3dca16a99144765850f078b111 | |
| parent | 2827a3c1bf2f17c4a0a4949973a1a19fd79a52b1 (diff) | |
| download | emacs-d0b6d945bbfe373c8b7f2069019a3a7cd28a57af.tar.gz emacs-d0b6d945bbfe373c8b7f2069019a3a7cd28a57af.zip | |
(read-abbrev-file): Don't set save-abbrevs.
(quietly-read-abbrev-file): Doc fix.
| -rw-r--r-- | lisp/abbrev.el | 6 |
1 files changed, 3 insertions, 3 deletions
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." | |||
| 176 | "Read abbrev definitions from file written with `write-abbrev-file'. | 176 | "Read abbrev definitions from file written with `write-abbrev-file'. |
| 177 | Optional argument FILE is the name of the file to read; | 177 | Optional argument FILE is the name of the file to read; |
| 178 | it defaults to the value of `abbrev-file-name'. | 178 | it defaults to the value of `abbrev-file-name'. |
| 179 | Optional second argument QUIETLY non-nil means don't print anything." | 179 | Optional second argument QUIETLY non-nil means don't display a message." |
| 180 | (interactive "fRead abbrev file: ") | 180 | (interactive "fRead abbrev file: ") |
| 181 | (load (if (and file (> (length file) 0)) file abbrev-file-name) | 181 | (load (if (and file (> (length file) 0)) file abbrev-file-name) |
| 182 | nil quietly) | 182 | nil quietly) |
| 183 | (setq save-abbrevs t abbrevs-changed nil)) | 183 | (setq abbrevs-changed nil)) |
| 184 | 184 | ||
| 185 | (defun quietly-read-abbrev-file (&optional file) | 185 | (defun quietly-read-abbrev-file (&optional file) |
| 186 | "Read abbrev definitions from file written with write-abbrev-file. | 186 | "Read abbrev definitions from file written with write-abbrev-file. |
| 187 | Optional argument FILE is the name of the file to read; | 187 | Optional argument FILE is the name of the file to read; |
| 188 | it defaults to the value of `abbrev-file-name'. | 188 | it defaults to the value of `abbrev-file-name'. |
| 189 | Does not print anything." | 189 | Does not display any message." |
| 190 | ;(interactive "fRead abbrev file: ") | 190 | ;(interactive "fRead abbrev file: ") |
| 191 | (read-abbrev-file file t)) | 191 | (read-abbrev-file file t)) |
| 192 | 192 | ||