From 954080b438d53cde505a5fdb9bc3e972bd88510e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 24 Nov 1995 22:24:33 +0000 Subject: [PATCH] (ediff-intersect-directories): Quote symbols starting with `:'. --- lisp/ediff-mult.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/ediff-mult.el b/lisp/ediff-mult.el index 1a74d9aaa9f..f8a0c0912f6 100644 --- a/lisp/ediff-mult.el +++ b/lisp/ediff-mult.el @@ -314,7 +314,7 @@ Moves in circular fashion. With numeric prefix arg, skip this many items." (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 @@ Moves in circular fashion. With numeric prefix arg, skip this many items." (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 @@ Moves in circular fashion. With numeric prefix arg, skip this many items." ;; 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)) -- 2.39.2