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

Ensure 'existing-filename' has 'bounds-of-thing-at-point'

Browse source 
* lisp/thingatpt.el (existing-filename): Define
'bounds-of-thing-at-point' for 'existing-filename'.  (Bug#64664)
This commit is contained in:
Philip Kaludercic 2023-07-16 13:56:23 +02:00
parent 8ef92096c3
commit b6207ee4dc
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/thingatpt.el
View file

@ -360,6 +360,10 @@ E.g.:
(and (file-exists-p filename)
filename)))
(put 'existing-filename 'bounds-of-thing-at-point
(lambda ()
(and (thing-at-point 'existing-filename)
(bounds-of-thing-at-point 'filename))))
(put 'existing-filename 'thing-at-point 'thing-at-point-file-at-point)
;; Faces