* lisp/mouse.el (mouse-posn-property): Ignore posn-point for mode-line

clicks.

Fixes: debbugs:17633
This commit is contained in:
Stefan Monnier 2014-05-31 08:32:36 -04:00
parent 5d335d4bd6
commit 3a73c34c47
2 changed files with 7 additions and 1 deletions

View file

@ -1,5 +1,8 @@
2014-05-31 Stefan Monnier <monnier@iro.umontreal.ca>
* 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).

View file

@ -658,7 +658,10 @@ its value is returned."
(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)))