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