# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 827595974 0
# Node ID cca4562fbafdfec38cd32dc6285d1026f8d9a35a
# Parent  4166cc2986abe9070fc0cbcb9ff5cddf22385636
(ange-ftp-call-chmod): Return proper value.

diff -r 4166cc2986ab -r cca4562fbafd lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Sat Mar 23 14:39:14 1996 +0000
+++ b/lisp/ange-ftp.el	Sat Mar 23 15:46:14 1996 +0000
@@ -4093,7 +4093,8 @@
 	(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 @@
 					    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