From f09d4cf21bf087e05717ca3982d60e1529718578 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 2 Mar 1998 22:21:46 +0000 Subject: [PATCH] (ange-ftp-call-chmod): Don't try to chmod file `--'. --- lisp/ange-ftp.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index ebbf28f94fc..31dc56dacfd 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -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) -- 2.39.2