diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mouse.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 9f1417f420d..d80b241af52 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" |