From: Stefan Kangas <stefan@marxist.se>
Date: Sun, 24 Oct 2021 06:34:52 +0000 (+0200)
Subject: Make dired-x-guess-file-name-at-point obsolete
X-Git-Tag: emacs-29.0.90~3671^2~454
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aea4af5119fdf130f1df7190478a23c6777f92a2;p=emacs.git

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.
---

diff --git a/lisp/dired-x.el b/lisp/dired-x.el
index 7f889a2bfd6..fc626aa76b5 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