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

* lisp/tmm.el (tmm-completion-delete-prompt): Add more checks (bug#63754).

Browse source 
In case when 'completions-header-format' is nil, the first 'mouse-face'
property is at the beginning of the buffer.  So first use 'get-text-property'
at point-min.
This commit is contained in:
Juri Linkov 2023-05-29 20:34:53 +03:00
parent afc1f32935
commit 500abc4dc3
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/tmm.el
View file

@ -329,7 +329,8 @@ Stores a list of all the shortcuts in the free variable `tmm-short-cuts'."
(with-current-buffer standard-output
(goto-char (point-min))
(let* (;; First candidate: first string with mouse-face
(menu-start-1 (next-single-char-property-change (point) 'mouse-face))
(menu-start-1 (or (and (get-text-property (point) 'mouse-face) (point))
(next-single-char-property-change (point) 'mouse-face)))
;; Second candidate: an inactive menu item with tmm-inactive face
(tps-result (save-excursion
(text-property-search-forward 'face 'tmm-inactive t)))