[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 5474603 3/3: Rename dired-filename-at-point to avoid confusion
From: |
Lars Ingebrigtsen |
Subject: |
master 5474603 3/3: Rename dired-filename-at-point to avoid confusion |
Date: |
Wed, 14 Oct 2020 01:01:56 -0400 (EDT) |
branch: master
commit 5474603c4c83a0ae2c4a156dd61fd3ea103049ee
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
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.
---
lisp/dired-x.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/lisp/dired-x.el b/lisp/dired-x.el
index b09ef90..55077e7 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