diff --git a/lisp/help.el b/lisp/help.el index 92b87cf7999..a95bbaa4ae2 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -725,7 +725,8 @@ in the selected window." ;; is selected from the context menu that should describe KEY ;; at the position of mouse click that opened the context menu. ;; When no mouse was involved, don't use `posn-set-point'. - (defn (if buffer + (defn (if (or buffer + (not (consp (event-end event)))) (key-binding key t) (save-excursion (posn-set-point (event-end event)) (key-binding key t)))))