From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 28 Nov 2000 13:57:29 +0000 (+0000)
Subject: (prepare-abbrev-list-buffer): Get the value of
X-Git-Tag: emacs-pretest-21.0.92~8
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=25160ec0819268f0a011eaba04dba34b8aa6c7a0;p=emacs.git

(prepare-abbrev-list-buffer): Get the value of
local-abbrev-table before changing buffers because it might
have a buffer-local binding.
---

diff --git a/lisp/abbrev.el b/lisp/abbrev.el
index 5cb4cc96838..b2cf747fca0 100644
--- a/lisp/abbrev.el
+++ b/lisp/abbrev.el
@@ -106,17 +106,17 @@ Otherwise display all abbrevs."
     
 (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.