mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(read-abbrev-file): Use abbrev-file-name if optional

Browse source 
file is nil.
This commit is contained in:
Reiner Steib 2006-04-18 22:04:27 +00:00
parent def2755256
commit ec7793c3a6
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/abbrev.el
View file

@ -202,7 +202,7 @@ Optional second argument QUIETLY non-nil means don't display a message."
(read-file-name (format "Read abbrev file (default %s): "
abbrev-file-name)
nil abbrev-file-name t)))
(load file nil quietly)
(load (or file abbrev-file-name) nil quietly)
(setq abbrevs-changed nil))
(defun quietly-read-abbrev-file (&optional file)