From c85465f9a0436638d485d19f8227d14580270c08 Mon Sep 17 00:00:00 2001
From: Lute Kamstra <lute@gnu.org>
Date: Sun, 3 Apr 2005 20:33:12 +0000
Subject: [PATCH] (define-generic-mode): Add argument to specify keywords for
 defcustom. (default-generic-mode): Specify :group.

---
 lisp/ChangeLog  |  6 +++++-
 lisp/generic.el | 28 +++++++++++++++++++++++-----
 2 files changed, 28 insertions(+), 6 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bb7a16d8052..fe2032adb52 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,10 @@
 
 2005-04-03  Lute Kamstra  <lute@gnu.org>
 
+	* generic.el (define-generic-mode): Add argument to specify
+	keywords for defcustom.
+	(default-generic-mode): Specify :group.
+	
 	* desktop.el (desktop-no-desktop-file-hook)
 	(desktop-after-read-hook): Fix docstring.
 
@@ -2697,7 +2701,7 @@
 	* simple.el (eval-expression-print-format): Avoid warning
 	about edebug-active.
 
-2005-01-15  "James R. Van Zandt"  <jrvz@comcast.net>  (Tiny change)
+2005-01-15  James R. Van Zandt  <jrvz@comcast.net>  (Tiny change)
 
 	* progmodes/sh-script.el: Code copied from make-mode.el
 	with small changes,
diff --git a/lisp/generic.el b/lisp/generic.el
index b18042442f8..e170d05e0f3 100644
--- a/lisp/generic.el
+++ b/lisp/generic.el
@@ -185,7 +185,8 @@ the regexp in `generic-find-file-regexp'.  If the value is nil,
 ;;;###autoload
 (defmacro define-generic-mode (mode comment-list keyword-list
 				    font-lock-list auto-mode-list
-				    function-list &optional docstring)
+				    function-list &optional docstring
+				    &rest custom-keyword-args)
   "Create a new generic mode MODE.
 
 MODE is the name of the command for the generic mode; it need not
@@ -216,6 +217,11 @@ as soon as `define-generic-mode' is called.
 FUNCTION-LIST is a list of functions to call to do some
 additional setup.
 
+The optional CUSTOM-KEYWORD-ARGS are pairs of keywords and
+values.  They will be passed to the generated `defcustom' form of
+the mode hook variable MODE-hook.  You can specify keyword
+arguments without specifying a docstring.
+
 See the file generic-x.el for some examples of `define-generic-mode'."
   (declare (debug (sexp def-form def-form def-form form def-form
 			&optional stringp))
@@ -224,11 +230,25 @@ See the file generic-x.el for some examples of `define-generic-mode'."
   ;; Backward compatibility.
   (when (eq (car-safe mode) 'quote)
     (setq mode (eval mode)))
+
+  (when (and docstring (not (stringp docstring)))
+    ;; DOCSTRING is not a string so we assume that it's actually the
+    ;; first keyword of CUSTOM-KEYWORD-ARGS.
+    (push docstring custom-keyword-args)
+    (setq docstring nil))
+
   (let* ((mode-name (symbol-name mode))
 	 (pretty-name (capitalize (replace-regexp-in-string
 				   "-mode\\'" "" mode-name)))
 	 (mode-hook (intern (concat mode-name "-hook"))))
 
+    (unless (plist-get custom-keyword-args :group)
+      (setq custom-keyword-args
+	    (plist-put custom-keyword-args 
+		       :group `(or (custom-current-group)
+				   ',(intern (replace-regexp-in-string
+					      "-mode\\'" "" mode-name))))))
+
     `(progn
        ;; Add a new entry.
        (add-to-list 'generic-mode-list ,mode-name)
@@ -240,9 +260,7 @@ See the file generic-x.el for some examples of `define-generic-mode'."
        (defcustom ,mode-hook nil
 	 ,(concat "Hook run when entering " pretty-name " mode.")
 	 :type 'hook
-	 :group (or (custom-current-group)
-		    ',(intern (replace-regexp-in-string
-			       "-mode\\'" "" mode-name))))
+	 ,@custom-keyword-args)
 
        (defun ,mode ()
 	 ,(or docstring
@@ -373,7 +391,7 @@ Some generic modes are defined in `generic-x.el'."
         imenu-case-fold-search t))
 
 ;; This generic mode is always defined
-(define-generic-mode default-generic-mode (list ?#) nil nil nil nil)
+(define-generic-mode default-generic-mode (list ?#) nil nil nil nil :group 'generic)
 
 ;; A more general solution would allow us to enter generic-mode for
 ;; *any* comment character, but would require us to synthesize a new
-- 
2.11.4.GIT