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

2 files changed, 14 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ab4b4495b4..c56b9536f9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,10 +1,20 @@
+2002-09-13  Stefan Monnier  <[email protected]>
+
+	* 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`  <[email protected]>
 
 	* 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 d11a58a19d..0cb2fd2d57 100644
--- 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))