mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(ange-ftp-call-chmod): Don't try to chmod file `--'.

Browse Source
This commit is contained in:
Richard M. Stallman 1998-03-02 22:21:46 +00:00
parent 96f6280939
commit f09d4cf21b
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ange-ftp.el
View File

@ -4278,7 +4278,10 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
(defun ange-ftp-call-chmod (args)
(if (< (length args) 2)
(error "ange-ftp-call-chmod: missing mode and/or filename: %s" args))
(let ((mode (car args)))
(let ((mode (car args))
(rest (cdr args)))
(if (equal "--" (car rest))
(setq rest (cdr rest)))
(mapcar
(function
(lambda (file)
@ -4297,7 +4300,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
(call-process
ange-ftp-remote-shell
nil t nil host "chmod" mode name)))))))
(cdr args)))
rest))
(setq ange-ftp-ls-cache-file nil) ;Stop confusing Dired.
0)