Mercurial > emacs

diff lisp/abbrev.el @ 104156:226d6219da5a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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 bbd292613696
children c4fb8f245750
line wrap: on
line diff
--- 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)