[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 13d930d: * lisp/mouse.el (context-menu-region): Use save-excursio
From: |
Juri Linkov |
Subject: |
master 13d930d: * lisp/mouse.el (context-menu-region): Use save-excursion for syntax-ppss. |
Date: |
Thu, 23 Sep 2021 12:53:14 -0400 (EDT) |
branch: master
commit 13d930deddd2e0529a0fb0f2fb93dd621d6d35be
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>
* lisp/mouse.el (context-menu-region): Use save-excursion for syntax-ppss.
---
lisp/mouse.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/mouse.el b/lisp/mouse.el
index 382c101..8ad3f76 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -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"))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 13d930d: * lisp/mouse.el (context-menu-region): Use save-excursion for syntax-ppss.,
Juri Linkov <=