master b6207ee4dcb 2/2: Ensure 'existing-filename' has 'bounds-of-thing-at-point'

[Philip Kaludercic]

branch: master
commit b6207ee4dcb17106262d278fd11408edd4a55316
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Ensure 'existing-filename' has 'bounds-of-thing-at-point'
    
    * lisp/thingatpt.el (existing-filename): Define
    'bounds-of-thing-at-point' for 'existing-filename'.  (Bug#64664)
---
 lisp/thingatpt.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index 408713dda1a..72acb0b749f 100644
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -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