The Lambda Lab
/
projects
/
lurk.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Clicking the current context now toggles zoom.
[lurk.git]
/
lurk.el
diff --git
a/lurk.el
b/lurk.el
index
535b990
..
edfb66f
100644
(file)
--- a/
lurk.el
+++ b/
lurk.el
@@
-472,7
+472,10
@@
portion of the source component of the message, as LURK doesn't use this.")
(buffer-string)))
(defun lurk--context-button-action (button)
(buffer-string)))
(defun lurk--context-button-action (button)
- (lurk-set-current-context (button-get button 'context)))
+ (let ((context (button-get button 'context)))
+ (if (eq lurk-current-context context)
+ (lurk-toggle-zoom)
+ (lurk-set-current-context context))))
(defun lurk-display-string (context prefix &rest strings)
(with-current-buffer "*lurk*"
(defun lurk-display-string (context prefix &rest strings)
(with-current-buffer "*lurk*"