From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 12 Jun 2000 05:20:23 +0000 (+0000)
Subject: (ange-ftp-vms-delete-file-entry)
X-Git-Tag: emacs-pretest-21.0.90~3377
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aeb18228252e3997edaa5f49373a1704dfaf3d21;p=emacs.git

(ange-ftp-vms-delete-file-entry)
(ange-ftp-vms-add-file-entry): Don't quote lambda.
---

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index fc39ae3eb51..1c114913585 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -4897,9 +4897,9 @@ Other orders of $ and _ seem to all work just fine.")
 		    ;; versions left. If not, then delete the
 		    ;; root entry.
 		    (mapatoms
-		     '(lambda (sym)
-			(and (string-match regexp (get sym 'key))
-			     (setq versions t)))
+		     (lambda (sym)
+		       (and (string-match regexp (get sym 'key))
+			    (setq versions t)))
 		     files)
 		    (or versions
 			(ange-ftp-del-hash-entry root files))))))))))
@@ -4929,15 +4929,15 @@ Other orders of $ and _ seem to all work just fine.")
 				      ";\\([0-9]+\\)$"))
 		      (version 0))
 		  (mapatoms
-		   '(lambda (sym)
-		      (let ((name (get sym 'key)))
-			(and (string-match regexp name)
-			     (setq version
-				   (max version
-					(string-to-int
-					 (substring name
-						    (match-beginning 1)
-						    (match-end 1))))))))
+		   (lambda (sym)
+		     (let ((name (get sym 'key)))
+		       (and (string-match regexp name)
+			    (setq version
+				  (max version
+				       (string-to-int
+					(substring name
+						   (match-beginning 1)
+						   (match-end 1))))))))
 		   files)
 		  (setq version (1+ version))
 		  (ange-ftp-put-hash-entry