Mercurial > emacs

changeset 14868:cca4562fbafd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ange-ftp-call-chmod): Return proper value.
author Richard M. Stallman <rms@gnu.org>
date Sat, 23 Mar 1996 15:46:14 +0000
parents 4166cc2986ab
children a9ba8d3ffd87
files lisp/ange-ftp.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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