Mercurial > emacs
changeset 30814:1b2e8bd62f76
(glasses) <defgroup>: Add :version.
(glasses-custom-set): Use set-default, not set.
(minor-mode-alist): Propertize the lighter.
(glasses-mode): Provide optional arg.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Tue, 15 Aug 2000 14:04:13 +0000 |
| parents | 4b721363a79b |
| children | c024b3883927 |
| files | lisp/progmodes/glasses.el |
| diffstat | 1 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/glasses.el Tue Aug 15 13:55:45 2000 +0000 +++ b/lisp/progmodes/glasses.el Tue Aug 15 14:04:13 2000 +0000 @@ -62,6 +62,7 @@ (defgroup glasses nil "Make unreadable code likeThis(one) readable." + :version "21.1" :group 'tools) @@ -128,7 +129,7 @@ (defun glasses-custom-set (symbol value) "Set value of the variable SYMBOL to VALUE and update overlay categories. Used in :set parameter of some customized glasses variables." - (set symbol value) + (set-default symbol value) (glasses-set-overlay-properties)) @@ -249,11 +250,16 @@ "Mode variable for `glasses-mode'.") (make-variable-buffer-local 'glasses-mode) -(add-to-list 'minor-mode-alist '(glasses-mode " o^o")) +(add-to-list 'minor-mode-alist + (list 'glasses-mode + (propertize " o^o" + 'local-map (make-mode-line-mouse2-map + 'glasses-mode) + 'help-echo "mouse-2: turn off Glasses mode"))) ;;;###autoload -(defun glasses-mode (arg) +(defun glasses-mode (&optional arg) "Minor mode for making identifiers likeThis readable. When this mode is active, it tries to add virtual separators (like underscores) at places they belong to."