emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] emacs/lisp ChangeLog abbrev.el


From: Chong Yidong
Subject: [Emacs-diffs] emacs/lisp ChangeLog abbrev.el
Date: Tue, 04 Aug 2009 20:06:07 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/08/04 20:06:06

Modified files:
        lisp           : ChangeLog abbrev.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15895&r2=1.15896
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/abbrev.el?cvsroot=emacs&r1=1.81&r2=1.82

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15895
retrieving revision 1.15896
diff -u -b -r1.15895 -r1.15896
--- ChangeLog   4 Aug 2009 17:03:54 -0000       1.15895
+++ ChangeLog   4 Aug 2009 20:06:03 -0000       1.15896
@@ -1,3 +1,8 @@
+2009-08-04  Chong Yidong  <address@hidden>
+
+       * abbrev.el (insert-abbrev-table-description): Prettify output.
+       Suggested by Karl Chen.
+
 2009-08-04  Dmitry Dzhus  <address@hidden>
 
        * progmodes/gdb-mi.el (gdb-frame-number): Initialize with nil.

Index: abbrev.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/abbrev.el,v
retrieving revision 1.81
retrieving revision 1.82
diff -u -b -r1.81 -r1.82
--- abbrev.el   13 May 2009 01:13:51 -0000      1.81
+++ abbrev.el   4 Aug 2009 20:06:06 -0000       1.82
@@ -887,9 +887,11 @@
            (insert "\n\n"))
        (insert "(define-abbrev-table '")
        (prin1 name)
-       (insert " '(")
+       (if (null symbols)
+           (insert " '())\n\n")
+         (insert "\n  '(\n")
        (mapc 'abbrev--write symbols)
-       (insert "    ))\n\n"))
+         (insert "   ))\n\n")))
       nil)))
 
 (put 'define-abbrev-table 'doc-string-elt 3)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]