From 8d4708aff01e3ae30119bb7166cdf8517fbfa1a9 Mon Sep 17 00:00:00 2001 From: Brent Goodrick Date: Sun, 2 Jan 2011 22:13:35 -0800 Subject: Abbrev.el fix for bug #7733. (tiny change) * lisp/abbrev.el (prepare-abbrev-list-buffer): If listing local abbrev table, get the value before switching to the output buffer. --- lisp/abbrev.el | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) (limited to 'lisp/abbrev.el') diff --git a/lisp/abbrev.el b/lisp/abbrev.el index 779787e0d7d..4ce4d82c7c2 100644 --- a/lisp/abbrev.el +++ b/lisp/abbrev.el @@ -125,17 +125,18 @@ Otherwise display all abbrevs." found)) (defun prepare-abbrev-list-buffer (&optional local) - (with-current-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 ((local-table local-abbrev-table)) + (with-current-buffer (get-buffer-create "*Abbrevs*") + (erase-buffer) + (if local + (insert-abbrev-table-description + (abbrev-table-name local-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. -- cgit v1.2.1