procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Abbrev.el fix for bug #7733. (tiny change)

Browse source 
* lisp/abbrev.el (prepare-abbrev-list-buffer): If listing local abbrev
table, get the value before switching to the output buffer.
This commit is contained in:
Brent Goodrick 2011-01-02 22:13:35 -08:00 • committed by Glenn Morris
parent 364df1cc76
commit 8d4708aff0
2 changed files with 17 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
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).

23
lisp/abbrev.el
View file

@ -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.