diff options
| author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | 2010-08-01 18:48:15 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2010-08-01 18:48:15 +0200 |
| commit | 26ee77a613915fcf7f73b2976a9b113332652d9a (patch) | |
| tree | d0bf23816e1dff0cc08893251b42ec0db187111c /lisp/mouse.el | |
| parent | aa1859f5cd51d760a1b30f01d1fc3928a8c10363 (diff) | |
| download | emacs-26ee77a613915fcf7f73b2976a9b113332652d9a.tar.gz | |
mouse.el: Match "mouse-2" at the beginning of the string. (Bug#6765)
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index b928f636bd5..27587677513 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -879,8 +879,7 @@ at the same position." (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) |