From: Dave Love <fx@gnu.org>
Date: Fri, 10 Nov 2000 22:35:35 +0000 (+0000)
Subject: (ediff-status-info, ediff-debug-info): Put temp
X-Git-Tag: emacs-pretest-21.0.90~144
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5c12aa690e63e13bbcc9802f6089da46295b1db2;p=emacs.git

(ediff-status-info, ediff-debug-info): Put temp
buffer into fundamental mode.
(ediff-set-difference): Use copy-sequence if available.
---

diff --git a/lisp/ediff-util.el b/lisp/ediff-util.el
index 44c96417189..1a294cb5f1f 100644
--- a/lisp/ediff-util.el
+++ b/lisp/ediff-util.el
@@ -2713,6 +2713,8 @@ Hit \\[ediff-recenter] to reset the windows afterward."
   (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 @@ Mail anyway? (y or n) ")
   (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 @@ Mail anyway? (y or n) ")
       (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