procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/mouse.el (context-menu-region): Use save-excursion for syntax-ppss.

Browse source
This commit is contained in:
Juri Linkov 2021-09-23 19:52:49 +03:00
parent 5d96fad278
commit 13d930dedd
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/mouse.el
View file

@ -483,7 +483,8 @@ Some context functions add menu items below the separator."
,(lambda (e) (interactive "e") (mark-thing-at-mouse e 'defun))
:help "Mark the defun at click for a subsequent cut/copy"))
(define-key-after submenu [mark-list-or-string]
`(menu-item ,(if (nth 8 (syntax-ppss (posn-point (event-end click))))
`(menu-item ,(if (nth 8 (save-excursion
(syntax-ppss (posn-point (event-end click)))))
"String" "List")
,(lambda (e) (interactive "e") (mark-thing-at-mouse e 'list-or-string))
:help "Mark list or string at click for a subsequent cut/copy"))