# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 841275404 0
# Node ID 58742d1b996a8c44dabbc01f95f2c22e49690ccc
# Parent  7efe73695144c3e588c6f98691768727d0695f8b
(ange-ftp-ls): Run ange-ftp-before-parse-ls-hook.
(ange-ftp-before-parse-ls-hook): Add defvar.

diff -r 7efe73695144 -r 58742d1b996a lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Wed Aug 28 23:28:39 1996 +0000
+++ b/lisp/ange-ftp.el	Wed Aug 28 23:36:44 1996 +0000
@@ -2298,6 +2298,9 @@
 ;; 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 @@
 					  (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