[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 28f8ffa: * lisp/mouse.el (context-menu-region): Check for nil for
From: |
Juri Linkov |
Subject: |
master 28f8ffa: * lisp/mouse.el (context-menu-region): Check for nil for char-after at eobp. |
Date: |
Mon, 27 Sep 2021 11:42:10 -0400 (EDT) |
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"
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 28f8ffa: * lisp/mouse.el (context-menu-region): Check for nil for char-after at eobp.,
Juri Linkov <=