Mercurial > hg > xemacs-beta

comparison tests/reproduce-bugs.el @ 4321:98e54edf3ab2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Resuscitate reproduce-bugs.el. Add commentary. Number unnumbered bugs. Comment out keybinding.
author Stephen J. Turnbull <stephen@xemacs.org>
date Mon, 10 Dec 2007 00:57:19 -0800
parents 3ecd8885ac67
children f70e56bb52a7
comparison
equal deleted inserted replaced
4320:a78603f584d7 4321:98e54edf3ab2
34 34
35 ;; For XEmacs maintainers and other masochists. 35 ;; For XEmacs maintainers and other masochists.
36 36
37 ;; It's a bad idea to rely on code in this file continuing to work in 37 ;; It's a bad idea to rely on code in this file continuing to work in
38 ;; the same way. :-) 38 ;; the same way. :-)
39
40 ;; #### This file should be cleaned up and renamed reproduce-crashes.el.
41 ;; #### Bugs need docstrings.
42 ;; #### Fixed bugs should become regression tests.
39 43
40 ;;; Code: 44 ;;; Code:
41 45
42 (defvar bug-hashtable (make-hashtable 10)) 46 (defvar bug-hashtable (make-hashtable 10))
43 47
61 (interactive "nBug Number: ") 65 (interactive "nBug Number: ")
62 (funcall (gethash number bug-hashtable))) 66 (funcall (gethash number bug-hashtable)))
63 67
64 ;;; Change this to your preferred key-binding 68 ;;; Change this to your preferred key-binding
65 69
66 (global-set-key [(control ?Z)] 'reproduce-bug) 70 ;; (global-set-key [(control ?Z)] 'reproduce-bug)
67 71
68 ;;;; Bugs follow: 72 ;;;; Bugs follow:
69 73
70 ;;; ------------------------------------------------------------------ 74 ;;; ------------------------------------------------------------------
71 ;;; Crash on trace-function 75 ;;; Crash on trace-function
168 (subst-char-in-region 1 4 ?b ?\344) 172 (subst-char-in-region 1 4 ?b ?\344)
169 (if (not (= (point) 3)) 173 (if (not (= (point) 3))
170 (message "Bug! point should equal 3 but is %d" (point))))) 174 (message "Bug! point should equal 3 but is %d" (point)))))
171 175
172 ;;; crash popup frames FIXED 176 ;;; crash popup frames FIXED
177 ;; defbug 8
173 ;;(global-set-key 178 ;;(global-set-key
174 ;; [(alt meta control f12)] 179 ;; [(alt meta control f12)]
175 ;; (lambda () 180 ;; (lambda ()
176 ;; (interactive) 181 ;; (interactive)
177 ;; (let ((f (selected-frame))) 182 ;; (let ((f (selected-frame)))
180 ;; (sit-for 0) 185 ;; (sit-for 0)
181 ;; (delete-frame f) 186 ;; (delete-frame f)
182 ;; (save-buffers-kill-emacs)))) 187 ;; (save-buffers-kill-emacs))))
183 188
184 ;;; crash on delete-frame-hook - FIXED! 189 ;;; crash on delete-frame-hook - FIXED!
190 ;; defbug 9
185 ;;(global-set-key 191 ;;(global-set-key
186 ;; [(alt meta control f10)] 192 ;; [(alt meta control f10)]
187 ;; (lambda () 193 ;; (lambda ()
188 ;; (interactive) 194 ;; (interactive)
189 ;; (setq delete-frame-hook 195 ;; (setq delete-frame-hook