Mercurial > emacs
changeset 33961:f7744f7fd432
(prepare-abbrev-list-buffer): Get the value of
local-abbrev-table before changing buffers because it might
have a buffer-local binding.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 28 Nov 2000 13:57:29 +0000 |
| parents | 1f92a2d65681 |
| children | 5bf18e3f605c |
| files | lisp/abbrev.el |
| diffstat | 1 files changed, 11 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/abbrev.el Tue Nov 28 13:47:03 2000 +0000 +++ b/lisp/abbrev.el Tue Nov 28 13:57:29 2000 +0000 @@ -106,17 +106,17 @@ (defun prepare-abbrev-list-buffer (&optional local) (save-excursion - (set-buffer (get-buffer-create "*Abbrevs*")) - (erase-buffer) - (if local - (insert-abbrev-table-description (abbrev-table-name - local-abbrev-table) t) - (dolist (table abbrev-table-name-list) - (insert-abbrev-table-description table t))) - (goto-char (point-min)) - (set-buffer-modified-p nil) - (edit-abbrevs-mode) - (current-buffer))) + (let ((table local-abbrev-table)) + (set-buffer (get-buffer-create "*Abbrevs*")) + (erase-buffer) + (if local + (insert-abbrev-table-description (abbrev-table-name table) t) + (dolist (table abbrev-table-name-list) + (insert-abbrev-table-description table t))) + (goto-char (point-min)) + (set-buffer-modified-p nil) + (edit-abbrevs-mode) + (current-buffer)))) (defun edit-abbrevs-mode () "Major mode for editing the list of abbrev definitions.