Skip to content

GitLab

Commit 8c9c98ec authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(ange-ftp-call-chmod): Return proper value.

parent 7cbcc1db
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 2 deletions
lisp/ange-ftp.el
View file @ 8c9c98ec
...@@ -4093,7 +4093,8 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") ...@@ -4093,7 +4093,8 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
(error (insert (format "%s\n" (nth 1 oops))))) (error (insert (format "%s\n" (nth 1 oops)))))
(apply 'call-process program nil (not discard) nil arguments))) (apply 'call-process program nil (not discard) nil arguments)))
;;; This currently does not work; it is never called. ;; Handle an attempt to run chmod on a remote file
;; by using the ftp chmod command.
(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))
...@@ -4118,7 +4119,8 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") ...@@ -4118,7 +4119,8 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
file file
(cdr result))))))))) (cdr result)))))))))
(cdr args))) (cdr args)))
(setq ange-ftp-ls-cache-file nil)) ;stop confusing dired (setq ange-ftp-ls-cache-file nil) ;Stop confusing Dired.
0)
;;; This is turned off because it has nothing properly to do ;;; This is turned off because it has nothing properly to do
;;; with dired. It could be reasonable to adapt this to ;;; with dired. It could be reasonable to adapt this to
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment