xemacs-beta: tests/reproduce-crashes.el annotate

annotate tests/reproduce-crashes.el @ 5636:07256dcc0c8b

Add missing foreback specifier values to the GUI Element face. They were missing for an unexplicable reason in my initial patch, leading to nil color instances in the whole hierarchy of widget faces. -------------------- ChangeLog entries follow: -------------------- src/ChangeLog addition: 2012-01-03 Didier Verna <didier@xemacs.org> * faces.c (complex_vars_of_faces): Add missing foreback specifier values to the GUI Element face.

author	Didier Verna <didier@lrde.epita.fr>
date	Tue, 03 Jan 2012 11:25:06 +0100
parents	b9167d522a9a
children

rev	line source
4344 2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	1 ;;; reproduce-bugs.el --- reproduce bugs in XEmacs
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3 ;; Copyright (C) 1997 Free Software Foundation, Inc.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4 ;; Copyright (C) 1997 Sun Microsystems, Inc.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	6 ;; Keywords: bugs, crash, burn, die, croak, munge
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	7
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	8 ;; This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	9
5407 7ba892d101ce Convert remainder in "tests" with plain text GPLv2 to GPLv3 Mats Lidell <matsl@xemacs.org> parents: 5176 diff changeset	10 ;; XEmacs is free software: you can redistribute it and/or modify it
7ba892d101ce Convert remainder in "tests" with plain text GPLv2 to GPLv3 Mats Lidell <matsl@xemacs.org> parents: 5176 diff changeset	11 ;; under the terms of the GNU General Public License as published by the
7ba892d101ce Convert remainder in "tests" with plain text GPLv2 to GPLv3 Mats Lidell <matsl@xemacs.org> parents: 5176 diff changeset	12 ;; Free Software Foundation, either version 3 of the License, or (at your
7ba892d101ce Convert remainder in "tests" with plain text GPLv2 to GPLv3 Mats Lidell <matsl@xemacs.org> parents: 5176 diff changeset	13 ;; option) any later version.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	14
5407 7ba892d101ce Convert remainder in "tests" with plain text GPLv2 to GPLv3 Mats Lidell <matsl@xemacs.org> parents: 5176 diff changeset	15 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT
7ba892d101ce Convert remainder in "tests" with plain text GPLv2 to GPLv3 Mats Lidell <matsl@xemacs.org> parents: 5176 diff changeset	16 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
7ba892d101ce Convert remainder in "tests" with plain text GPLv2 to GPLv3 Mats Lidell <matsl@xemacs.org> parents: 5176 diff changeset	17 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
7ba892d101ce Convert remainder in "tests" with plain text GPLv2 to GPLv3 Mats Lidell <matsl@xemacs.org> parents: 5176 diff changeset	18 ;; for more details.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	19
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	20 ;; You should have received a copy of the GNU General Public License
5407 7ba892d101ce Convert remainder in "tests" with plain text GPLv2 to GPLv3 Mats Lidell <matsl@xemacs.org> parents: 5176 diff changeset	21 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	22
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	23 ;;; Synched up with: Not in FSF.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	24
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	25 ;;; Commentary:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	26
4344 2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	27 ;; Reproduce XEmacs crashes, so that they can get fixed.
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	28 ;; A table of bugs is created. You can list, describe, or reproduce bugs.
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	29
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	30 ;; Non-crash bugs should not be in this file; they should be placed in
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	31 ;; an appropriate file in the tests/automated suite.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	32 ;; You may need to use a debug version of XEmacs to reproduce some of these.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	33
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	34 ;; For XEmacs maintainers and other masochists.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	35 ;; It's a bad idea to rely on code in this file continuing to work in
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	36 ;; the same way. :-)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	37
4344 2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	38 ;; #### Bugs < 11 need to be tested and versions where they pass recorded.
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	39 ;; #### Fixed bugs should become regression tests, maybe?
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	40 ;; #### Non-crashes should be copied (not moved) to tests/automatic.
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	41 ;; #### `list-bugs' should optionally sort on status.
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	42 ;; #### Bugs that depend on features (eg, Mule) should check for them and
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	43 ;; document them.
4321 98e54edf3ab2 Resuscitate reproduce-bugs.el. Stephen J. Turnbull <stephen@xemacs.org> parents: 428 diff changeset	44
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	45 ;;; Code:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	46
4344 2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	47 ;; UI entry points
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	48
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	49 (defun reproduce-bug (number)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	50 "Reproduce XEmacs bugs, so that they can get fixed.
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	51 Especially, make XEmacs crash.
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	52 See reproduce-bugs.el for bug descriptions and bug numbers.
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	53 A debug version of XEmacs may be needed to reproduce some bugs."
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	54 (interactive "nBug Number: ")
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	55 (funcall (nth 0 (gethash number bug-hashtable))))
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	56
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	57 (defun describe-bug (number &optional show-code)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	58 "Describe the bug with index NUMBER in a popup window.
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	59 If optional argument SHOW-CODE is non-nil, also display the reproduction code."
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	60 (interactive "nBug number: \ncShow code? [y/N] ")
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	61 (setq show-code (cond ((not (interactive-p)) show-code)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	62 ((member show-code '(?y ?Y)) t)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	63 (t nil)))
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	64 (with-displaying-temp-buffer (format "Bug %d" number)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	65 (let ((bug (gethash number bug-hashtable)))
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	66 (princ (format "Bug #%d is %s.\n%s\n\n%s"
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	67 number
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	68 (nth 1 bug)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	69 (nth 2 bug)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	70 (if show-code (pp-to-string (nth 0 bug)) ""))))))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	71
4344 2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	72 (defun list-bugs ()
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	73 "List bugs most recent first, each with brief description in a popup window.
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	74 Assumes a maximum of 999 bugs and a minimum of 80 column width window."
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	75 (interactive)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	76 (with-displaying-temp-buffer "Bug list"
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	77 (princ " # status description\n")
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	78 (let (buglist)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	79 (maphash (lambda (number bug)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	80 (push (format "%3d %-9s %s"
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	81 number
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	82 (nth 1 bug)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	83 (let ((description (nth 2 bug)))
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	84 (save-match-data
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	85 (string-match "\$.*\$\$\n\\\|$\$"
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	86 description)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	87 (match-string 1 description))))
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	88 buglist))
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	89 bug-hashtable)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	90 (setq buglist (sort buglist (lambda (b1 b2) (string< b2 b1))))
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	91 (while buglist
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	92 (let ((bug (pop buglist)))
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	93 (princ (if (< (length bug) 79) bug (substring bug 0 78)))
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	94 (terpri))))))
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	95
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	96 ;; Database and utilities (internal)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	97
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	98 (defvar bug-hashtable (make-hashtable 10)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	99 "Table of bugs, keyed by bug index number.
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	100 The value is a list (LAMBDA STATUS DOCSTRING), where LAMBDA is a lambda
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	101 expression reproducing the bug, and STATUS and DOCSTRING describe the bug.
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	102 For details, see `defbug'.")
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	103
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	104 (put 'defbug 'lisp-indent-function 'defun)
4344 2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	105 (defmacro defbug (bug-number status docstring &rest body)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	106 "Record a bug with key BUG-NUMBER and value (LAMBDA STATUS DOCSTRING).
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	107 LAMBDA is a lambda expression which when called executes BODY.
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	108 BUG-NUMBER is the bug's index number, a positive integer.
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	109 STATUS is the current status of the bug, one of
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	110 fixed The bug has been diagnosed and fixed.
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	111 diagnosed The bug has been localized but not fixed.
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	112 current The bug has been reported and reproduced but cause is unknown.
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	113 legacy The bug is undocumented but presumed fixed.
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	114 DOCSTRING should be a string describing the bug, including any relevant
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	115 descriptive information and references to archived mailing list traffic or
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	116 a BTS issue.
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	117 BODY is a sequence of expressions to execute to reproduce the bug."
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	118 (let ((body (if (stringp docstring) body (cons docstring body)))
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	119 (docstring (if (stringp docstring) docstring "[docstring omitted]")))
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	120 `(puthash ,bug-number
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	121 '((lambda () ,@body) ,status ,docstring)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	122 bug-hashtable)))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	123
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	124 (defconst bug-buffer
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	125 (save-excursion
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	126 (set-buffer (get-buffer-create "Bug"))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	127 (erase-buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	128 (current-buffer)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	129
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	130
4344 2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	131 ;;; ------------------------------------------------------------------
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	132 ;;;; Bugs follow:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	133
4746 ae862598ee56 Make test from Adam Sjogren's report. Stephen J. Turnbull <stephen@xemacs.org> parents: 4685 diff changeset	134 (defbug 13 current
ae862598ee56 Make test from Adam Sjogren's report. Stephen J. Turnbull <stephen@xemacs.org> parents: 4685 diff changeset	135 "Crash when reading a message in Gnus, in sys_re_search_2 in regex.c.
ae862598ee56 Make test from Adam Sjogren's report. Stephen J. Turnbull <stephen@xemacs.org> parents: 4685 diff changeset	136 Reported by Adam Sjogren on xemacs-beta <87ocn5xt5a.fsf@topper.koldfront.dk>.
ae862598ee56 Make test from Adam Sjogren's report. Stephen J. Turnbull <stephen@xemacs.org> parents: 4685 diff changeset	137 issue630 on the tracker.
ae862598ee56 Make test from Adam Sjogren's report. Stephen J. Turnbull <stephen@xemacs.org> parents: 4685 diff changeset	138 Reproduced on Mac OS X 10.4.11 iBook G4 (PPC).
ae862598ee56 Make test from Adam Sjogren's report. Stephen J. Turnbull <stephen@xemacs.org> parents: 4685 diff changeset	139 Reproduced on Gentoo Linux 2.6.30 AMD (Opteron)."
ae862598ee56 Make test from Adam Sjogren's report. Stephen J. Turnbull <stephen@xemacs.org> parents: 4685 diff changeset	140 (string-match (base64-decode-string "\
ae862598ee56 Make test from Adam Sjogren's report. Stephen J. Turnbull <stephen@xemacs.org> parents: 4685 diff changeset	141 WyAJXSo804DFgPOApHWAtXuApliArID5gLZVgLSA2oChRUwvQ4DDQoCrgNeAwoDggLJ7gL6A
ae862598ee56 Make test from Adam Sjogren's report. Stephen J. Turnbull <stephen@xemacs.org> parents: 4685 diff changeset	142 94CogOOAtlWAtIDagKFFgLCA6oC7gNqApFSAqICkgLZUgKmA9oC5gOqAsIDIgL6A3oCnQICh
ae862598ee56 Make test from Adam Sjogren's report. Stephen J. Turnbull <stephen@xemacs.org> parents: 4685 diff changeset	143 RUwvQ4C2fYCqgKyAw0KAq4DXgKWA04C9gNCAoUWAxXeAqoDvgLF6gKiA04C5cYChR4CigK+A
ae862598ee56 Make test from Adam Sjogren's report. Stephen J. Turnbull <stephen@xemacs.org> parents: 4685 diff changeset	144 ooC4gKKAtICigLctgKKAtICigLWAooC4LYCigK+AooCygKKAtIChRUwvQ4CrSIClgM6AqoCs
ae862598ee56 Make test from Adam Sjogren's report. Stephen J. Turnbull <stephen@xemacs.org> parents: 4685 diff changeset	145 gMNCgKuA14DFgNyApoDbgKWA0YC5QoClgM6AuIDqgKqA94ChRYCrSIClgM6AqoCsgLZ9gKqA
ae862598ee56 Make test from Adam Sjogren's report. Stephen J. Turnbull <stephen@xemacs.org> parents: 4685 diff changeset	146 rIDDQoCrgNeApYDTgL2A0IChRT4=")
ae862598ee56 Make test from Adam Sjogren's report. Stephen J. Turnbull <stephen@xemacs.org> parents: 4685 diff changeset	147 (base64-decode-string "\
ae862598ee56 Make test from Adam Sjogren's report. Stephen J. Turnbull <stephen@xemacs.org> parents: 4685 diff changeset	148 XCKAqYDTgMWA84CkdYC1e4CmWICsgPmAtlWAtIDagKFFTC9DgMNCgKuA14DCgOCAsnuAvoD3
ae862598ee56 Make test from Adam Sjogren's report. Stephen J. Turnbull <stephen@xemacs.org> parents: 4685 diff changeset	149 gKiA44C2VYC0gNqAoUWAsIDqgLuA2oCkVICogKSAtlSAqYD2gLmA6oCwgMiAvoDegKdAgKFF
ae862598ee56 Make test from Adam Sjogren's report. Stephen J. Turnbull <stephen@xemacs.org> parents: 4685 diff changeset	150 TC9DgLZ9gKqArIDDQoCrgNeApYDTgL2A0IChRYDFd4CqgO+AsXqAqIDTgLlxgKFHgKKAr4Ci
ae862598ee56 Make test from Adam Sjogren's report. Stephen J. Turnbull <stephen@xemacs.org> parents: 4685 diff changeset	151 gLiAooC0gKKAty2AooC0gKKAtYCigLgtgKKAr4CigLKAooC0gKFFTC9DgKtIgKWAzoCqgKyA
ae862598ee56 Make test from Adam Sjogren's report. Stephen J. Turnbull <stephen@xemacs.org> parents: 4685 diff changeset	152 w0KAq4DXgMWA3ICmgNuApYDRgLlCgKWAzoC4gOqAqoD3gKFFgKtIgKWAzoCqgKyAtn2AqoCs
ae862598ee56 Make test from Adam Sjogren's report. Stephen J. Turnbull <stephen@xemacs.org> parents: 4685 diff changeset	153 gMNCgKuA14ClgNOAvYDQgKFFXCIgPHRzZW5nLWNoaXVAdW1haWwu")))
ae862598ee56 Make test from Adam Sjogren's report. Stephen J. Turnbull <stephen@xemacs.org> parents: 4685 diff changeset	154
4685 945247a8112f Reproducer for menubar-x.c crash. Jerry James <james@xemacs.org> parents: 4346 diff changeset	155 (defbug 12 current
945247a8112f Reproducer for menubar-x.c crash. Jerry James <james@xemacs.org> parents: 4346 diff changeset	156 "Crash when clicking on the menubar, triggered by a Lisp error due to a
945247a8112f Reproducer for menubar-x.c crash. Jerry James <james@xemacs.org> parents: 4346 diff changeset	157 version of truncate-string-to-width that does not take 5 parameters.
945247a8112f Reproducer for menubar-x.c crash. Jerry James <james@xemacs.org> parents: 4346 diff changeset	158 Fatal error: assertion failed, file menubar-x.c, line 579, ABORT()
945247a8112f Reproducer for menubar-x.c crash. Jerry James <james@xemacs.org> parents: 4346 diff changeset	159 Reported: https://bugzilla.redhat.com/show_bug.cgi?id=480845
945247a8112f Reproducer for menubar-x.c crash. Jerry James <james@xemacs.org> parents: 4346 diff changeset	160 <1251569781.4318.2.camel@mslap>"
945247a8112f Reproducer for menubar-x.c crash. Jerry James <james@xemacs.org> parents: 4346 diff changeset	161 (fset 'truncate-string-to-width
945247a8112f Reproducer for menubar-x.c crash. Jerry James <james@xemacs.org> parents: 4346 diff changeset	162 #'(lambda (str end-column &optional start-column padding) str))
945247a8112f Reproducer for menubar-x.c crash. Jerry James <james@xemacs.org> parents: 4346 diff changeset	163 (accelerate-menu))
945247a8112f Reproducer for menubar-x.c crash. Jerry James <james@xemacs.org> parents: 4346 diff changeset	164
4344 2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	165 (defbug 11 fixed
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	166 "Crash in search due to backward movement.
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	167 Need Mule build with error checking in 21.5.28.
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	168 Fatal error: assertion failed,
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	169 file /Users/steve/Software/XEmacs/alioth/xemacs/src/search.c, line 1487,
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	170 (this_pos) > ((Bytebpos) 1) && this_pos <= ((buf)->text->z + 0)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	171 Reported: <475B104F.2070807@barco.com>
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	172 <87hcixwkh4.fsf@uwakimon.sk.tsukuba.ac.jp>
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	173 Fixed: <87hcixwkh4.fsf@uwakimon.sk.tsukuba.ac.jp>"
4322 f70e56bb52a7 src/search.c (simple_search): Fix underrun in reverse search. Stephen J. Turnbull <stephen@xemacs.org> parents: 4321 diff changeset	174 (switch-to-buffer (get-buffer-create "crash me"))
4344 2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	175 ;; doozy is the keystroke equivalent of the keyboard macro
4322 f70e56bb52a7 src/search.c (simple_search): Fix underrun in reverse search. Stephen J. Turnbull <stephen@xemacs.org> parents: 4321 diff changeset	176 ;; "IAI" C-b C-b C-s C-x
f70e56bb52a7 src/search.c (simple_search): Fix underrun in reverse search. Stephen J. Turnbull <stephen@xemacs.org> parents: 4321 diff changeset	177 (let ((doozy [;;(control ?x) ?b ?j ?u ?n ?k return
f70e56bb52a7 src/search.c (simple_search): Fix underrun in reverse search. Stephen J. Turnbull <stephen@xemacs.org> parents: 4321 diff changeset	178 ?I ?A ?I
f70e56bb52a7 src/search.c (simple_search): Fix underrun in reverse search. Stephen J. Turnbull <stephen@xemacs.org> parents: 4321 diff changeset	179 (control ?b) (control ?b)
f70e56bb52a7 src/search.c (simple_search): Fix underrun in reverse search. Stephen J. Turnbull <stephen@xemacs.org> parents: 4321 diff changeset	180 (control ?s) (control ?w)]))
f70e56bb52a7 src/search.c (simple_search): Fix underrun in reverse search. Stephen J. Turnbull <stephen@xemacs.org> parents: 4321 diff changeset	181 (execute-kbd-macro doozy)))
f70e56bb52a7 src/search.c (simple_search): Fix underrun in reverse search. Stephen J. Turnbull <stephen@xemacs.org> parents: 4321 diff changeset	182
f70e56bb52a7 src/search.c (simple_search): Fix underrun in reverse search. Stephen J. Turnbull <stephen@xemacs.org> parents: 4321 diff changeset	183
4344 2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	184 (defbug 10 current
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	185 "Crash on trace-function
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	186 Fatal error: assertion failed, file src/eval.c, line 1405, abort()"
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	187 (trace-function 'record-buffer bug-buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	188 (pop-to-buffer bug-buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	189
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	190
4344 2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	191 (defbug 9 current
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	192 "Crashes with stack overflow
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	193 Should give error via barf-if-buffer-read-only
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	194 Fatal error: assertion failed, file src/eval.c, line 1874, abort()
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	195 This bug has been fixed. -sb"
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	196 (switch-to-buffer bug-buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	197 ;; The following line should contain a number of eight-bit characters
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	198 (insert "��ΰ�ư�ϤǤ��褦�ˤʤ�ޤ��٤ϡ��̤��ǡ��ξ�")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	199 (setq buffer-read-only t)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	200 (ignore-errors
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	201 (encode-coding-region (point-min) (point-max) 'euc-japan))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	202 (garbage-collect))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	203
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	204
4344 2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	205 (defbug 8 current
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	206 "Crashes in debug version only
5176 8b2f75cecb89 rename objects* (.c, .h and .el files) to fontcolor* Ben Wing <ben@xemacs.org> parents: 4746 diff changeset	207 Fatal error: assertion failed, file src/fontcolor.h, line 149,
4344 2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	208 RECORD_TYPEP (_obj, lrecord_font_instance) \|\| MARKED_RECORD_P (_obj)"
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	209 (let (glyph ext)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	210 (make-face 'adobe-symbol-face)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	211 (set-face-font
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	212 'adobe-symbol-face
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	213 "-adobe-symbol-medium-r-normal---140---p--adobe-fontspecific")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	214 (setq glyph (make-glyph (list (vector 'string
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	215 :data (char-to-string ?\xD3)))))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	216 (set-glyph-face glyph 'adobe-symbol-face)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	217 (setq ext (make-extent 14 18))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	218 (set-extent-property ext 'begin-glyph glyph)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	219
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	220
4344 2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	221 (defbug 7 current
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	222 "(maybe?) crash koi8
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	223 ACCL: Invalid command (c)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	224 With debugging on, crashes as follows:
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	225 Fatal error: assertion failed, file src/lisp.h, line 1227, INTP (obj)"
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	226 ;;(load "cyrillic")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	227 ;;(load "cyrillic-hooks")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	228 (princ (decode-coding-string "\xe1" 'koi8)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	229
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	230
4344 2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	231 (defbug 6 current
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	232 "regexp crash
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	233 This doesn't crash for me. -sb"
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	234 (string-match "\$\\s-\\\|$\$" "�"))
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	235
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	236
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	237 (defbug 5 legacy
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	238 "`subst-char-in-region' moves point."
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	239 (interactive)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	240 (with-temp-buffer
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	241 (insert "abc")
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	242 (forward-char -1)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	243 (subst-char-in-region 1 4 ?b ?\344)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	244 (if (not (= (point) 3))
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	245 (message "Bug! point should equal 3 but is %d" (point)))))
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	246
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	247
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	248 (defbug 4 legacy
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	249 "Infinite recursion crash - Segmentation Fault"
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	250 (switch-to-buffer bug-buffer)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	251 (insert "abcdefg")
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	252 (setq e (make-extent 1 4))
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	253 (set-extent-property e 'face 'bold)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	254 (set-extent-property e 'duplicable t)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	255 (set-extent-property e 'replicating t)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	256 (insert (buffer-string))
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	257 (delete-region 8 9))
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	258
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	259
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	260 (defbug 3 current
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	261 "Completely Uninterruptible hang in re-search-backward (Was: java-mode)"
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	262 (switch-to-buffer bug-buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	263 (insert "{
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	264 public static void main(String[] args) throws java.io.IOException
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	265 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	266 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	267 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	268 ")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	269 (goto-char (point-min))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	270 (search-forward "{" nil nil 2)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	271 (backward-char)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	272 (re-search-backward
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	273 "^\\s(\\\|\$^[ \t]\\(\\(\\(public\\\|protected\\\|static\$\\s-+\\)\$\\(\\([[a-zA-Z][][_$.a-zA-Z0-9][][_$.a-zA-Z0-9]+\\\|[[a-zA-Z]\$\\s-\\)\\s-+\\)\\)?\$\\([[a-zA-Z][][_$.a-zA-Z0-9]\\s-+\$\\s-\\)?\$[_a-zA-Z][^][ \t:;.,{}()=]\\\|\\([_$a-zA-Z][_$.a-zA-Z0-9]\$\\)\\s-\$([^);{}])\$?\$[] \t]\$\$\\s-\\<throws\\>\\s-\\(\\([_$a-zA-Z][_$.a-zA-Z0-9]\$[, \t\n\r\f]\\)+\\)?\\s-\\)\\s("))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	274
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	275
4344 2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	276 (defbug 2 legacy
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	277 "crash popup frames
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	278 FIXED
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	279 #### This bug is not understood, and may be incomplete. See source."
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	280 (lambda ()
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	281 (let ((f (selected-frame)))
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	282 (make-frame `(popup ,(selected-frame)))
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	283 (make-frame)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	284 (sit-for 0)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	285 (delete-frame f)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	286 ;; #### Check whether this is needed.
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	287 ;; (save-buffers-kill-emacs5)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	288 )))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	289
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	290
4344 2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	291 (defbug 1 legacy
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	292 "crash on delete-frame-hook
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	293 FIXED!
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	294 #### This bug is not understood, and seems to be incomplete. See source."
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	295 (lambda ()
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	296 ;; #### Should this be add-hook instead of setq?
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	297 (setq delete-frame-hook
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	298 (lambda (frame)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	299 (select-frame frame)
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	300 (kill-buffer (window-buffer (frame-selected-window frame)))
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	301 ;; #### Do we need to delete a frame here or something?
2511b50f39c6 Refactor reproduce-bugs.el to usable state. Stephen J. Turnbull <stephen@xemacs.org> parents: 4322 diff changeset	302 ))))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	303
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	304 ;;; reproduce-bugs.el ends here

Mercurial > hg > xemacs-beta

annotate tests/reproduce-crashes.el @ 5636:07256dcc0c8b