Mercurial > emacs

changeset 13637:0b081d93ee6c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ediff-intersect-directories): Quote symbols starting with `:'.
author Richard M. Stallman <rms@gnu.org>
date Fri, 24 Nov 1995 22:24:33 +0000
parents a120308bfe29
children eae7f6d657be
files lisp/ediff-mult.el
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ediff-mult.el	Fri Nov 24 22:20:07 1995 +0000
+++ b/lisp/ediff-mult.el	Fri Nov 24 22:24:33 1995 +0000
@@ -314,7 +314,7 @@
     (setq lis1 (delete "."  lis1)
 	  lis1 (delete ".." lis1))
 
-    (setq common (intersection lis1 lis2 :test comparison-func))
+    (setq common (intersection lis1 lis2 ':test comparison-func))
     ;; get rid of files that are directories in dir1 but not dir2
     (mapcar (function (lambda (elt)
 			(if (Xor (file-directory-p (concat auxdir1 elt))
@@ -322,7 +322,7 @@
 			    (setq common (delq elt common)))))
 	    common)
     ;; intersect with the third dir
-    (if lis3 (setq common (intersection common lis3 :test comparison-func)))
+    (if lis3 (setq common (intersection common lis3 ':test comparison-func)))
     (if (ediff-comparison-metajob3 jobname)
 	(mapcar (function (lambda (elt)
 			    (if (Xor (file-directory-p (concat auxdir1 elt))
@@ -335,11 +335,11 @@
 
     ;; compute difference list
     (setq difflist (set-difference
-		    (union (union lis1 lis2 :test comparison-func)
+		    (union (union lis1 lis2 ':test comparison-func)
 			   lis3
-			   :test comparison-func)
+			   ':test comparison-func)
 		    common
-		    :test comparison-func)
+		    ':test comparison-func)
 	  difflist (delete "."  difflist)
 	  ;; copy-list needed because sort sorts it by side effects
 	  difflist (sort (copy-list (delete ".." difflist)) 'string-lessp))