From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 28 Aug 1996 23:36:44 +0000 (+0000)
Subject: (ange-ftp-ls): Run ange-ftp-before-parse-ls-hook.
X-Git-Tag: emacs-20.1~3986
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4ee83dcfc0c9b1c3d11aadd4e5e5276c1b8bdcfe;p=emacs.git

(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 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