176 |
"Read abbrev definitions from file written with `write-abbrev-file'. |
"Read abbrev definitions from file written with `write-abbrev-file'. |
177 |
Optional argument FILE is the name of the file to read; |
Optional argument FILE is the name of the file to read; |
178 |
it defaults to the value of `abbrev-file-name'. |
it defaults to the value of `abbrev-file-name'. |
179 |
Optional second argument QUIETLY non-nil means don't print anything." |
Optional second argument QUIETLY non-nil means don't display a message." |
180 |
(interactive "fRead abbrev file: ") |
(interactive "fRead abbrev file: ") |
181 |
(load (if (and file (> (length file) 0)) file abbrev-file-name) |
(load (if (and file (> (length file) 0)) file abbrev-file-name) |
182 |
nil quietly) |
nil quietly) |
183 |
(setq save-abbrevs t abbrevs-changed nil)) |
(setq abbrevs-changed nil)) |
184 |
|
|
185 |
(defun quietly-read-abbrev-file (&optional file) |
(defun quietly-read-abbrev-file (&optional file) |
186 |
"Read abbrev definitions from file written with write-abbrev-file. |
"Read abbrev definitions from file written with write-abbrev-file. |
187 |
Optional argument FILE is the name of the file to read; |
Optional argument FILE is the name of the file to read; |
188 |
it defaults to the value of `abbrev-file-name'. |
it defaults to the value of `abbrev-file-name'. |
189 |
Does not print anything." |
Does not display any message." |
190 |
;(interactive "fRead abbrev file: ") |
;(interactive "fRead abbrev file: ") |
191 |
(read-abbrev-file file t)) |
(read-abbrev-file file t)) |
192 |
|
|