summaryrefslogtreecommitdiff
path: root/lisp/mouse.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/mouse.el')
-rw-r--r--lisp/mouse.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el
index dd3edbb13ae..0101cacefbf 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -2565,7 +2565,8 @@ choose a font."
(if (eq choice 'x-select-font)
(x-select-font)
(symbol-name choice)))
- t (interactive-p))))))))
+ t
+ (called-interactively-p 'interactive))))))))
;;; Bindings for mouse commands.