From c17c99adbd30f7a40b264cb2e82c70fd29339687 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 15 Aug 2000 14:04:13 +0000 Subject: [PATCH] (glasses) : Add :version. (glasses-custom-set): Use set-default, not set. (minor-mode-alist): Propertize the lighter. (glasses-mode): Provide optional arg. --- lisp/progmodes/glasses.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/glasses.el b/lisp/progmodes/glasses.el index f59ce2b09e1..bc28ca68b96 100644 --- a/lisp/progmodes/glasses.el +++ b/lisp/progmodes/glasses.el @@ -62,6 +62,7 @@ (defgroup glasses nil "Make unreadable code likeThis(one) readable." + :version "21.1" :group 'tools) @@ -128,7 +129,7 @@ separators too." (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 @@ recognized according to the current value of the variable `glasses-separator'." "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." -- 2.39.2