Mercurial > emacs
diff lisp/mouse.el @ 111360:3c958232fff8
Backport Bug#6765 fix from trunk.
* mouse.el (mouse-fixup-help-message): Match "mouse-2" only at the
beginning of the string. Use `string-match-p'. (Bug#6765)
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Thu, 04 Nov 2010 15:27:46 -0400 |
parents | c145957f7705 |
children | df8c73722b0d |
line wrap: on
line diff
--- a/lisp/mouse.el Thu Nov 04 17:00:35 2010 +0100 +++ b/lisp/mouse.el Thu Nov 04 15:27:46 2010 -0400 @@ -886,8 +886,7 @@ (let (mp pos) (if (and mouse-1-click-follows-link (stringp msg) - (save-match-data - (string-match "^mouse-2" msg)) + (string-match-p "\\`mouse-2" msg) (setq mp (mouse-pixel-position)) (consp (setq pos (cdr mp))) (car pos) (>= (car pos) 0)