(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*"