From 12a117459853e500e3978ef34a19af72a674d648 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 13 Sep 2002 16:22:04 +0000 Subject: [PATCH] (define-derived-mode): Properly ignore unknown args. --- lisp/ChangeLog | 14 ++++++++++++-- lisp/derived.el | 4 ++-- 2 files changed, 14 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ab4b4495b48..c56b9536f90 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,10 +1,20 @@ +2002-09-13 Stefan Monnier + + * 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` * 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 d11a58a19d5..0cb2fd2d57f 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)) -- 2.39.5