emacs-diffs
[Top][All Lists]
Advanced

[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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]