mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +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) (defun ange-ftp-call-chmod (args)
(if (< (length args) 2) (if (< (length args) 2)
(error "ange-ftp-call-chmod: missing mode and/or filename: %s" args)) (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 (mapcar
(function (function
(lambda (file) (lambda (file)
@ -4297,7 +4300,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
(call-process (call-process
ange-ftp-remote-shell ange-ftp-remote-shell
nil t nil host "chmod" mode name))))))) nil t nil host "chmod" mode name)))))))
(cdr args))) rest))
(setq ange-ftp-ls-cache-file nil) ;Stop confusing Dired. (setq ange-ftp-ls-cache-file nil) ;Stop confusing Dired.
0) 0)