procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Juri Linkov 2021-09-27 18:41:34 +03:00
parent 79b5d66bd6
commit 28f8ffa58e
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/mouse.el
View file

@ -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"