Mercurial > hg > xemacs-beta

diff lisp/efs/efs.el @ 199:169c0442b401 r20-3b26

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b26
author cvs
date Mon, 13 Aug 2007 10:00:33 +0200
parents 6608ceec7cf8
children
line wrap: on
line diff
--- a/lisp/efs/efs.el	Mon Aug 13 10:00:04 2007 +0200
+++ b/lisp/efs/efs.el	Mon Aug 13 10:00:33 2007 +0200
@@ -902,7 +902,7 @@
 ;;;    efs|Andy Norman and Sandy Rutherford
 ;;;    |ange@hplb.hpl.hp.com and sandy@ibm550.sissa.it
 ;;;    |transparent FTP Support for GNU Emacs
-;;;    |$Date: 1997/04/27 19:30:06 $|$efs release: 1.15 beta $|
+;;;    |$Date: 1997/10/03 00:11:00 $|$efs release: 1.15 beta $|
 
 ;;; Host and listing type notation:
 ;;;
@@ -8172,7 +8172,7 @@
 	      (if result
 		  (let ((exit-code
 			 (efs-shell-call-process
-			  (concat "chmod " mode " " (file-name-nondirectory file))
+			  (concat "chmod " omode " " (file-name-nondirectory file))
 			  (file-name-directory file))))
 		    (if (not (equal 0 exit-code))
 			(progn