widget-push-button-value-create broken in latest 21.2 CVS?
When I evaluate the next line
(widget-create 'push-button "Push me!")
I get floowing *Backtrace*.
I wasn't able to come up with a fix, although I tried.
Andy will know, I'm sure :-)
Later,
Adrian
Signaling: (wrong-type-argument listp :descriptor)
nth(0 :descriptor)
(list (nth 0 (aref gui 1)) (apply (function vector) (list ... ... text)))
)
(backquote ((\, ...) [string :data ...]))
)
(make-glyph (backquote (... ...)))
)
(list (make-glyph (backquote ...)) (make-glyph (backquote ...)) (make-glyph (backquote
...)))
)
(setq gui-glyphs (list (make-glyph ...) (make-glyph ...) (make-glyph ...)))
)
(let* ((gui-button-shadow-thickness 1) (gui ...)) (setq gui-glyphs (list ... ... ...))
(laxputf widget-push-button-cache tag gui-glyphs))
)
(if gui-glyphs nil (let* (... ...) (setq gui-glyphs ...) (laxputf
widget-push-button-cache tag gui-glyphs)))
)
(unless gui-glyphs (let* (... ...) (setq gui-glyphs ...) (laxputf
widget-push-button-cache tag gui-glyphs)))
)
(cond (tag-glyph (widget-glyph-insert widget text tag-glyph)) ((and
widget-push-button-gui ...) (unless gui-glyphs ...) (widget-glyph-insert-glyph widget ...
... ...)) (t (insert text)))
)
(let* ((tag ...) (tag-glyph ...) (text ...) (gui-glyphs ...)) (cond (tag-glyph ...) (...
... ...) (t ...)))
)
widget-push-button-value-create((push-button :value "Push me!" :args nil))
widget-apply((push-button :value "Push me!" :args nil) :value-create)
(if (and button-begin (not button-end)) (widget-apply widget :value-create) (setq
value-pos (point-marker)))
)
(cond ((eq escape ?\%) (insert "%")) ((eq escape ?\[) (setq button-begin ...)
(set-marker-insertion-type button-begin nil)) ((eq escape ?\]) (setq button-end ...)
(set-marker-insertion-type button-end nil)) ((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 button-glyph 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 ... ... ...)) (when (and button-begin
button-end) (unless button-glyph ... ... ... ... ...) (widget-specify-button widget
button-begin button-end) (set-marker button-begin nil) (set-marker button-end nil)) (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 button-glyph sample-begin sample-end doc-begin
doc-end value-pos) (insert ...) (goto-char from) (while ... ...) (when ... ... ... ...
...) (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)))
)
(prog1 (progn (let ... ... ... ... ... ... ... ...) (let ... ... ... ... ...))
(delete-region (point-min) (1+ ...)) (delete-region (1- ...) (point-max)) (goto-char
(point-max)))
)
(let ((inhibit-read-only t) before-change-functions after-change-functions) (insert
"<>") (narrow-to-region (- ... 2) (point)) (goto-char (1+ ...)) (prog1
(progn ... ...) (delete-region ... ...) (delete-region ... ...) (goto-char ...)))
)
(save-restriction (let (... before-change-functions after-change-functions) (insert
"<>") (narrow-to-region ... ...) (goto-char ...) (prog1 ... ... ...
...)))
)
(widget-specify-insert (let (... button-begin button-end button-glyph sample-begin
sample-end doc-begin doc-end value-pos) (insert ...) (goto-char from) (while ... ...)
(when ... ... ... ... ...) (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 :value "Push me!" :args nil))
widget-apply((push-button :value "Push me!" :args nil) :create)
(let ((widget ...)) (widget-apply widget :create) widget)
)
widget-create(push-button "Push me!")
eval((widget-create (quote push-button) "Push me!"))
eval-interactive((widget-create (quote push-button) "Push me!"))
eval-last-sexp(nil)
call-interactively(eval-last-sexp)