From xemacs-m  Wed Jul  9 06:59:31 1997
Received: from steadfast.teradyne.com (steadfast.teradyne.com [131.101.1.200])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id GAA09924
	for <xemacs-beta@xemacs.org>; Wed, 9 Jul 1997 06:59:29 -0500 (CDT)
Received: from engine.ecf.teradyne.com (engine.ecf.teradyne.com [131.101.192.6]) by steadfast.teradyne.com (8.7.1/8.7.1) with ESMTP id IAA04094 for <xemacs-beta@xemacs.org>; Wed, 9 Jul 1997 08:03:35 -0400 (EDT)
Received: from midnight.eng.ecf.teradyne.com (midnight.ecf.teradyne.com [131.101.192.49]) by engine.ecf.teradyne.com (8.7.1/8.7.1) with SMTP id NAA26691; Wed, 9 Jul 1997 13:58:49 +0200 (MET DST)
Received: by midnight.eng.ecf.teradyne.com (SMI-8.6/SMI-SVR4)
	id NAA26938; Wed, 9 Jul 1997 13:58:47 +0200
To: XEmacs Beta Mailing List <xemacs-beta@xemacs.org>
Subject: [Test-Case] `ediff-regions-linewise' breakage
X-Face: 4[iHdXiTu\V3u[~\I)<f9HC);%~nG8`oUqv#uzvs6=\V{AjN6Sn
 c/qi;YLwRmEbt8Y*=j5n(urqY@chPh@J'D"QlqD!C8>*}#kYF[-tYl3VZga/HSOP|K,{L
 Rtu@f0y/=O&Cu}\:~d|P$JON?pn?j,&CnPb1z#/TL9bkAJwyol&a:SvYj-VYbM=Dtxhk9
 =w|R6U3_;SH&B<Mfy6Q%#
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: multipart/mixed;
 boundary="Multipart_Wed_Jul__9_13:58:45_1997-1"
Content-Transfer-Encoding: 7bit
From: Adrian Aichner <aichner@ecf.teradyne.com>
Date: 09 Jul 1997 13:58:46 +0200
Message-ID: <rxslo3g77yh.fsf@midnight.ecf.teradyne.com>
Lines: 72
X-Mailer: Gnus v5.4.62/XEmacs 20.3(beta11) - "Stockholm"

--Multipart_Wed_Jul__9_13:58:45_1997-1
Content-Type: text/plain; charset=US-ASCII


Starting emacs-version "20.3 \"Stockholm\" XEmacs  Lucid (beta11)" as
xemacs -q -no-site-file -l ~/el/ed-re-li.el
I get this *Backtrace*:


--Multipart_Wed_Jul__9_13:58:45_1997-1
Content-Type: application/octet-stream
Content-Disposition: attachment; filename="*Backtrace*ed-re-li"
Content-Transfer-Encoding: 7bit

Signaling: (wrong-number-of-arguments (lambda (buffer-A beg-A end-A buffer-B beg-B end-B startup-hooks job-name word-mode setup-parameters) (let ((tmp-buffer (get-buffer-create ediff-tmp-buffer)) overl-A overl-B file-A file-B) (ediff-eval-in-buffer buffer-A (setq beg-A (move-marker (make-marker) beg-A) end-A (move-marker (make-marker) end-A))) (ediff-eval-in-buffer buffer-B (setq beg-B (move-marker (make-marker) beg-B) end-B (move-marker (make-marker) end-B))) (if (and (eq buffer-A buffer-B) (or (and (< beg-A end-B) (<= beg-B beg-A)) (and (< beg-B end-A) (<= end-A end-B)))) (progn (with-output-to-temp-buffer ediff-msg-buffer (princ "
You have requested to compare overlapping regions of the same buffer.

In this case, Ediff's highlighting may be confusing---in the same window,
you may see highlighted regions that belong to different regions.

Continue anyway? (y/n) ")) (if (y-or-n-p "Continue anyway? ") nil (error "%S aborted" job-name)))) (if word-mode (ediff-wordify beg-A end-A buffer-A tmp-buffer) (ediff-copy-to-buffer beg-A end-A buffer-A tmp-buffer)) (setq file-A (ediff-make-temp-file tmp-buffer "regA")) (if word-mode (ediff-wordify beg-B end-B buffer-B tmp-buffer) (ediff-copy-to-buffer beg-B end-B buffer-B tmp-buffer)) (setq file-B (ediff-make-temp-file tmp-buffer "regB")) (setq overl-A (ediff-make-bullet-proof-overlay beg-A end-A buffer-A)) (setq overl-B (ediff-make-bullet-proof-overlay beg-B end-B buffer-B)) (ediff-setup buffer-A file-A buffer-B file-B nil nil (cons (\` (lambda nil (delete-file (\, file-A)) (delete-file (\, file-B)))) startup-hooks) (append (list (cons (quote ediff-word-mode) word-mode) (cons (quote ediff-narrow-bounds) (list overl-A overl-B)) (cons (quote ediff-job-name) job-name)) setup-parameters)))) 9)
  ediff-regions-internal(#<buffer "COPYING"> 65 230 #<buffer "COPYING.LIB"> 71 218 nil ediff-regions-linewise nil)
  (let (reg-A-beg reg-A-end reg-B-beg reg-B-end) (save-excursion (set-buffer buffer-A) (setq reg-A-beg ... reg-A-end ...) (goto-char reg-A-beg) (beginning-of-line) (setq reg-A-beg ...) (goto-char reg-A-end) (end-of-line) (or ... ...) (setq reg-A-end ...) (set-buffer buffer-B) (setq reg-B-beg ... reg-B-end ...) (goto-char reg-B-beg) (beginning-of-line) (setq reg-B-beg ...) (goto-char reg-B-end) (end-of-line) (or ... ...) (setq reg-B-end ...)) (ediff-regions-internal (get-buffer buffer-A) reg-A-beg reg-A-end (get-buffer buffer-B) reg-B-beg reg-B-end startup-hooks (quote ediff-regions-linewise) nil))
)
  ediff-regions-linewise("COPYING" "COPYING.LIB")
  load-internal("/u/aichner/el/ed-re-li.el" nil t nil automatic-conversion)
  load("/u/aichner/el/ed-re-li.el" nil t)
  command-line-do-load("-l")
  command-line-1()
  command-line()
  normal-top-level()

--Multipart_Wed_Jul__9_13:58:45_1997-1
Content-Type: text/plain; charset=US-ASCII


I had moved ediff.elc out of the way to get ediff.el instead.

Here is the test case:


--Multipart_Wed_Jul__9_13:58:45_1997-1
Content-Type: application/octet-stream; type=emacs-lisp
Content-Disposition: attachment; filename="ed-re-li.el"
Content-Transfer-Encoding: 7bit

(setq debug-on-error t)
(find-file (concat data-directory "COPYING"))
(set-mark 100 "COPYING")
(goto-char 200 "COPYING")
(find-file (concat data-directory "COPYING.LIB"))
(set-mark 101 "COPYING.LIB")
(goto-char 204 "COPYING.LIB")
(ediff-regions-linewise "COPYING" "COPYING.LIB")
--Multipart_Wed_Jul__9_13:58:45_1997-1
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable


Regards,

Adrian

-- 
                            Adrian Aichner
                        Applications Engineer
  Teradyne GmbH
  Semiconductor Test Group    Telephone +49/89/41861(0)-208
  Dingolfinger Stra=DFe 2       Fax       +49/89/41861-217
  D-81673 M=DCNCHEN             E-mail    aichner@ecf.teradyne.com

--Multipart_Wed_Jul__9_13:58:45_1997-1--

