# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1253258083 0
# Node ID 9005ea5eb958c8f53073e1f6d5d6fe3236990ac0
# Parent  45b5d5aae7036507aa085d7ed95d321f3124f2c8
(define-derived-mode): Fix paren typo in definition of abbrev table.

diff -r 45b5d5aae703 -r 9005ea5eb958 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Sep 18 07:07:33 2009 +0000
+++ b/lisp/ChangeLog	Fri Sep 18 07:14:43 2009 +0000
@@ -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 -r 45b5d5aae703 -r 9005ea5eb958 lisp/emacs-lisp/derived.el
--- a/lisp/emacs-lisp/derived.el	Fri Sep 18 07:07:33 2009 +0000
+++ b/lisp/emacs-lisp/derived.el	Fri Sep 18 07:14:43 2009 +0000
@@ -217,10 +217,10 @@
 	    `(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))