diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-10-14 07:01:46 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-10-14 07:01:46 +0200 |
commit | 5474603c4c83a0ae2c4a156dd61fd3ea103049ee (patch) | |
tree | ea3d5a54d909ca139f9698d703e6aeac99146a8c /lisp/dired-x.el | |
parent | 14e00d95c4edb724bd12357e37dd443d785c1170 (diff) | |
download | emacs-5474603c4c83a0ae2c4a156dd61fd3ea103049ee.tar.gz |
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.
Diffstat (limited to 'lisp/dired-x.el')
-rw-r--r-- | lisp/dired-x.el | 6 |
1 files changed, 4 insertions, 2 deletions
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 |