mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-30 11:09:23 +00:00
Code Issues Releases Activity

mouse.el: Match "mouse-2" at the beginning of the string. (Bug#6765)

Browse Source
This commit is contained in:
YAMAMOTO Mitsuharu 2010-08-01 18:48:15 +02:00 committed by Juanma Barranquero
parent aa1859f5cd
commit 26ee77a613
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2010-08-01 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
* mouse.el (mouse-fixup-help-message): Match "mouse-2" only at the
beginning of the string. Use `string-match-p'. (Bug#6765)
2010-08-01 Jan Djärv <jan.h.d@swipnet.se>
* cus-start.el (x-gtk-use-system-tooltips): New variable.

3
lisp/mouse.el
View File

@ -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)