From xemacs-m  Mon Jun 16 06:58:06 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 GAA14542
	for <xemacs-beta@xemacs.org>; Mon, 16 Jun 1997 06:58:06 -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 IAA11135 for <xemacs-beta@xemacs.org>; Mon, 16 Jun 1997 08:02:04 -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 NAA12346; Mon, 16 Jun 1997 13:57:29 +0200 (MET DST)
Received: by midnight.eng.ecf.teradyne.com (SMI-8.6/SMI-SVR4)
	id NAA03191; Mon, 16 Jun 1997 13:57:27 +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> <rxsn2oqbx9g.fsf@midnight.ecf.teradyne.com>
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:57:25_1997-1"
Content-Transfer-Encoding: 7bit
From: Adrian Aichner <aichner@ecf.teradyne.com>
Date: 16 Jun 1997 13:57:26 +0200
In-Reply-To: Adrian Aichner's message of "16 Jun 1997 13:30:35 +0200"
Message-ID: <rxslo4abw0p.fsf@midnight.ecf.teradyne.com>
Lines: 124
X-Mailer: Gnus v5.4.56/XEmacs 20.3(beta7) - "Oslo"

--Multipart_Mon_Jun_16_13:57:25_1997-1
Content-Type: text/plain; charset=US-ASCII

>>>>> "Adrian" == Adrian Aichner <aichner@ecf.teradyne.com> writes:

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

Here's the test-case:

Extract attachment loss (assuming /tmp/loss here).


--Multipart_Mon_Jun_16_13:57:25_1997-1
Content-Type: application/octet-stream
Content-Disposition: attachment; filename="loss"
Content-Transfer-Encoding: 7bit

(quail-use-package "quail-german" "quail/latin")

(setq debug-on-error t)




--Multipart_Mon_Jun_16_13:57:25_1997-1
Content-Type: text/plain; charset=US-ASCII



xemacs -no-site-file -no-init-file /tmp/loss

Evaluate each form on the succeeding empty line (C-u C-x C-e).
Type
C-mlossC-m
Find the file again (C-x C-f /tmp/loss)
Type
C-mlossC-m

and you shall get *Backtrace*.

BTW: Shouldn't I be able to keep on typing lossage without paying
attention to the possible completions?

Cheers,

Adrian


--Multipart_Mon_Jun_16_13:57:25_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:57:25_1997-1
Content-Type: text/plain; charset=US-ASCII



    Adrian> [2 *Backtrace* <application/octet-stream>]
    Adrian> Signaling: (wrong-type-argument overlayp nil)
    Adrian>   wrong-type-argument(overlayp nil)
    Adrian>   (setq overlay (wrong-type-argument (quote overlayp) overlay))
    Adrian> )
    Adrian>   (if (not (overlayp overlay)) (setq overlay (wrong-type-argument ... overlay)))
    Adrian> )
    Adrian>   (check-argument-type (quote overlayp) overlay)
    Adrian> )
    Adrian>   (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))
    Adrian> )
    Adrian>   move-overlay(nil 14 16)

--Multipart_Mon_Jun_16_13:57:25_1997-1--

