Mercurial > emacs
comparison lisp/emacs-lisp/easy-mmode.el @ 35562:6b8b7796f28b
(define-minor-mode): Docstring fix.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 25 Jan 2001 15:31:00 +0000 |
| parents | 96ff9f3650b5 |
| children | 3886350a8826 |
comparison
equal
deleted
inserted
replaced
| 35561:de0e4fecd023 | 35562:6b8b7796f28b |
|---|---|
| 142 `(progn | 142 `(progn |
| 143 ;; Define the variable to enable or disable the mode. | 143 ;; Define the variable to enable or disable the mode. |
| 144 ,(if (not globalp) | 144 ,(if (not globalp) |
| 145 `(progn | 145 `(progn |
| 146 (defvar ,mode ,init-value ,(format "Non-nil if %s is enabled. | 146 (defvar ,mode ,init-value ,(format "Non-nil if %s is enabled. |
| 147 Use the function `%s' to change this variable." pretty-name mode)) | 147 Use the command `%s' to change this variable." pretty-name mode)) |
| 148 (make-variable-buffer-local ',mode)) | 148 (make-variable-buffer-local ',mode)) |
| 149 | 149 |
| 150 (let ((curfile (or (and (boundp 'byte-compile-current-file) | 150 (let ((curfile (or (and (boundp 'byte-compile-current-file) |
| 151 byte-compile-current-file) | 151 byte-compile-current-file) |
| 152 load-file-name))) | 152 load-file-name))) |
| 153 `(defcustom ,mode ,init-value | 153 `(defcustom ,mode ,init-value |
| 154 ,(format "Toggle %s on or off. | 154 ,(format "Non-nil if %s is enabled. |
| 155 See the command `%s' for a description of this minor-mode. | 155 See the command `%s' for a description of this minor-mode. |
| 156 Setting this variable directly does not take effect; | 156 Setting this variable directly does not take effect; |
| 157 use either \\[customize] or the function `%s'." | 157 use either \\[customize] or the function `%s'." |
| 158 pretty-name mode mode) | 158 pretty-name mode mode) |
| 159 :set (lambda (symbol value) (funcall symbol (or value 0))) | 159 :set (lambda (symbol value) (funcall symbol (or value 0))) |