From: Chong Yidong <cyd@stupidchicken.com>
Date: Tue, 4 Aug 2009 20:06:03 +0000 (+0000)
Subject: * abbrev.el (insert-abbrev-table-description): Prettify output.
X-Git-Tag: emacs-pretest-23.1.90~1952
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=42da39c1babfcc428f5e6712449c6506e8bc1a56;p=emacs.git

* abbrev.el (insert-abbrev-table-description): Prettify output.
Suggested by Karl Chen.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7c1e9cb4df6..42b40e1442f 100644
--- 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 bfec59b7b6b..4a2c57ddd60 100644
--- 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)