Mercurial > emacs
comparison lisp/emacs-lisp/easy-mmode.el @ 22301:80bfa3fcb7fb
(easy-mmode-define-minor-mode): Add missing format arg.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 01 Jun 1998 02:59:23 +0000 |
| parents | 51fc8872fa32 |
| children | 26cd0ba03116 |
comparison
equal
deleted
inserted
replaced
| 22300:ce79e5edf080 | 22301:80bfa3fcb7fb |
|---|---|
| 131 in order to build a valid keymap. | 131 in order to build a valid keymap. |
| 132 | 132 |
| 133 \(defmacro easy-mmode-define-minor-mode | 133 \(defmacro easy-mmode-define-minor-mode |
| 134 (MODE DOC &optional INIT-VALUE LIGHTER KEYMAP)...\)" | 134 (MODE DOC &optional INIT-VALUE LIGHTER KEYMAP)...\)" |
| 135 (let* ((mode-name (symbol-name mode)) | 135 (let* ((mode-name (symbol-name mode)) |
| 136 (mode-doc (format "Non-nil if %s mode is enabled.")) | 136 (mode-doc (format "Non-nil if %s mode is enabled." mode-name)) |
| 137 (keymap-name (concat mode-name "-map")) | 137 (keymap-name (concat mode-name "-map")) |
| 138 (keymap-doc (format "Keymap for %s mode." mode-name))) | 138 (keymap-doc (format "Keymap for %s mode." mode-name))) |
| 139 `(progn | 139 `(progn |
| 140 ;; define the switch | 140 ;; define the switch |
| 141 (defvar ,mode ,init-value ,mode-doc) | 141 (defvar ,mode ,init-value ,mode-doc) |