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) |