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

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/09/18 07:14:46

Modified files:
        lisp           : ChangeLog 
        lisp/emacs-lisp: derived.el 

Log message:
        (define-derived-mode): Fix paren typo in definition of abbrev table.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16197&r2=1.16198
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/derived.el?cvsroot=emacs&r1=1.24&r2=1.25

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16197
retrieving revision 1.16198
diff -u -b -r1.16197 -r1.16198
--- ChangeLog   18 Sep 2009 07:07:33 -0000      1.16197
+++ ChangeLog   18 Sep 2009 07:14:43 -0000      1.16198
@@ -1,5 +1,8 @@
 2009-09-18  Glenn Morris  <address@hidden>
 
+       * emacs-lisp/derived.el (define-derived-mode): Fix paren typo in
+       definition of abbrev table.
+
        * net/eudc-bob.el (eudc-bob-pipe-object-to-external-program):
        * net/eudc.el (eudc-expand-inline):
        * net/newst-backend.el (newsticker--cache-read-feed): Fix typos in

Index: emacs-lisp/derived.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/derived.el,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -b -r1.24 -r1.25
--- emacs-lisp/derived.el       10 Sep 2009 06:21:23 -0000      1.24
+++ emacs-lisp/derived.el       18 Sep 2009 07:14:46 -0000      1.25
@@ -217,10 +217,10 @@
            `(progn
               (put ',abbrev 'definition-name ',child)
               (defvar ,abbrev
-                (progn (define-abbrev-table ',abbrev nil) ,abbrev)
+                (progn (define-abbrev-table ',abbrev nil) ,abbrev))
                 (unless (get ',abbrev 'variable-documentation)
                   (put ',abbrev 'variable-documentation
-                       ,(format "Abbrev table for `%s'." child))))))
+                     ,(format "Abbrev table for `%s'." child)))))
        (put ',child 'derived-mode-parent ',parent)
        ,(if group `(put ',child 'custom-mode-group ,group))