[Emacs-diffs] emacs-24 r117178: * lisp/mouse.el (mouse-posn-property): Ignore posn-point for mode-line

[Stefan Monnier]

------------------------------------------------------------
revno: 117178
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=17633
committer: Stefan Monnier <address@hidden>
branch nick: emacs-24
timestamp: Sat 2014-05-31 08:32:36 -0400
message:
  * lisp/mouse.el (mouse-posn-property): Ignore posn-point for mode-line
  clicks.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/mouse.el                  mouse.el-20091113204419-o5vbwnq5f7feedwu-123

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-05-31 01:01:19 +0000
+++ b/lisp/ChangeLog    2014-05-31 12:32:36 +0000
@@ -1,5 +1,8 @@
 2014-05-31  Stefan Monnier  <address@hidden>
 
+       * mouse.el (mouse-posn-property): Ignore posn-point for mode-line
+       clicks (bug#17633).
+
        * leim/quail/latin-pre.el ("latin-2-prefix"): Use ",," rather than ", "
        for the single comma, since ", " is *very* common in normal French text
        (bug#17643).

=== modified file 'lisp/mouse.el'
--- a/lisp/mouse.el     2014-05-18 22:53:27 +0000
+++ b/lisp/mouse.el     2014-05-31 12:32:36 +0000
@@ -658,7 +658,10 @@
            (str (posn-string pos)))
        (or (and str
                 (get-text-property (cdr str) property (car str)))
-           (and pt
+            ;; 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)))
                 (get-char-property pt property w))))
     (get-char-property pos property)))