diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2009-08-04 20:06:03 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2009-08-04 20:06:03 +0000 |
| commit | 42da39c1babfcc428f5e6712449c6506e8bc1a56 (patch) | |
| tree | 916d4b751dc80d605c78b72ec83b7d07ee9ab761 /lisp/abbrev.el | |
| parent | ad07fb8d75aabca34e04f594b6742aa44b2a664c (diff) | |
| download | emacs-42da39c1babfcc428f5e6712449c6506e8bc1a56.tar.gz | |
* abbrev.el (insert-abbrev-table-description): Prettify output.
Suggested by Karl Chen.
Diffstat (limited to 'lisp/abbrev.el')
| -rw-r--r-- | lisp/abbrev.el | 8 |
1 files changed, 5 insertions, 3 deletions
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) |