comparison lisp/ange-ftp.el @ 21026:e01ca278ca3e

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

21025:c70f0ae7a1a3

;; Handle an attempt to run chmod on a remote file
;; by using the ftp chmod command.
(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)))
    (mapcar
     (function
      (lambda (file)
	(setq file (expand-file-name file))
	(let ((parsed (ange-ftp-ftp-name file)))

							abbr))))
		(or (car result)
		    (call-process 
		     ange-ftp-remote-shell
		     nil t nil host "chmod" mode name)))))))
     (cdr args)))
  (setq ange-ftp-ls-cache-file nil)	;Stop confusing Dired.
  0)

;;; This is turned off because it has nothing properly to do
;;; with dired.  It could be reasonable to adapt this to

21026:e01ca278ca3e

;; Handle an attempt to run chmod on a remote file
;; by using the ftp chmod command.
(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))
	(rest (cdr args)))
    (if (equal "--" (car rest))
	(setq rest (cdr rest)))
    (mapcar
     (function
      (lambda (file)
	(setq file (expand-file-name file))
	(let ((parsed (ange-ftp-ftp-name file)))

							abbr))))
		(or (car result)
		    (call-process 
		     ange-ftp-remote-shell
		     nil t nil host "chmod" mode name)))))))
     rest))
  (setq ange-ftp-ls-cache-file nil)	;Stop confusing Dired.
  0)

;;; This is turned off because it has nothing properly to do
;;; with dired.  It could be reasonable to adapt this to