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

annotate tests/reproduce-crashes.el @ 5819:ba0ff364bd94

Repair invalid GNU-style key-bindings.

author	Stephen J. Turnbull <stephen@xemacs.org>
date	Sat, 18 Oct 2014 23:21:30 +0900
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 @ 5819:ba0ff364bd94