diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-05-31 08:32:36 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-05-31 08:32:36 -0400 |
| commit | 3a73c34c472b121f3fb4b5cdf2961a412e3eef2d (patch) | |
| tree | 1a75c9afc00bd9fd2849247c4e1ebbc0587a818c /lisp/mouse.el | |
| parent | 5d335d4bd6ffae58f465a09dcb23a88d7f490e86 (diff) | |
| download | emacs-3a73c34c472b121f3fb4b5cdf2961a412e3eef2d.tar.gz | |
* lisp/mouse.el (mouse-posn-property): Ignore posn-point for mode-line
clicks.
Fixes: debbugs:17633
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 19aae2b62ad..48d25b87713 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -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))) |