master aea4af5: Make dired-x-guess-file-name-at-point obsolete

[Stefan Kangas]

branch: master
commit aea4af5119fdf130f1df7190478a23c6777f92a2
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Make dired-x-guess-file-name-at-point obsolete
    
    * lisp/dired-x.el (dired-x-guess-file-name-at-point): Make
    obsolete in favour of 'thing-at-point'.
    (dired-x-read-filename-at-point): Use 'thing-at-point' instead of
    above obsolete function.
---
 lisp/dired-x.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/dired-x.el b/lisp/dired-x.el
index 7f889a2..fc626aa 100644
--- a/lisp/dired-x.el
+++ b/lisp/dired-x.el
@@ -1478,12 +1478,12 @@ a prefix argument, when it offers the filename near 
point as a default."
 
 ;;; Internal functions
 
-;; Fixme: This should probably use `thing-at-point'.  -- fx
 (define-obsolete-function-alias 'dired-filename-at-point
   #'dired-x-guess-file-name-at-point "28.1")
 (defun dired-x-guess-file-name-at-point ()
   "Return the filename closest to point, expanded.
 Point should be in or after a filename."
+  (declare (obsolete "use (thing-at-point 'filename) instead." "29.1"))
   (save-excursion
     ;; First see if just past a filename.
     (or (eobp)                             ; why?
@@ -1515,7 +1515,7 @@ Point should be in or after a filename."
   "Return filename prompting with PROMPT with completion.
 If `current-prefix-arg' is non-nil, uses name at point as guess."
   (if current-prefix-arg
-      (let ((guess (dired-x-guess-file-name-at-point)))
+      (let ((guess (thing-at-point 'filename)))
         (read-file-name prompt
                         (file-name-directory guess)
                         guess