mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(ange-ftp-fix-name-for-vms): Reverse args of

Browse source 
subst-char-in-string.
(ange-ftp-after-parse-ls-hook): New variable.
(ange-ftp-ls): Run that hook.
From Peter Milliken <Peter.Milliken@GTECH.COM>.
This commit is contained in:
Gerd Moellmann 2001-05-18 13:21:11 +00:00
parent 0595722b7c
commit a724ed38f5
2 changed files with 16 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,5 +1,11 @@
2001-05-18 Gerd Moellmann <gerd@gnu.org>
* net/ange-ftp.el (ange-ftp-fix-name-for-vms): Reverse args of
subst-char-in-string.
(ange-ftp-after-parse-ls-hook): New variable.
(ange-ftp-ls): Run that hook.
From Peter Milliken <Peter.Milliken@GTECH.COM>.
* tmm.el (tmm-get-keymap): Fix handling of :filter.
(tmm-add-prompt): Bind buffer-read-only to nil when inserting
text into *Completions*.

12
lisp/net/ange-ftp.el
View file

@ -2431,6 +2431,9 @@ which can parse the output from a DIR listing for a host of type TYPE.")
(defvar ange-ftp-before-parse-ls-hook nil
"Normal hook run before parsing the text of an ftp directory listing.")
(defvar ange-ftp-after-parse-ls-hook nil
"Normal hook run after 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
@ -2502,6 +2505,11 @@ away in the internal cache."
ange-ftp-parse-list-func-alist)))
(funcall parse-func)
(ange-ftp-parse-dired-listing lsargs))))
;; Place this hook here to convert the contents of the
;; buffer to a ls compatible format if the host system
;; that is being queried is other than Unix i.e. VMS
;; returns an ls format that really sucks.
(run-hooks 'ange-ftp-after-parse-ls-hook)
(setq ange-ftp-ls-cache-file key
ange-ftp-ls-cache-lsargs lsargs
; For dumb hosts-types this is
@ -4767,7 +4775,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
(substring name (match-beginning 3) (match-end 3))))
(and dir
(setq dir (subst-char-in-string
?. ?/ (substring dir 1 -1) t)))
?/ ?. (substring dir 1 -1) t)))
(concat (and drive
(concat "/" drive "/"))
dir (and dir "/")
@ -4780,7 +4788,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
name (substring name (match-end 0))))
(setq tmp (file-name-directory name))
(if tmp
(setq dir (subst-char-in-string ?. ?/ (substring tmp 0 -1) t)))
(setq dir (subst-char-in-string ?/ ?. (substring tmp 0 -1) t)))
(setq file (file-name-nondirectory name))
(concat drive
(and dir (concat "[" (if drive nil ".") dir "]"))