# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 960787223 0
# Node ID bcdfb27c5ea4d5eae298042aad3d95ed4c1094e7
# Parent  7968411f22fa2bd4e5483760e67c98ed92326752
(ange-ftp-vms-delete-file-entry)
(ange-ftp-vms-add-file-entry): Don't quote lambda.

diff -r 7968411f22fa -r bcdfb27c5ea4 lisp/net/ange-ftp.el
--- a/lisp/net/ange-ftp.el	Mon Jun 12 05:19:26 2000 +0000
+++ b/lisp/net/ange-ftp.el	Mon Jun 12 05:20:23 2000 +0000
@@ -4897,9 +4897,9 @@
 		    ;; 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 @@
 				      ";\\([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