# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 817251873 0
# Node ID 0b081d93ee6c8f317317bfbb98253b555bb1bc1b
# Parent  a120308bfe294df5cb2242ecc748fa24497b2a9d
(ediff-intersect-directories): Quote symbols starting with `:'.

diff -r a120308bfe29 -r 0b081d93ee6c lisp/ediff-mult.el
--- 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))