From xemacs-m  Mon Jun 16 06:31:15 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 GAA13889
	for <xemacs-beta@xemacs.org>; Mon, 16 Jun 1997 06:31:15 -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 HAA04289 for <xemacs-beta@xemacs.org>; Mon, 16 Jun 1997 07:35:14 -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 NAA12260; Mon, 16 Jun 1997 13:30:39 +0200 (MET DST)
Received: by midnight.eng.ecf.teradyne.com (SMI-8.6/SMI-SVR4)
	id NAA03173; Mon, 16 Jun 1997 13:30:37 +0200
To: xemacs-beta@xemacs.org
Subject: Re: Build Success: 20.3 "Oslo" XEmacs Lucid (beta7) on sparc-sun-solaris2.5
References: <rxsbu58me9q.fsf@ecf.teradyne.com> <m2u3j0418p.fsf@altair.xemacs.org> <rxsbu570wks.fsf@midnight.ecf.teradyne.com> <m2soyincog.fsf@altair.xemacs.org> <rxsafkqvpk6.fsf@midnight.ecf.teradyne.com> <m27mfun99w.fsf@altair.xemacs.org>
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_Mon_Jun_16_13:30:35_1997-1"
Content-Transfer-Encoding: 7bit
From: Adrian Aichner <aichner@ecf.teradyne.com>
Date: 16 Jun 1997 13:30:35 +0200
In-Reply-To: Steven L Baur's message of "16 Jun 1997 03:15:39 -0700"
Message-ID: <rxsn2oqbx9g.fsf@midnight.ecf.teradyne.com>
Lines: 104
X-Mailer: Gnus v5.4.56/XEmacs 20.3(beta7) - "Oslo"

--Multipart_Mon_Jun_16_13:30:35_1997-1
Content-Type: text/plain; charset=US-ASCII

>>>>> "sb" == Steven L Baur <steve@xemacs.org> writes:

    sb> If at at first you don't succeed ...
    sb> Please back out the last patch and try this one.

OK, I applied that one. Let's see, whether I get some lossage now.

Yep, here is the latest *Backtrace*.

I'll try to find a simpler test-case as well.

Adrian


--Multipart_Mon_Jun_16_13:30:35_1997-1
Content-Type: application/octet-stream
Content-Disposition: attachment; filename="*Backtrace*"
Content-Transfer-Encoding: 7bit

Signaling: (wrong-type-argument overlayp nil)
  wrong-type-argument(overlayp nil)
  (setq overlay (wrong-type-argument (quote overlayp) overlay))
)
  (if (not (overlayp overlay)) (setq overlay (wrong-type-argument ... overlay)))
)
  (check-argument-type (quote overlayp) overlay)
)
  (let (temp) (check-argument-type (quote overlayp) overlay) (if (null buffer) (setq buffer ...)) (if (null buffer) (setq buffer ...)) (check-argument-type (quote bufferp) buffer) (if (and ... ...) (delete-overlay overlay) (if ... ...) (set-extent-endpoints overlay beg end buffer) overlay))
)
  move-overlay(nil 14 16)
  (if (= idx from) (move-overlay quail-overlay pos (point)))
)
  (let ((pos ...)) (insert (aref translations from)) (if (= idx from) (move-overlay quail-overlay pos ...)))
)
  (while (< from to) (insert (format " %d." ...)) (let (...) (insert ...) (if ... ...)) (setq from (1+ from)))
)
  (let* ((idx ...) (translations ...) (from ...) (to ...)) (indent-to 10) (insert (format "(%d/%d)" ... ...)) (while (< from to) (insert ...) (let ... ... ...) (setq from ...)))
)
  (if (consp (car map)) (let* (... ... ... ...) (indent-to 10) (insert ...) (while ... ... ... ...)))
)
  (save-excursion (set-buffer quail-guidance-buf) (erase-buffer) (insert key) (if (cdr map) (let ... ... ... ...)) (if (consp ...) (let* ... ... ... ...)))
)
  (let ((key quail-current-key) (map ...)) (save-excursion (set-buffer quail-guidance-buf) (erase-buffer) (insert key) (if ... ...) (if ... ...)))
)
  quail-show-translations()
  (cond ((eq guidance t) (quail-show-translations)) ((null guidance) (let ... ...)) ((listp guidance) (let* ... ...)))
)
  (let ((guidance ...)) (cond (... ...) (... ...) (... ...)))
)
  (if (or (null input-method-tersely-flag) (not ...)) (let (...) (cond ... ... ...)))
)
  quail-update-guidance()
  quail-update-translation(nil)
  (lambda nil "Add the typed character to the key for translation." (interactive "*") (setq quail-current-key (concat quail-current-key ...)) (quail-update-translation (quail-translate-key)))()
  call-interactively(quail-self-insert-command)
  recursive-edit()
  (let ((overriding-local-map ...)) (setq quail-current-key "") (recursive-edit))
)
  (if (and (not quail-suppress-conversion) (quail-conversion-keymap)) (let (...) (setq quail-exit-conversion-mode nil) (recursive-edit) (if ... ...)) (let (...) (setq quail-current-key "") (recursive-edit)))
)
  (catch (quote quail-tag) (if (and ... ...) (let ... ... ... ...) (let ... ... ...)) (let (... ...) (if ... ...)) nil)
)
  (if (catch (quote quail-tag) (if ... ... ...) (let ... ...) nil) (quail-mode -1))
)
  (let ((mode-line-format quail-mode-line-format)) (quail-setup-overlays) (if (catch ... ... ... nil) (quail-mode -1)))
)
  (if (assq (event-key last-command-event) (cdr ...)) (let (...) (quail-setup-overlays) (if ... ...)) (add-hook (quote post-command-hook) (quote quail-toggle-mode-temporarily) nil t))
)
  (lambda nil "Start translating the typed character in Quail mode." (interactive "*") (setq unread-command-events (cons last-command-event unread-command-events)) (if (assq ... ...) (let ... ... ...) (add-hook ... ... nil t)))()
  call-interactively(quail-start-translation)

--Multipart_Mon_Jun_16_13:30:35_1997-1
Content-Type: text/plain; charset=US-ASCII


    sb> Index: lisp/leim/quail.el
    sb> ===================================================================
    sb> RCS file: /usr/local/xemacs/xemacs-20.0/lisp/leim/quail.el,v
    sb> retrieving revision 1.2
    sb> diff -u -r1.2 quail.el
    sb> --- quail.el	1997/06/06 00:57:07	1.2
    sb> +++ quail.el	1997/06/16 10:13:33
    sb> @@ -557,7 +557,9 @@
    sb>        (setq overriding-local-map quail-saved-overriding-local-map)
    sb>        ;; If whole text in conversion area was deleted, exit from the
    sb>        ;; recursive edit.
    sb> -      (let ((start (overlay-start quail-conv-overlay)))
    sb> +      (let ((start (if (and quail-conv-overlay
    sb> +			    (overlayp quail-conv-overlay))
    sb> +		       (overlay-start quail-conv-overlay))))
    sb>  	(if (and start (= start (overlay-end quail-conv-overlay)))
    sb>  	    (throw 'quail-tag nil)))
    sb>        )))

    sb> -- 
    sb> steve@calag.com baur
    sb> Unsolicited commercial e-mail will be billed at $250/message.



--Multipart_Mon_Jun_16_13:30:35_1997-1--

