[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/easy-mmode.el
From: |
Luc Teirlinck |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/easy-mmode.el |
Date: |
Wed, 13 Jul 2005 20:56:13 -0400 |
Index: emacs/lisp/emacs-lisp/easy-mmode.el
diff -c emacs/lisp/emacs-lisp/easy-mmode.el:1.67
emacs/lisp/emacs-lisp/easy-mmode.el:1.68
*** emacs/lisp/emacs-lisp/easy-mmode.el:1.67 Mon Jul 4 17:33:35 2005
--- emacs/lisp/emacs-lisp/easy-mmode.el Thu Jul 14 00:56:13 2005
***************
*** 142,147 ****
--- 142,148 ----
(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,164 ****
--- 160,166 ----
(: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,172 ****
--- 169,178 ----
(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,202 ****
`(defcustom ,mode ,init-value
,(format base-doc-string pretty-name mode mode)
:set 'custom-set-minor-mode
! :initialize 'custom-initialize-default
,@group
:type 'boolean
,@(cond
--- 202,208 ----
`(defcustom ,mode ,init-value
,(format base-doc-string pretty-name mode mode)
:set 'custom-set-minor-mode
! ,@initialize
,@group
:type 'boolean
,@(cond