master 28f8ffa: * lisp/mouse.el (context-menu-region): Check for nil for char-after at eobp.

[Juri Linkov]

branch: master
commit 28f8ffa58ee6c3af5e486dd5cb28e7dbf680232f
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    * lisp/mouse.el (context-menu-region): Check for nil for char-after at eobp.
---
 lisp/mouse.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 9f1417f..d80b241 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -486,8 +486,9 @@ Some context functions add menu items below the separator."
       `(menu-item "List"
                   ,(lambda (e) (interactive "e") (mark-thing-at-mouse e 'list))
                   :help "Mark the list at click for a subsequent cut/copy"))
-    (when (let ((pos (posn-point (event-end click))))
-            (or (eq (char-syntax (char-after pos)) ?\")
+    (when (let* ((pos (posn-point (event-end click)))
+                 (char (when pos (char-after pos))))
+            (or (and char (eq (char-syntax char) ?\"))
                 (nth 3 (save-excursion (syntax-ppss pos)))))
       (define-key-after submenu [mark-string]
         `(menu-item "String"