Mercurial > emacs
changeset 104156:226d6219da5a
* abbrev.el (insert-abbrev-table-description): Prettify output.
Suggested by Karl Chen.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Tue, 04 Aug 2009 20:06:03 +0000 |
| parents | 87373993f3bd |
| children | 97530ff78611 |
| files | lisp/ChangeLog lisp/abbrev.el |
| diffstat | 2 files changed, 10 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Aug 04 17:16:58 2009 +0000 +++ b/lisp/ChangeLog Tue Aug 04 20:06:03 2009 +0000 @@ -1,3 +1,8 @@ +2009-08-04 Chong Yidong <cyd@stupidchicken.com> + + * abbrev.el (insert-abbrev-table-description): Prettify output. + Suggested by Karl Chen. + 2009-08-04 Dmitry Dzhus <dima@sphinx.net.ru> * progmodes/gdb-mi.el (gdb-frame-number): Initialize with nil.
--- a/lisp/abbrev.el Tue Aug 04 17:16:58 2009 +0000 +++ b/lisp/abbrev.el Tue Aug 04 20:06:03 2009 +0000 @@ -887,9 +887,11 @@ (insert "\n\n")) (insert "(define-abbrev-table '") (prin1 name) - (insert " '(") - (mapc 'abbrev--write symbols) - (insert " ))\n\n")) + (if (null symbols) + (insert " '())\n\n") + (insert "\n '(\n") + (mapc 'abbrev--write symbols) + (insert " ))\n\n"))) nil))) (put 'define-abbrev-table 'doc-string-elt 3)