diff lisp/emacs-lisp/easy-mmode.el @ 90201:fbb2bea03df9

Revision: [e-mail]--gnu-2005/emacs--unicode--0--patch-69 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 474-484) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 88-91) - Merge from emacs--cvs-trunk--0 - Update FSF's address in GPL notices - Update from CVS

--- a/lisp/emacs-lisp/easy-mmode.el	Thu Jul 07 12:43:14 2005 +0000
+++ b/lisp/emacs-lisp/easy-mmode.el	Thu Jul 14 08:02:00 2005 +0000
@@ -142,6 +142,7 @@
   (let* ((mode-name (symbol-name mode))
 	 (pretty-name (easy-mmode-pretty-mode-name mode lighter))
 	 (globalp nil)
+	 (initialize nil)
 	 (group nil)
 	 (extra-args nil)
 	 (extra-keywords nil)
@@ -159,6 +160,7 @@
 	(:lighter (setq lighter (pop body)))
 	(:global (setq globalp (pop body)))
 	(:extra-args (setq extra-args (pop body)))
+	(:initialize (setq initialize (list :initialize (pop body))))
 	(:group (setq group (nconc group (list :group (pop body)))))
 	(:require (setq require (pop body)))
 	(:keymap (setq keymap (pop body)))
@@ -167,6 +169,10 @@
     (setq keymap-sym (if (and keymap (symbolp keymap)) keymap
 		       (intern (concat mode-name "-map"))))
 
+    (unless initialize
+      (setq initialize
+	    '(:initialize 'custom-initialize-default)))
+
     (unless group
       ;; We might as well provide a best-guess default group.
       (setq group
@@ -196,7 +202,7 @@
 	    `(defcustom ,mode ,init-value
 	       ,(format base-doc-string pretty-name mode mode)
 	       :set 'custom-set-minor-mode
-	       :initialize 'custom-initialize-default
+	       ,@initialize
 	       ,@group
 	       :type 'boolean
 	       ,@(cond