* abbrev.el (insert-abbrev-table-description): Prettify output.

Suggested by Karl Chen.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7c1e9cb4df6b455fde8198c9fa4615bb664269dc..42b40e1442f84e2d41b04ae8286a82e4fadb5275 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.

diff --git a/lisp/abbrev.el b/lisp/abbrev.el
index bfec59b7b6b91536ba0c39448d06e14f627a6c11..4a2c57ddd60f49e1cf70192d5bb8d3f4da6263fa 100644 (file)
--- a/lisp/abbrev.el
+++ b/lisp/abbrev.el
@@ -887,9 +887,11 @@ Abbrevs marked as \"system abbrevs\" are omitted."
            (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)