From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 28 Aug 2000 16:07:10 +0000 (+0000)
Subject: (list-abbrevs): Add optional parameter LOCAL.
X-Git-Tag: emacs-pretest-21.0.90~1926
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c88a9944d644e42d779d7b205fc78db6be2de5d2;p=emacs.git

(list-abbrevs): Add optional parameter LOCAL.
(abbrev-table-name): New function.
(prepare-abbrev-list-buffer): Add optional parameter LOCAL.
If non-nil list local abbrev, only.
---

diff --git a/lisp/abbrev.el b/lisp/abbrev.el
index 7e60541aaf0..5cb4cc96838 100644
--- a/lisp/abbrev.el
+++ b/lisp/abbrev.el
@@ -86,23 +86,37 @@ Mark is set after the inserted text."
 	(setq tables (cdr tables))))
     (point))))
 
-(defun list-abbrevs ()
-  "Display a list of all defined abbrevs."
-  (interactive)
-  (display-buffer (prepare-abbrev-list-buffer)))
-
-(defun prepare-abbrev-list-buffer ()
+(defun list-abbrevs (&optional local)
+  "Display a list of defined abbrevs.
+If LOCAL is non-nil, interactively when invoked with a
+prefix arg, display only local, i.e. mode-specific, abbrevs.
+Otherwise display all abbrevs."
+  (interactive "P")
+  (display-buffer (prepare-abbrev-list-buffer local)))
+
+(defun abbrev-table-name (table)
+  "Value is the name of abbrev table TABLE."
+  (let ((tables abbrev-table-name-list)
+	found)
+    (while (and (not found) tables)
+      (when (eq (symbol-value (car tables)) table)
+	(setq found (car tables)))
+      (setq tables (cdr tables)))
+    found))
+    
+(defun prepare-abbrev-list-buffer (&optional local)
   (save-excursion
     (set-buffer (get-buffer-create "*Abbrevs*"))
     (erase-buffer)
-    (let ((tables abbrev-table-name-list))
-      (while tables
-	(insert-abbrev-table-description (car tables) t)
-	(setq tables (cdr tables))))
+    (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))
-  (get-buffer-create "*Abbrevs*"))
+    (edit-abbrevs-mode)
+    (current-buffer)))
 
 (defun edit-abbrevs-mode ()
   "Major mode for editing the list of abbrev definitions.