* lisp/mouse.el (mouse-posn-property): Ignore buffer position info when the

even happened elsewhere.
* src/keyboard.c (make_lispy_position): Don't include a buffer position in
mode/header-line mouse events.

1 files changed, 5 insertions, 4 deletions

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 10358c91636..ca9ea5dadca 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -684,10 +684,11 @@ its value is returned."
             (str (posn-string pos)))
         (or (and str
                  (get-text-property (cdr str) property (car str)))
-            ;; FIXME: mouse clicks on the mode-line come with a position in
-            ;; (nth 5).  Maybe we should change the C code instead so that
-            ;; mouse-clicks don't include a position there!
-            (and pt (not (memq (posn-area pos) '(mode-line header-line)))
+            ;; Mouse clicks in the fringe come with a position in
+            ;; (nth 5).  This is useful but is not exactly where we clicked, so
+            ;; don't look up that position's properties!
+            (and pt (not (memq (posn-area pos) '(left-fringe right-fringe
+                                                 left-margin right-margin)))
                  (get-char-property pt property w))))
     (get-char-property pos property)))