(ange-ftp-ls): Run ange-ftp-before-parse-ls-hook.

(ange-ftp-before-parse-ls-hook): Add defvar.

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 434eaf046cbcd79b346e3da553e63e36be319227..8bfe34db464a3de92af165e449115a7c0537e30d 100644 (file)
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -2298,6 +2298,9 @@ which can parse the output from a DIR listing for a host of type TYPE.")
 ;; in the wildcard case.  Then we make a relative directory listing
 ;; of FILE within the directory specified by `default-directory'.
 
+(defvar ange-ftp-before-parse-ls-hook nil
+  "Normal hook run before parsing the text of an ftp directory listing.")
+
 (defun ange-ftp-ls (file lsargs parse &optional no-error wildcard)
   "Return the output of an `DIR' or `ls' command done over ftp.
 FILE is the full name of the remote file, LSARGS is any args to pass to the
@@ -2355,6 +2358,7 @@ away in the internal cache."
                                          (format
                                           "list data file %s not readable"
                                           temp))))
+                     (run-hooks 'ange-ftp-before-parse-ls-hook)
                      (if parse
                          (ange-ftp-set-files
                           ange-ftp-this-file