# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1249416363 0
# Node ID 226d6219da5a24c9001b92415cf423770620fede
# Parent  87373993f3bd67dbb1b741a01c579c503b6dfb86
* abbrev.el (insert-abbrev-table-description): Prettify output.
Suggested by Karl Chen.

diff -r 87373993f3bd -r 226d6219da5a lisp/ChangeLog
--- 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.
diff -r 87373993f3bd -r 226d6219da5a lisp/abbrev.el
--- 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)