Mercurial > emacs

changeset 15958:58742d1b996a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ange-ftp-ls): Run ange-ftp-before-parse-ls-hook. (ange-ftp-before-parse-ls-hook): Add defvar.
author Richard M. Stallman <rms@gnu.org>
date Wed, 28 Aug 1996 23:36:44 +0000
parents 7efe73695144
children 2f732db1918c
files lisp/ange-ftp.el
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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