From: Juri Linkov <juri@linkov.net>
Date: Thu, 23 Sep 2021 16:52:49 +0000 (+0300)
Subject: * lisp/mouse.el (context-menu-region): Use save-excursion for syntax-ppss.
X-Git-Tag: emacs-28.0.90~713
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=13d930deddd2e0529a0fb0f2fb93dd621d6d35be;p=emacs.git

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

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 382c101159b..8ad3f7664a2 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"))