[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/abbrev.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/abbrev.el |
Date: |
Tue, 18 Apr 2006 21:16:13 +0000 |
Index: emacs/lisp/abbrev.el
diff -u emacs/lisp/abbrev.el:1.46 emacs/lisp/abbrev.el:1.47
--- emacs/lisp/abbrev.el:1.46 Thu Apr 6 15:36:24 2006
+++ emacs/lisp/abbrev.el Tue Apr 18 21:16:13 2006
@@ -160,8 +160,10 @@
(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 @@
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)