diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-03-23 15:46:14 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-03-23 15:46:14 +0000 |
commit | 7212dc72d8560ffd98090f157ead7d203c0d6b4f (patch) | |
tree | a90ef8a1373c867eab9ed27774df90aa823cdc53 /lisp | |
parent | 579cc65bd74f9215c585dd03905545201de0e179 (diff) | |
download | emacs-7212dc72d8560ffd98090f157ead7d203c0d6b4f.tar.gz |
(ange-ftp-call-chmod): Return proper value.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ange-ftp.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index f0d5ca80493..c230de0d581 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -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))))) (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) (if (< (length args) 2) (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.") file (cdr result))))))))) (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 ;;; with dired. It could be reasonable to adapt this to |