diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-11-24 22:24:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-11-24 22:24:33 +0000 |
| commit | 954080b438d53cde505a5fdb9bc3e972bd88510e (patch) | |
| tree | e7bdbff2a20b82413d7cb37782102fbbcae92476 /lisp/ediff-mult.el | |
| parent | 32168d16fffc1a6d316270589153dddfb944522a (diff) | |
| download | emacs-954080b438d53cde505a5fdb9bc3e972bd88510e.tar.gz | |
(ediff-intersect-directories): Quote symbols starting with `:'.
Diffstat (limited to 'lisp/ediff-mult.el')
| -rw-r--r-- | lisp/ediff-mult.el | 10 |
1 files 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)) |