Make lisp-mode-variables function less backward-incompatible

A small number of third-party packages rely on its arguments.  They
shouldn't be seriously affected.

* doc/lispref/modes.texi (Example Major Modes): Make example
closer to reality.

* lisp/emacs-lisp/lisp-mode.el (lisp-mode-variables): Ignore any
number of arguments.

diff --git a/doc/lispref/modes.texi b/doc/lispref/modes.texi
index fc68ee1b3227585d1d86dc492ec4c70ade89e2cf..df7458c3fbc264782cd61fc83aaac7d7c41b3cf3 100644 (file)
--- a/doc/lispref/modes.texi
+++ b/doc/lispref/modes.texi
@@ -1356,9 +1356,9 @@ each calls the following function to set various variables:
 
 @smallexample
 @group
-(defun lisp-mode-variables (&optional syntax keywords-case-insensitive elisp)
-  (when syntax
-    (set-syntax-table lisp-mode-syntax-table))
+(defun lisp-mode-variables ()
+  "Common initialization routine for lisp modes."
+  (setq-local paragraph-ignore-fill-prefix t)
   @dots{}
 @end group
 @end smallexample
@@ -1414,7 +1414,7 @@ Finally, here is the major mode command for Lisp mode:
 
 @smallexample
 @group
-(define-derived-mode lisp-mode prog-mode "Lisp"
+(define-derived-mode lisp-mode lisp-data-mode "Lisp"
   "Major mode for editing Lisp code for Lisps other than GNU Emacs Lisp.
 Commands:
 Delete converts tabs to spaces as it moves back.
@@ -1425,7 +1425,7 @@ Note that `run-lisp' may be used either to start an inferior Lisp job
 or to switch back to an existing one."
 @end group
 @group
-  (lisp-mode-variables nil t)
+  (lisp-mode-variables)
   (setq-local find-tag-default-function 'lisp-find-tag-default)
   (setq-local comment-start-skip
               "\\(\\(^\\|[^\\\n]\\)\\(\\\\\\\\\\)*\\)\\(;+\\|#|\\) *")

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 8f7e6c0431b7bd9f087619311bfa306a869cc8cb..18f35b69b34ddb7c315e0109805b99237a6a7f66 100644 (file)
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -611,8 +611,9 @@ Value for `adaptive-fill-function'."
   ;; a single docstring.  Let's fix it here.
   (if (looking-at "\\s-+\"[^\n\"]+\"\\s-*$") ""))
 
-(defun lisp-mode-variables ()
-  "Common initialization routine for lisp modes."
+(defun lisp-mode-variables (&rest ignored)
+  "Common initialization routine for lisp modes.
+Any number of parameters is accepted and ignored."
   (setq-local paragraph-ignore-fill-prefix t)
   (setq-local fill-paragraph-function 'lisp-fill-paragraph)
   (setq-local adaptive-fill-function #'lisp-adaptive-fill)