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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 78485a62ff0be544b0d0fe2ada8794f5c29e709d..2b661b588b01ee4be16fe63f436f0cf3725d15a2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2009-09-18  Glenn Morris  <rgm@gnu.org>
 
+       * 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

diff --git a/lisp/emacs-lisp/derived.el b/lisp/emacs-lisp/derived.el
index 347140e41f4bd0fe87bb3aadfca2254e57e7825d..ef30d7ca33f387e93bcd01614028e064fca6393a 100644 (file)
--- a/lisp/emacs-lisp/derived.el
+++ b/lisp/emacs-lisp/derived.el
@@ -217,10 +217,10 @@ No problems result if this variable is not bound.
            `(progn
               (put ',abbrev 'definition-name ',child)
               (defvar ,abbrev
-                (progn (define-abbrev-table ',abbrev nil) ,abbrev)
-                (unless (get ',abbrev 'variable-documentation)
-                  (put ',abbrev 'variable-documentation
-                       ,(format "Abbrev table for `%s'." child))))))
+                (progn (define-abbrev-table ',abbrev nil) ,abbrev))
+              (unless (get ',abbrev 'variable-documentation)
+                (put ',abbrev 'variable-documentation
+                     ,(format "Abbrev table for `%s'." child)))))
        (put ',child 'derived-mode-parent ',parent)
        ,(if group `(put ',child 'custom-mode-group ,group))