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

(edit-abbrevs-redefine): Temporarily widen.

Browse source 
(read-abbrev-file): Provide default when reading filename.
This commit is contained in:
Richard M. Stallman 2006-04-18 21:16:13 +00:00
parent 8a1aafd01a
commit 4cabf12bbc
1 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/abbrev.el
View file

@ -160,8 +160,10 @@ or may be omitted (it is usually omitted)."
(defun edit-abbrevs-redefine ()
"Redefine abbrevs according to current buffer contents."
(interactive)
(define-abbrevs t)
(set-buffer-modified-p nil))
(save-restriction
(widen)
(define-abbrevs t)
(set-buffer-modified-p nil)))
(defun define-abbrevs (&optional arg)
"Define abbrevs according to current visible buffer contents.
@ -195,9 +197,12 @@ the ones defined from the buffer now."
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 display a message."
(interactive "fRead abbrev file: ")
(load (if (and file (> (length file) 0)) file abbrev-file-name)
nil quietly)
(interactive
(list
(read-file-name (format "Read abbrev file (default %s): "
abbrev-file-name)
nil abbrev-file-name t)))
(load file nil quietly)
(setq abbrevs-changed nil))
(defun quietly-read-abbrev-file (&optional file)