# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 973895735 0
# Node ID 25fb6fc4f66b752a843c9dc3e682348c428735e1
# Parent  f8c8c2d3538ee35f36b78d50ec5f348b6cdca641
(ediff-status-info, ediff-debug-info): Put temp
buffer into fundamental mode.
(ediff-set-difference): Use copy-sequence if available.

diff -r f8c8c2d3538e -r 25fb6fc4f66b lisp/ediff-util.el
--- a/lisp/ediff-util.el	Fri Nov 10 22:34:55 2000 +0000
+++ b/lisp/ediff-util.el	Fri Nov 10 22:35:35 2000 +0000
@@ -2713,6 +2713,8 @@
   (save-excursion
     (ediff-skip-unsuitable-frames))
   (with-output-to-temp-buffer ediff-msg-buffer
+    (ediff-with-current-buffer standard-output
+      (fundamental-mode))
     (raise-frame (selected-frame))
     (princ (ediff-version))
     (princ "\n\n")
@@ -3838,6 +3840,8 @@
   (interactive)
   (ediff-barf-if-not-control-buffer)
   (with-output-to-temp-buffer ediff-debug-buffer
+    (ediff-with-current-buffer standard-output
+      (fundamental-mode))
     (princ (format "\nCtl buffer: %S\n" ediff-control-buffer))
     (ediff-print-diff-vector (intern "ediff-difference-vector-A"))
     (ediff-print-diff-vector (intern "ediff-difference-vector-B"))
@@ -3888,18 +3892,20 @@
       (setq lis1 (cdr lis1)))
     (cdr result)))
 
-(defun ediff-copy-list (list)
-  (if (consp list)
+(if (fboundp 'copy-sequence)
+    (defalias 'ediff-copy-list 'copy-sequence)
+  (defun ediff-copy-list (list)
+    (if (consp list)
       ;;;(let ((res nil))
       ;;;  (while (consp list) (push (pop list) res))
       ;;;  (prog1 (nreverse res) (setcdr res list)))
-      (let (res elt)
-	(while (consp list)
-	  (setq elt (car list)
-		res (cons elt res)
-		list (cdr list)))
-	(nreverse res))
-    (car list)))
+	(let (res elt)
+	  (while (consp list)
+	    (setq elt (car list)
+		  res (cons elt res)
+		  list (cdr list)))
+	  (nreverse res))
+      (car list))))
 
 
 ;; don't report error if version control package wasn't found