From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 14 Oct 2020 05:01:46 +0000 (+0200)
Subject: Rename dired-filename-at-point to avoid confusion
X-Git-Tag: emacs-28.0.90~5642
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5474603c4c83a0ae2c4a156dd61fd3ea103049ee;p=emacs.git

Rename dired-filename-at-point to avoid confusion

* lisp/dired-x.el (dired-x-guess-filename-at-point): Rename (bug#43961).
(dired-filename-at-point): Made into an obsolete alias, since the name
can be confused with the unrelated dired-file-name-at-point function.
---

diff --git a/lisp/dired-x.el b/lisp/dired-x.el
index b09ef900c1d..55077e71882 100644
--- a/lisp/dired-x.el
+++ b/lisp/dired-x.el
@@ -1483,7 +1483,9 @@ a prefix argument, when it offers the filename near point as a default."
 ;;; Internal functions.
 
 ;; Fixme: This should probably use `thing-at-point'.  -- fx
-(defun dired-filename-at-point ()
+(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."
   (save-excursion
@@ -1517,7 +1519,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-filename-at-point)))
+      (let ((guess (dired-x-guess-file-name-at-point)))
         (read-file-name prompt
                         (file-name-directory guess)
                         guess