This bug report will be sent to the XEmacs Development Team,
not to your local site managers!!
Please write in English, because the XEmacs maintainers do not have
translators to read other languages for them.
In XEmacs 21.5 (beta2) "artichoke" [Lucid] (sparc-sun-solaris2.8, Mule) of Sun
Jul 29 2001 on eon
configured using `configure --prefix=/usr/scratch/XEmacs --with-prefix=no --cflags=-O
--with-mule --with-canna=no --with-wnn6=no --with-tooltalk --error-checking=none
--memory-usage-stats --with-dragndrop --with-cde --with-pop --with-workshop --with-xfs
--use-union-type --with-dialogs=athena
--site-includes=/home/deacon/csgrad/lmdimi/usr/local/include:/home/deacon/csgrad/lmdimi/usr/local/include/X11
--site-libraries=/usr/scratch/lib:/usr/scratch/lib/X11'
Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:
When I try to customize anything any way a broken button appears
instead of usual customization window. Here's what I mean by broken
<%]>
and here's the 'backtrace'
Signaling: (wrong-type-argument listp :descriptor)
nth(0 :descriptor)
(list (nth 0 (aref gui 1)) (vector (quote string) (quote :data) text))
(make-glyph (list (nth 0 ...) (vector ... ... text)))
(widget-glyph-insert-glyph widget (make-glyph (list ... ...)) (make-glyph (list ...
...)) (make-glyph (list ... ...)))
(cond (tag-glyph (widget-glyph-insert widget text tag-glyph)) ((and ... ...
widget-push-button-gui ... ... ...) (unless gui ... ...) (widget-glyph-insert-glyph widget
... ... ...)) (t (insert text)))
(let* ((tag ...) (tag-glyph ...) (text ...) (gui ...)) (cond (tag-glyph ...) (... ...
...) (t ...)))
widget-push-button-value-create((push-button :action (lambda (widget &optional
event) (Custom-set)) :help-echo "Make your editing in this buffer take effect for
this session." :tag "Set for Current Session"))
apply(widget-push-button-value-create (push-button :action (lambda (widget &optional
event) (Custom-set)) :help-echo "Make your editing in this buffer take effect for
this session." :tag "Set for Current Session") nil)
widget-apply((push-button :action (lambda (widget &optional event) (Custom-set))
:help-echo "Make your editing in this buffer take effect for this session." :tag
"Set for Current Session") :value-create)
(if (and button-begin (not button-end)) (widget-apply widget :value-create) (setq
value-pos (point)))
(cond ((eq escape ?%) (insert "%")) ((eq escape ?\[) (setq button-begin ...)
(insert ...)) ((eq escape ?\]) (insert ...) (setq button-end ...)) ((eq escape ?{) (setq
sample-begin ...)) ((eq escape ?}) (setq sample-end ...)) ((eq escape ?n) (when ... ...
...)) ((eq escape ?t) (let ... ...)) ((eq escape ?d) (let ... ...)) ((eq escape ?v) (if
... ... ...)) (t (widget-apply widget :format-handler escape)))
(let ((escape ...)) (replace-match "" t t) (cond (... ...) (... ... ...) (...
... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (t ...)))
(while (re-search-forward "%\\(.\\)" nil t) (let (...) (replace-match
"" t t) (cond ... ... ... ... ... ... ... ... ... ...)))
(let ((from ...) button-begin button-end sample-begin sample-end doc-begin doc-end
value-pos) (insert (widget-get widget :format)) (goto-char from) (while (re-search-forward
"%\\(.\\)" nil t) (let ... ... ...)) (and button-begin button-end
(widget-specify-button widget button-begin button-end)) (and sample-begin sample-end
(widget-specify-sample widget sample-begin sample-end)) (and doc-begin doc-end
(widget-specify-doc widget doc-begin doc-end)) (when value-pos (goto-char value-pos)
(widget-apply widget :value-create)))
(progn (let (... button-begin button-end sample-begin sample-end doc-begin doc-end
value-pos) (insert ...) (goto-char from) (while ... ...) (and button-begin button-end ...)
(and sample-begin sample-end ...) (and doc-begin doc-end ...) (when value-pos ... ...))
(let (... ...) (set-marker-insertion-type from t) (set-marker-insertion-type to nil)
(widget-put widget :from from) (widget-put widget :to to)))
(setq result (progn (let ... ... ... ... ... ... ... ...) (let ... ... ... ... ...)))
(let ((inhibit-read-only t) result before-change-functions after-change-functions)
(insert "<>") (narrow-to-region (- ... 2) (point)) (goto-char (1+ ...))
(setq result (progn ... ...)) (delete-region (point-min) (1+ ...)) (delete-region (1- ...)
(point-max)) (goto-char (point-max)) result)
(save-restriction (let (... result before-change-functions after-change-functions)
(insert "<>") (narrow-to-region ... ...) (goto-char ...) (setq result ...)
(delete-region ... ...) (delete-region ... ...) (goto-char ...) result))
(widget-specify-insert (let (... button-begin button-end sample-begin sample-end
doc-begin doc-end value-pos) (insert ...) (goto-char from) (while ... ...) (and
button-begin button-end ...) (and sample-begin sample-end ...) (and doc-begin doc-end ...)
(when value-pos ... ...)) (let (... ...) (set-marker-insertion-type from t)
(set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to
to)))
widget-default-create((push-button :action (lambda (widget &optional event)
(Custom-set)) :help-echo "Make your editing in this buffer take effect for this
session." :tag "Set for Current Session"))
apply(widget-default-create (push-button :action (lambda (widget &optional event)
(Custom-set)) :help-echo "Make your editing in this buffer take effect for this
session." :tag "Set for Current Session") nil)
widget-apply((push-button :action (lambda (widget &optional event) (Custom-set))
:help-echo "Make your editing in this buffer take effect for this session." :tag
"Set for Current Session") :create)
(let ((widget ...)) (widget-apply widget :create) widget)
widget-create(push-button :tag "Set for Current Session" :help-echo "Make
your editing in this buffer take effect for this session." :action (lambda (widget
&optional event) (Custom-set)))
custom-buffer-create-internal(((progress-feedback-style custom-variable)) nil)
custom-buffer-create(((progress-feedback-style custom-variable)) "*Customize
Option: Progress Feedback Style*")
(lambda (symbol) "Customize SYMBOL, which must be a user option variable."
(interactive (custom-variable-prompt)) (custom-buffer-create (list ...) (format
"*Customize Option: %s*" ...)))(progress-feedback-style)
call-interactively(customize-option)
command-execute(customize-option t)
execute-extended-command(nil)
call-interactively(execute-extended-command)
Recent keystrokes:
M-x c u s TAB - v BS o p TAB RET p r o TAB s TAB RET
misc-user
Recent messages (most recent first):
Parsing /home/deacon/csgrad/lmdimi/.mailrc... done
Parsing /home/deacon/csgrad/lmdimi/.mailrc...
Loading mail-abbrevs...done
Loading mail-abbrevs...
Loading emacsbug...done
Wrong type argument: number-char-or-marker-p, nil
Loading emacsbug...
Wrong type argument: number-char-or-marker-p, nil
Wrong type argument: number-char-or-marker-p, nil
Wrong type argument: number-char-or-marker-p, nil