From 4ee83dcfc0c9b1c3d11aadd4e5e5276c1b8bdcfe Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 28 Aug 1996 23:36:44 +0000 Subject: [PATCH] (ange-ftp-ls): Run ange-ftp-before-parse-ls-hook. (ange-ftp-before-parse-ls-hook): Add defvar. --- lisp/ange-ftp.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 434eaf046cb..8bfe34db464 100644 --- 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 -- 2.39.2