Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
(ange-ftp-before-parse-ls-hook): Add defvar.
This commit is contained in:
Richard M. Stallman 1996-08-28 23:36:44 +00:00
parent 9c5c5f39dc
commit 4ee83dcfc0
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ange-ftp.el
View file

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