From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 23 Mar 1996 15:46:14 +0000 (+0000)
Subject: (ange-ftp-call-chmod): Return proper value.
X-Git-Tag: emacs-19.34~992
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8c9c98ec53641b7397c3a3449d5ab37282956e56;p=emacs.git

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

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