Mercurial > emacs

changeset 29587:bcdfb27c5ea4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ange-ftp-vms-delete-file-entry) (ange-ftp-vms-add-file-entry): Don't quote lambda.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 12 Jun 2000 05:20:23 +0000
parents 7968411f22fa
children 0cf06902af64
files lisp/net/ange-ftp.el
diffstat 1 files changed, 12 insertions(+), 12 deletions(-) [+]
line wrap: on
line diff
--- 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