(define-derived-mode): Properly ignore unknown args.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ab4b4495b489aa99977d314ad0cdeba485532b78..c56b9536f90a623afa6bd74c43a76b30b79c6f1b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,10 +1,20 @@
+2002-09-13  Stefan Monnier  <monnier@cs.yale.edu>
+
+       * derived.el (define-derived-mode): Properly ignore unknown args.
+
+       * emacs-lisp/easy-mmode.el (define-minor-mode): Add a :require arg.
+       Don't call the function during init if mode is on by default.
+
+       * simple.el: Provide `simple'.
+       (transient-mark-mode, line-number-mode, column-number-mode):
+       Pass an explicit `:require nil' argument.
+
 2002-09-13  Francesco Potorti`  <pot@gnu.org>
 
        * play/tetris.el (tetris-blank-options, tetris-cell-options):
        Remove various redundant `(t nil)'.
 
-       * play/snake.el (snake-border-options): Use color on tty if
-       available.
+       * play/snake.el (snake-border-options): Use color on tty if available.
 
        * play/tetris.el (tetris-border-options): Likewise.
 

diff --git a/lisp/derived.el b/lisp/derived.el
index d11a58a19d5ebc66b92b235cf88223d6a1fe5aa4..0cb2fd2d57f7a70fb435a7a6e6ab1c6da35544dc 100644 (file)
--- a/lisp/derived.el
+++ b/lisp/derived.el
@@ -178,8 +178,8 @@ been generated automatically, with a reference to the keymap."
       (case (pop body)
        (:group (setq group (pop body)))
        (:abbrev-table (setq abbrev (pop body)) (setq declare-abbrev nil))
-       (:syntax-table (setq syntax (pop body)) (setq declare-syntax nil))))
-
+       (:syntax-table (setq syntax (pop body)) (setq declare-syntax nil))
+       (t (pop body))))
 
     (setq docstring (derived-mode-make-docstring
                     parent child docstring syntax abbrev))