Make ange-ftp-re-read-dir compat alias obsolete

* lisp/net/ange-ftp.el (ange-ftp-re-read-dir): Make alias obsolete.
Update callers.

diff --git a/lisp/gnus/nnheader.el b/lisp/gnus/nnheader.el
index 92df41ea8292a921ffaed5007be2dfc1e40486a7..634cc251b870f106f5037c44a62d2240a8a3b546 100644 (file)
--- a/lisp/gnus/nnheader.el
+++ b/lisp/gnus/nnheader.el
@@ -920,9 +920,9 @@ first.  Otherwise, find the newest one, though it may take a time."
 (defvar ange-ftp-path-format)
 (defun nnheader-re-read-dir (path)
   "Re-read directory PATH if PATH is on a remote system."
-  (when (and (fboundp 'ange-ftp-re-read-dir) (boundp 'ange-ftp-path-format))
+  (when (and (fboundp 'ange-ftp-reread-dir) (boundp 'ange-ftp-path-format))
     (when (string-match (car ange-ftp-path-format) path)
-      (ange-ftp-re-read-dir path))))
+      (ange-ftp-reread-dir path))))
 
 (defun nnheader-insert-file-contents (filename &optional visit beg end replace)
   "Like `insert-file-contents', q.v., but only reads in the file.

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 52b900be0cc6129ffe3b78509f3b0c9d39997f30..6ffa65a2dde5415c837526861f21d1e090ffb468 100644 (file)
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -4099,11 +4099,11 @@ E.g.,
 ;; Put these lines uncommented in your .emacs if you want C-r to refresh
 ;; ange-ftp's cache whilst doing filename completion.
 ;;
-;;(define-key minibuffer-local-completion-map "\C-r" 'ange-ftp-re-read-dir)
-;;(define-key minibuffer-local-must-match-map "\C-r" 'ange-ftp-re-read-dir)
+;;(define-key minibuffer-local-completion-map "\C-r" 'ange-ftp-reread-dir)
+;;(define-key minibuffer-local-must-match-map "\C-r" 'ange-ftp-reread-dir)
 
 ;;;###autoload
-(defalias 'ange-ftp-re-read-dir 'ange-ftp-reread-dir)
+(define-obsolete-function-alias 'ange-ftp-re-read-dir #'ange-ftp-reread-dir "29.1")
 
 ;;;###autoload
 (defun ange-ftp-reread-dir (&optional dir)