Commit 8d4708af authored by Brent Goodrick's avatar Brent Goodrick Committed by Glenn Morris

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.
parent 364df1cc
2011-01-03 Brent Goodrick <bgoodr@gmail.com>
* abbrev.el (prepare-abbrev-list-buffer): If listing local abbrev
table, get the value before switching to the output buffer. (Bug#7733)
2011-01-03 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/python.el (python-mode): Don't impose font-lock (bug#3628).
......
......@@ -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.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment