* bug#63437: 30.0.50; [BUG] edebug-defun errs on widget-default-create
@ 2023-05-11 6:04 Ruijie Yu via Bug reports for GNU Emacs, the Swiss army knife of text editors
2023-05-11 9:58 ` Eli Zaretskii
0 siblings, 1 reply; 5+ messages in thread
From: Ruijie Yu via Bug reports for GNU Emacs, the Swiss army knife of text editors @ 2023-05-11 6:04 UTC (permalink / raw)
To: 63437
[-- Attachment #1: Type: text/plain, Size: 399 bytes --]
Trying to `edebug-defun' on `widget-default-create' produces an error.
This is reproducible in today's master (see below for config) as well as
28.2 tag (same config options).
Reproducer:
;; -nw or not makes no difference
$ src/emacs -Q -nw -l lisp/wid-edit.el{,}
;; line 1640
C-s defun widget-default-create RET
C-u C-M-x
Full backtrace as shown on the error is attached.
[-- Attachment #2: widget-backtrace.txt --]
[-- Type: text/plain, Size: 85957 bytes --]
Debugger entered--Lisp error: (void-function body)
body((((let ((from (point)) 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 ((escape ...)) (delete-char -2) (cond (... ...) (... ... ...) (... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (t ...)))) (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))) (let ((from (point-min-marker)) (to (point-max-marker))) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 (61068 . 61073) . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 (61320 (61321 . 61327) (61328 ... ... . 61360) . 61361) . 61362) (61365 (61366 . 61377) (61378 . 61380) . 61381) (61384 (61385 . 61389) (61390 (61391 ... ... ... . 61405) (61408 ... ... . 61419) . 61420) (61429 (61430 ... ... ... . 61445) (61448 ... ... ... . 61475) (61478 ... ... . 61530) . 61531) (61540 (61541 ... ... ... . 61556) (61559 ... ... . 61611) (61614 ... ... ... . 61639) . 61640) (61649 (61650 ... ... ... . 61665) (61668 ... ... ... . 61695) . 61696) (61705 (61706 ... ... ... . 61721) (61724 ... ... ... . 61749) . 61750) (61759 (61760 ... ... ... . 61774) (61777 ... ... ... ... . 61878) . 61879) (61888 (61889 ... ... ... . 61903) (61906 ... ... ... . 62192) . 62193) (62202 (62203 ... ... ... . 62217) (62220 ... ... ... . 62462) . 62463) (62472 (62473 ... ... ... . 62487) (62490 ... ... . 62537) . 62538) (62547 (62548 ... ... ... . 62562) (62565 ... ... ... ... . 62676) . 62677) (62686 (62687 . 62688) (62691 ... ... ... ... . 62735) . 62736) . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 (63174 . 63190) . 63191) . 63192) (63195 (63196 . 63198) (63199 (63200 . 63216) . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369))
edebug-list-form((((let ((from (point)) 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 ((escape ...)) (delete-char -2) (cond (... ...) (... ... ...) (... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (t ...)))) (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))) (let ((from (point-min-marker)) (to (point-max-marker))) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 (61068 . 61073) . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 (61320 (61321 . 61327) (61328 ... ... . 61360) . 61361) . 61362) (61365 (61366 . 61377) (61378 . 61380) . 61381) (61384 (61385 . 61389) (61390 (61391 ... ... ... . 61405) (61408 ... ... . 61419) . 61420) (61429 (61430 ... ... ... . 61445) (61448 ... ... ... . 61475) (61478 ... ... . 61530) . 61531) (61540 (61541 ... ... ... . 61556) (61559 ... ... . 61611) (61614 ... ... ... . 61639) . 61640) (61649 (61650 ... ... ... . 61665) (61668 ... ... ... . 61695) . 61696) (61705 (61706 ... ... ... . 61721) (61724 ... ... ... . 61749) . 61750) (61759 (61760 ... ... ... . 61774) (61777 ... ... ... ... . 61878) . 61879) (61888 (61889 ... ... ... . 61903) (61906 ... ... ... . 62192) . 62193) (62202 (62203 ... ... ... . 62217) (62220 ... ... ... . 62462) . 62463) (62472 (62473 ... ... ... . 62487) (62490 ... ... . 62537) . 62538) (62547 (62548 ... ... ... . 62562) (62565 ... ... ... ... . 62676) . 62677) (62686 (62687 . 62688) (62691 ... ... ... ... . 62735) . 62736) . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 (63174 . 63190) . 63191) . 63192) (63195 (63196 . 63198) (63199 (63200 . 63216) . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369))
edebug-form((((widget-specify-insert (let ((from (point)) 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 (...) (delete-char -2) (cond ... ... ... ... ... ... ... ... ... ... ...))) (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))) (let ((from (point-min-marker)) (to (point-max-marker))) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (widget-clear-undo)) (61029 (61030 . 61051) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 (61068 . 61073) . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 (61320 ... ... . 61361) . 61362) (61365 (61366 . 61377) (61378 . 61380) . 61381) (61384 (61385 . 61389) (61390 ... ... . 61420) (61429 ... ... ... . 61531) (61540 ... ... ... . 61640) (61649 ... ... . 61696) (61705 ... ... . 61750) (61759 ... ... . 61879) (61888 ... ... . 62193) (62202 ... ... . 62463) (62472 ... ... . 62538) (62547 ... ... . 62677) (62686 ... ... . 62736) . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 (63174 . 63190) . 63191) . 63192) (63195 (63196 . 63198) (63199 (63200 . 63216) . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369) (63372 (63373 . 63390) . 63391) . 63392))
edebug-match-form((((widget-specify-insert (let ((from (point)) 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 (...) (delete-char -2) (cond ... ... ... ... ... ... ... ... ... ... ...))) (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))) (let ((from (point-min-marker)) (to (point-max-marker))) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (widget-clear-undo)) (61029 (61030 . 61051) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 (61068 . 61073) . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 (61320 ... ... . 61361) . 61362) (61365 (61366 . 61377) (61378 . 61380) . 61381) (61384 (61385 . 61389) (61390 ... ... . 61420) (61429 ... ... ... . 61531) (61540 ... ... ... . 61640) (61649 ... ... . 61696) (61705 ... ... . 61750) (61759 ... ... . 61879) (61888 ... ... . 62193) (62202 ... ... . 62463) (62472 ... ... . 62538) (62547 ... ... . 62677) (62686 ... ... . 62736) . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 (63174 . 63190) . 63191) . 63192) (63195 (63196 . 63198) (63199 (63200 . 63216) . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369) (63372 (63373 . 63390) . 63391) . 63392))
edebug-match-symbol((((widget-specify-insert (let ((from (point)) 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 (...) (delete-char -2) (cond ... ... ... ... ... ... ... ... ... ... ...))) (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))) (let ((from (point-min-marker)) (to (point-max-marker))) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (widget-clear-undo)) (61029 (61030 . 61051) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 (61068 . 61073) . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 (61320 ... ... . 61361) . 61362) (61365 (61366 . 61377) (61378 . 61380) . 61381) (61384 (61385 . 61389) (61390 ... ... . 61420) (61429 ... ... ... . 61531) (61540 ... ... ... . 61640) (61649 ... ... . 61696) (61705 ... ... . 61750) (61759 ... ... . 61879) (61888 ... ... . 62193) (62202 ... ... . 62463) (62472 ... ... . 62538) (62547 ... ... . 62677) (62686 ... ... . 62736) . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 (63174 . 63190) . 63191) . 63192) (63195 (63196 . 63198) (63199 (63200 . 63216) . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369) (63372 (63373 . 63390) . 63391) . 63392) form)
edebug-match-one-spec((((widget-specify-insert (let ((from (point)) 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 (...) (delete-char -2) (cond ... ... ... ... ... ... ... ... ... ... ...))) (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))) (let ((from (point-min-marker)) (to (point-max-marker))) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (widget-clear-undo)) (61029 (61030 . 61051) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 (61068 . 61073) . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 (61320 ... ... . 61361) . 61362) (61365 (61366 . 61377) (61378 . 61380) . 61381) (61384 (61385 . 61389) (61390 ... ... . 61420) (61429 ... ... ... . 61531) (61540 ... ... ... . 61640) (61649 ... ... . 61696) (61705 ... ... . 61750) (61759 ... ... . 61879) (61888 ... ... . 62193) (62202 ... ... . 62463) (62472 ... ... . 62538) (62547 ... ... . 62677) (62686 ... ... . 62736) . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 (63174 . 63190) . 63191) . 63192) (63195 (63196 . 63198) (63199 (63200 . 63216) . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369) (63372 (63373 . 63390) . 63391) . 63392) form)
edebug-match-specs((((widget-specify-insert (let ((from (point)) 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 (...) (delete-char -2) (cond ... ... ... ... ... ... ... ... ... ... ...))) (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))) (let ((from (point-min-marker)) (to (point-max-marker))) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (widget-clear-undo)) (61029 (61030 . 61051) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 (61068 . 61073) . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 (61320 ... ... . 61361) . 61362) (61365 (61366 . 61377) (61378 . 61380) . 61381) (61384 (61385 . 61389) (61390 ... ... . 61420) (61429 ... ... ... . 61531) (61540 ... ... ... . 61640) (61649 ... ... . 61696) (61705 ... ... . 61750) (61759 ... ... . 61879) (61888 ... ... . 62193) (62202 ... ... . 62463) (62472 ... ... . 62538) (62547 ... ... . 62677) (62686 ... ... . 62736) . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 (63174 . 63190) . 63191) . 63192) (63195 (63196 . 63198) (63199 (63200 . 63216) . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369) (63372 (63373 . 63390) . 63391) . 63392) (form) #f(compiled-function (c s rh) #<bytecode -0x1f7329c409f6e7f6>))
edebug-&optional-wrapper((((widget-specify-insert (let ((from (point)) 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 (...) (delete-char -2) (cond ... ... ... ... ... ... ... ... ... ... ...))) (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))) (let ((from (point-min-marker)) (to (point-max-marker))) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (widget-clear-undo)) (61029 (61030 . 61051) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 (61068 . 61073) . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 (61320 ... ... . 61361) . 61362) (61365 (61366 . 61377) (61378 . 61380) . 61381) (61384 (61385 . 61389) (61390 ... ... . 61420) (61429 ... ... ... . 61531) (61540 ... ... ... . 61640) (61649 ... ... . 61696) (61705 ... ... . 61750) (61759 ... ... . 61879) (61888 ... ... . 62193) (62202 ... ... . 62463) (62472 ... ... . 62538) (62547 ... ... . 62677) (62686 ... ... . 62736) . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 (63174 . 63190) . 63191) . 63192) (63195 (63196 . 63198) (63199 (63200 . 63216) . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369) (63372 (63373 . 63390) . 63391) . 63392) (form) #f(compiled-function (c s rh) #<bytecode -0x1f7329c409f6e7f6>))
#f(compiled-function (_ cursor specs) #<bytecode 0xf4075466aed981d>)(&rest (((widget-specify-insert (let ((from (point)) 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 (...) (delete-char -2) (cond ... ... ... ... ... ... ... ... ... ... ...))) (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))) (let ((from (point-min-marker)) (to (point-max-marker))) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (widget-clear-undo)) (61029 (61030 . 61051) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 (61068 . 61073) . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 (61320 ... ... . 61361) . 61362) (61365 (61366 . 61377) (61378 . 61380) . 61381) (61384 (61385 . 61389) (61390 ... ... . 61420) (61429 ... ... ... . 61531) (61540 ... ... ... . 61640) (61649 ... ... . 61696) (61705 ... ... . 61750) (61759 ... ... . 61879) (61888 ... ... . 62193) (62202 ... ... . 62463) (62472 ... ... . 62538) (62547 ... ... . 62677) (62686 ... ... . 62736) . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 (63174 . 63190) . 63191) . 63192) (63195 (63196 . 63198) (63199 (63200 . 63216) . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369) (63372 (63373 . 63390) . 63391) . 63392) (form))
apply(#f(compiled-function (_ cursor specs) #<bytecode 0xf4075466aed981d>) &rest ((((widget-specify-insert (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))) (let ((from ...) (to ...)) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (widget-clear-undo)) (61029 (61030 . 61051) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 ... . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 ... . 61362) (61365 ... ... . 61381) (61384 ... ... ... ... ... ... ... ... ... ... ... ... . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 ... . 63191) . 63192) (63195 (63196 . 63198) (63199 ... . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369) (63372 (63373 . 63390) . 63391) . 63392) (form)))
edebug--match-&-spec-op(&rest (((widget-specify-insert (let ((from (point)) 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 (...) (delete-char -2) (cond ... ... ... ... ... ... ... ... ... ... ...))) (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))) (let ((from (point-min-marker)) (to (point-max-marker))) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (widget-clear-undo)) (61029 (61030 . 61051) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 (61068 . 61073) . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 (61320 ... ... . 61361) . 61362) (61365 (61366 . 61377) (61378 . 61380) . 61381) (61384 (61385 . 61389) (61390 ... ... . 61420) (61429 ... ... ... . 61531) (61540 ... ... ... . 61640) (61649 ... ... . 61696) (61705 ... ... . 61750) (61759 ... ... . 61879) (61888 ... ... . 62193) (62202 ... ... . 62463) (62472 ... ... . 62538) (62547 ... ... . 62677) (62686 ... ... . 62736) . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 (63174 . 63190) . 63191) . 63192) (63195 (63196 . 63198) (63199 (63200 . 63216) . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369) (63372 (63373 . 63390) . 63391) . 63392) (form))
edebug-match-specs((((widget-specify-insert (let ((from (point)) 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 (...) (delete-char -2) (cond ... ... ... ... ... ... ... ... ... ... ...))) (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))) (let ((from (point-min-marker)) (to (point-max-marker))) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (widget-clear-undo)) (61029 (61030 . 61051) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 (61068 . 61073) . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 (61320 ... ... . 61361) . 61362) (61365 (61366 . 61377) (61378 . 61380) . 61381) (61384 (61385 . 61389) (61390 ... ... . 61420) (61429 ... ... ... . 61531) (61540 ... ... ... . 61640) (61649 ... ... . 61696) (61705 ... ... . 61750) (61759 ... ... . 61879) (61888 ... ... . 62193) (62202 ... ... . 62463) (62472 ... ... . 62538) (62547 ... ... . 62677) (62686 ... ... . 62736) . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 (63174 . 63190) . 63191) . 63192) (63195 (63196 . 63198) (63199 (63200 . 63216) . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369) (63372 (63373 . 63390) . 63391) . 63392) (&rest form) edebug-match-specs)
edebug-match((((widget-specify-insert (let ((from (point)) 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 (...) (delete-char -2) (cond ... ... ... ... ... ... ... ... ... ... ...))) (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))) (let ((from (point-min-marker)) (to (point-max-marker))) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (widget-clear-undo)) (61029 (61030 . 61051) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 (61068 . 61073) . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 (61320 ... ... . 61361) . 61362) (61365 (61366 . 61377) (61378 . 61380) . 61381) (61384 (61385 . 61389) (61390 ... ... . 61420) (61429 ... ... ... . 61531) (61540 ... ... ... . 61640) (61649 ... ... . 61696) (61705 ... ... . 61750) (61759 ... ... . 61879) (61888 ... ... . 62193) (62202 ... ... . 62463) (62472 ... ... . 62538) (62547 ... ... . 62677) (62686 ... ... . 62736) . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 (63174 . 63190) . 63191) . 63192) (63195 (63196 . 63198) (63199 (63200 . 63216) . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369) (63372 (63373 . 63390) . 63391) . 63392) (&rest form))
edebug-match-def-body((((widget-specify-insert (let ((from (point)) 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 (...) (delete-char -2) (cond ... ... ... ... ... ... ... ... ... ... ...))) (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))) (let ((from (point-min-marker)) (to (point-max-marker))) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (widget-clear-undo)) (61029 (61030 . 61051) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 (61068 . 61073) . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 (61320 ... ... . 61361) . 61362) (61365 (61366 . 61377) (61378 . 61380) . 61381) (61384 (61385 . 61389) (61390 ... ... . 61420) (61429 ... ... ... . 61531) (61540 ... ... ... . 61640) (61649 ... ... . 61696) (61705 ... ... . 61750) (61759 ... ... . 61879) (61888 ... ... . 62193) (62202 ... ... . 62463) (62472 ... ... . 62538) (62547 ... ... . 62677) (62686 ... ... . 62736) . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 (63174 . 63190) . 63191) . 63192) (63195 (63196 . 63198) (63199 (63200 . 63216) . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369) (63372 (63373 . 63390) . 63391) . 63392))
edebug-match-symbol((((widget-specify-insert (let ((from (point)) 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 (...) (delete-char -2) (cond ... ... ... ... ... ... ... ... ... ... ...))) (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))) (let ((from (point-min-marker)) (to (point-max-marker))) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (widget-clear-undo)) (61029 (61030 . 61051) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 (61068 . 61073) . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 (61320 ... ... . 61361) . 61362) (61365 (61366 . 61377) (61378 . 61380) . 61381) (61384 (61385 . 61389) (61390 ... ... . 61420) (61429 ... ... ... . 61531) (61540 ... ... ... . 61640) (61649 ... ... . 61696) (61705 ... ... . 61750) (61759 ... ... . 61879) (61888 ... ... . 62193) (62202 ... ... . 62463) (62472 ... ... . 62538) (62547 ... ... . 62677) (62686 ... ... . 62736) . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 (63174 . 63190) . 63191) . 63192) (63195 (63196 . 63198) (63199 (63200 . 63216) . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369) (63372 (63373 . 63390) . 63391) . 63392) def-body)
edebug-match-one-spec((((widget-specify-insert (let ((from (point)) 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 (...) (delete-char -2) (cond ... ... ... ... ... ... ... ... ... ... ...))) (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))) (let ((from (point-min-marker)) (to (point-max-marker))) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (widget-clear-undo)) (61029 (61030 . 61051) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 (61068 . 61073) . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 (61320 ... ... . 61361) . 61362) (61365 (61366 . 61377) (61378 . 61380) . 61381) (61384 (61385 . 61389) (61390 ... ... . 61420) (61429 ... ... ... . 61531) (61540 ... ... ... . 61640) (61649 ... ... . 61696) (61705 ... ... . 61750) (61759 ... ... . 61879) (61888 ... ... . 62193) (62202 ... ... . 62463) (62472 ... ... . 62538) (62547 ... ... . 62677) (62686 ... ... . 62736) . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 (63174 . 63190) . 63191) . 63192) (63195 (63196 . 63198) (63199 (63200 . 63216) . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369) (63372 (63373 . 63390) . 63391) . 63392) def-body)
edebug-match-specs((((widget-specify-insert (let ((from (point)) 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 (...) (delete-char -2) (cond ... ... ... ... ... ... ... ... ... ... ...))) (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))) (let ((from (point-min-marker)) (to (point-max-marker))) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (widget-clear-undo)) (61029 (61030 . 61051) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 (61068 . 61073) . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 (61320 ... ... . 61361) . 61362) (61365 (61366 . 61377) (61378 . 61380) . 61381) (61384 (61385 . 61389) (61390 ... ... . 61420) (61429 ... ... ... . 61531) (61540 ... ... ... . 61640) (61649 ... ... . 61696) (61705 ... ... . 61750) (61759 ... ... . 61879) (61888 ... ... . 62193) (62202 ... ... . 62463) (62472 ... ... . 62538) (62547 ... ... . 62677) (62686 ... ... . 62736) . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 (63174 . 63190) . 63191) . 63192) (63195 (63196 . 63198) (63199 (63200 . 63216) . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369) (63372 (63373 . 63390) . 63391) . 63392) (def-body) edebug-match-specs)
edebug-match-specs((((widget-specify-insert (let ((from (point)) 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 (...) (delete-char -2) (cond ... ... ... ... ... ... ... ... ... ... ...))) (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))) (let ((from (point-min-marker)) (to (point-max-marker))) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (widget-clear-undo)) (61029 (61030 . 61051) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 (61068 . 61073) . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 (61320 ... ... . 61361) . 61362) (61365 (61366 . 61377) (61378 . 61380) . 61381) (61384 (61385 . 61389) (61390 ... ... . 61420) (61429 ... ... ... . 61531) (61540 ... ... ... . 61640) (61649 ... ... . 61696) (61705 ... ... . 61750) (61759 ... ... . 61879) (61888 ... ... . 62193) (62202 ... ... . 62463) (62472 ... ... . 62538) (62547 ... ... . 62677) (62686 ... ... . 62736) . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 (63174 . 63190) . 63191) . 63192) (63195 (63196 . 63198) (63199 (63200 . 63216) . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369) (63372 (63373 . 63390) . 63391) . 63392) ([&optional ("interactive" &optional [&or stringp def-form] &rest symbolp)] def-body) edebug-match-specs)
edebug-match-specs((((widget-specify-insert (let ((from (point)) 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 (...) (delete-char -2) (cond ... ... ... ... ... ... ... ... ... ... ...))) (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))) (let ((from (point-min-marker)) (to (point-max-marker))) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (widget-clear-undo)) (61029 (61030 . 61051) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 (61068 . 61073) . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 (61320 ... ... . 61361) . 61362) (61365 (61366 . 61377) (61378 . 61380) . 61381) (61384 (61385 . 61389) (61390 ... ... . 61420) (61429 ... ... ... . 61531) (61540 ... ... ... . 61640) (61649 ... ... . 61696) (61705 ... ... . 61750) (61759 ... ... . 61879) (61888 ... ... . 62193) (62202 ... ... . 62463) (62472 ... ... . 62538) (62547 ... ... . 62677) (62686 ... ... . 62736) . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 (63174 . 63190) . 63191) . 63192) (63195 (63196 . 63198) (63199 (63200 . 63216) . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369) (63372 (63373 . 63390) . 63391) . 63392) ([&optional ("declare" def-declarations)] [&optional ("interactive" &optional [&or stringp def-form] &rest symbolp)] def-body) edebug-match-specs)
edebug-match-specs((((widget-specify-insert (let ((from (point)) 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 (...) (delete-char -2) (cond ... ... ... ... ... ... ... ... ... ... ...))) (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))) (let ((from (point-min-marker)) (to (point-max-marker))) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (widget-clear-undo)) (61029 (61030 . 61051) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 (61068 . 61073) . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 (61320 ... ... . 61361) . 61362) (61365 (61366 . 61377) (61378 . 61380) . 61381) (61384 (61385 . 61389) (61390 ... ... . 61420) (61429 ... ... ... . 61531) (61540 ... ... ... . 61640) (61649 ... ... . 61696) (61705 ... ... . 61750) (61759 ... ... . 61879) (61888 ... ... . 62193) (62202 ... ... . 62463) (62472 ... ... . 62538) (62547 ... ... . 62677) (62686 ... ... . 62736) . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 (63174 . 63190) . 63191) . 63192) (63195 (63196 . 63198) (63199 (63200 . 63216) . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369) (63372 (63373 . 63390) . 63391) . 63392) (lambda-doc [&optional ("declare" def-declarations)] [&optional ("interactive" &optional [&or stringp def-form] &rest symbolp)] def-body) edebug-match-specs)
edebug-match-specs((((widget-specify-insert (let ((from (point)) 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 (...) (delete-char -2) (cond ... ... ... ... ... ... ... ... ... ... ...))) (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))) (let ((from (point-min-marker)) (to (point-max-marker))) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (widget-clear-undo)) (61029 (61030 . 61051) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 (61068 . 61073) . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 (61320 ... ... . 61361) . 61362) (61365 (61366 . 61377) (61378 . 61380) . 61381) (61384 (61385 . 61389) (61390 ... ... . 61420) (61429 ... ... ... . 61531) (61540 ... ... ... . 61640) (61649 ... ... . 61696) (61705 ... ... . 61750) (61759 ... ... . 61879) (61888 ... ... . 62193) (62202 ... ... . 62463) (62472 ... ... . 62538) (62547 ... ... . 62677) (62686 ... ... . 62736) . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 (63174 . 63190) . 63191) . 63192) (63195 (63196 . 63198) (63199 (63200 . 63216) . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369) (63372 (63373 . 63390) . 63391) . 63392) (lambda-list lambda-doc [&optional ("declare" def-declarations)] [&optional ("interactive" &optional [&or stringp def-form] &rest symbolp)] def-body) edebug-match-specs)
edebug-match-specs((((widget-specify-insert (let ((from (point)) 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 (...) (delete-char -2) (cond ... ... ... ... ... ... ... ... ... ... ...))) (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))) (let ((from (point-min-marker)) (to (point-max-marker))) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (widget-clear-undo)) (61029 (61030 . 61051) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 (61068 . 61073) . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 (61320 ... ... . 61361) . 61362) (61365 (61366 . 61377) (61378 . 61380) . 61381) (61384 (61385 . 61389) (61390 ... ... . 61420) (61429 ... ... ... . 61531) (61540 ... ... ... . 61640) (61649 ... ... . 61696) (61705 ... ... . 61750) (61759 ... ... . 61879) (61888 ... ... . 62193) (62202 ... ... . 62463) (62472 ... ... . 62538) (62547 ... ... . 62677) (62686 ... ... . 62736) . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 (63174 . 63190) . 63191) . 63192) (63195 (63196 . 63198) (63199 (63200 . 63216) . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369) (63372 (63373 . 63390) . 63391) . 63392) (name lambda-list lambda-doc [&optional ("declare" def-declarations)] [&optional ("interactive" &optional [&or stringp def-form] &rest symbolp)] def-body) edebug-match-specs)
edebug-match-specs((((widget-specify-insert (let ((from (point)) 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 (...) (delete-char -2) (cond ... ... ... ... ... ... ... ... ... ... ...))) (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))) (let ((from (point-min-marker)) (to (point-max-marker))) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (widget-clear-undo)) (61029 (61030 . 61051) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 (61068 . 61073) . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 (61320 ... ... . 61361) . 61362) (61365 (61366 . 61377) (61378 . 61380) . 61381) (61384 (61385 . 61389) (61390 ... ... . 61420) (61429 ... ... ... . 61531) (61540 ... ... ... . 61640) (61649 ... ... . 61696) (61705 ... ... . 61750) (61759 ... ... . 61879) (61888 ... ... . 62193) (62202 ... ... . 62463) (62472 ... ... . 62538) (62547 ... ... . 62677) (62686 ... ... . 62736) . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 (63174 . 63190) . 63191) . 63192) (63195 (63196 . 63198) (63199 (63200 . 63216) . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369) (63372 (63373 . 63390) . 63391) . 63392) ("defun" name lambda-list lambda-doc [&optional ("declare" def-declarations)] [&optional ("interactive" &optional [&or stringp def-form] &rest symbolp)] def-body) edebug-match-specs)
edebug-match-sublist((((widget-specify-insert (let ((from (point)) 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 (...) (delete-char -2) (cond ... ... ... ... ... ... ... ... ... ... ...))) (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))) (let ((from (point-min-marker)) (to (point-max-marker))) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (widget-clear-undo)) (61029 (61030 . 61051) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 (61068 . 61073) . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 (61320 ... ... . 61361) . 61362) (61365 (61366 . 61377) (61378 . 61380) . 61381) (61384 (61385 . 61389) (61390 ... ... . 61420) (61429 ... ... ... . 61531) (61540 ... ... ... . 61640) (61649 ... ... . 61696) (61705 ... ... . 61750) (61759 ... ... . 61879) (61888 ... ... . 62193) (62202 ... ... . 62463) (62472 ... ... . 62538) (62547 ... ... . 62677) (62686 ... ... . 62736) . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 (63174 . 63190) . 63191) . 63192) (63195 (63196 . 63198) (63199 (63200 . 63216) . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369) (63372 (63373 . 63390) . 63391) . 63392) ("defun" name lambda-list lambda-doc [&optional ("declare" def-declarations)] [&optional ("interactive" &optional [&or stringp def-form] &rest symbolp)] def-body))
edebug-match-list((((defun widget-default-create (widget) "Create WIDGET at point in the current buffer." (widget-specify-insert (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))) (let ((from ...) (to ...)) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (widget-clear-undo))) (60939 (60940 . 60945) (60946 . 60967) (60968 (60969 . 60975) . 60976) (60979 . 61026) (61029 (61030 . 61051) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 ... . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 ... . 61362) (61365 ... ... . 61381) (61384 ... ... ... ... ... ... ... ... ... ... ... ... . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 ... . 63191) . 63192) (63195 (63196 . 63198) (63199 ... . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369) (63372 (63373 . 63390) . 63391) . 63392)) ("defun" name lambda-list lambda-doc [&optional ("declare" def-declarations)] [&optional ("interactive" &optional [&or stringp def-form] &rest symbolp)] def-body))
edebug-match-one-spec((((defun widget-default-create (widget) "Create WIDGET at point in the current buffer." (widget-specify-insert (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))) (let ((from ...) (to ...)) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (widget-clear-undo))) (60939 (60940 . 60945) (60946 . 60967) (60968 (60969 . 60975) . 60976) (60979 . 61026) (61029 (61030 . 61051) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 ... . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 ... . 61362) (61365 ... ... . 61381) (61384 ... ... ... ... ... ... ... ... ... ... ... ... . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 ... . 63191) . 63192) (63195 (63196 . 63198) (63199 ... . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369) (63372 (63373 . 63390) . 63391) . 63392)) ("defun" name lambda-list lambda-doc [&optional ("declare" def-declarations)] [&optional ("interactive" &optional [&or stringp def-form] &rest symbolp)] def-body))
edebug-match-specs((((defun widget-default-create (widget) "Create WIDGET at point in the current buffer." (widget-specify-insert (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))) (let ((from ...) (to ...)) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (widget-clear-undo))) (60939 (60940 . 60945) (60946 . 60967) (60968 (60969 . 60975) . 60976) (60979 . 61026) (61029 (61030 . 61051) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 ... . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 ... . 61362) (61365 ... ... . 61381) (61384 ... ... ... ... ... ... ... ... ... ... ... ... . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 ... . 63191) . 63192) (63195 (63196 . 63198) (63199 ... . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369) (63372 (63373 . 63390) . 63391) . 63392)) (("defun" name lambda-list lambda-doc [&optional ("declare" def-declarations)] [&optional ("interactive" &optional [&or stringp def-form] &rest symbolp)] def-body)) edebug-match-specs)
edebug-match((((defun widget-default-create (widget) "Create WIDGET at point in the current buffer." (widget-specify-insert (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))) (let ((from ...) (to ...)) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (widget-clear-undo))) (60939 (60940 . 60945) (60946 . 60967) (60968 (60969 . 60975) . 60976) (60979 . 61026) (61029 (61030 . 61051) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 ... . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 ... . 61362) (61365 ... ... . 61381) (61384 ... ... ... ... ... ... ... ... ... ... ... ... . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 ... . 63191) . 63192) (63195 (63196 . 63198) (63199 ... . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369) (63372 (63373 . 63390) . 63391) . 63392)) (("defun" name lambda-list lambda-doc [&optional ("declare" def-declarations)] [&optional ("interactive" &optional [&or stringp def-form] &rest symbolp)] def-body)))
edebug-make-form-wrapper((((defun widget-default-create (widget) "Create WIDGET at point in the current buffer." (widget-specify-insert (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))) (let ((from ...) (to ...)) (set-marker-insertion-type from t) (set-marker-insertion-type to nil) (widget-put widget :from from) (widget-put widget :to to))) (widget-clear-undo))) (60939 (60940 . 60945) (60946 . 60967) (60968 (60969 . 60975) . 60976) (60979 . 61026) (61029 (61030 . 61051) (61055 (61056 . 61059) (61060 (61061 (61062 . 61066) (61067 ... . 61074) . 61075) (61078 . 61090) (61091 . 61101) (61104 . 61116) (61117 . 61127) (61130 . 61139) (61140 . 61147) (61150 . 61159) . 61160) (61166 (61167 . 61173) (61174 (61175 . 61185) (61186 . 61192) (61193 . 61200) . 61201) . 61202) (61208 (61209 . 61218) (61219 . 61223) . 61224) (61263 (61264 . 61269) (61270 (61271 . 61288) (61289 . 61299) (61300 . 61303) (61304 . 61305) . 61306) (61314 (61315 . 61318) (61319 ... . 61362) (61365 ... ... . 61381) (61384 ... ... ... ... ... ... ... ... ... ... ... ... . 62737) . 62738) . 62739) (62804 (62805 . 62808) (62809 . 62821) (62822 . 62832) (62836 (62837 . 62858) (62859 . 62865) (62866 . 62878) (62879 . 62889) . 62890) . 62891) (62897 (62898 . 62901) (62902 . 62914) (62915 . 62925) (62929 (62930 . 62951) (62952 . 62958) (62959 . 62971) (62972 . 62982) . 62983) . 62984) (62990 (62991 . 62994) (62995 . 63004) (63005 . 63012) (63016 (63017 . 63035) (63036 . 63042) (63043 . 63052) (63053 . 63060) . 63061) . 63062) (63068 (63069 . 63073) (63074 . 63083) (63091 (63092 . 63101) (63102 . 63111) . 63112) (63120 (63121 . 63133) (63134 . 63140) (63141 . 63154) . 63155) . 63156) . 63157) (63161 (63162 . 63165) (63166 (63167 (63168 . 63172) (63173 ... . 63191) . 63192) (63195 (63196 . 63198) (63199 ... . 63217) . 63218) . 63219) (63225 (63226 . 63251) (63252 . 63256) (63257 . 63258) . 63259) (63265 (63266 . 63291) (63292 . 63294) (63295 . 63298) . 63299) (63305 (63306 . 63316) (63317 . 63323) (63324 . 63329) (63330 . 63334) . 63335) (63341 (63342 . 63352) (63353 . 63359) (63360 . 63363) (63364 . 63366) . 63367) . 63368) . 63369) (63372 (63373 . 63390) . 63391) . 63392)) 60939 63391 (("defun" name lambda-list lambda-doc [&optional ("declare" def-declarations)] [&optional ("interactive" &optional [&or stringp def-form] &rest symbolp)] def-body)))
edebug-read-and-maybe-wrap-form1()
edebug-read-and-maybe-wrap-form()
edebug--read(read #<buffer wid-edit.el>)
apply(edebug--read read #<buffer wid-edit.el>)
#f(advice edebug--read :around read)(#<buffer wid-edit.el>)
elisp--eval-defun()
#<subr eval-defun>(nil)
edebug--eval-defun(#<subr eval-defun> t)
apply(edebug--eval-defun #<subr eval-defun> t)
eval-defun(t)
eval-defun((4))
funcall-interactively(eval-defun (4))
command-execute(eval-defun)
[-- Attachment #3: Type: text/plain, Size: 847 bytes --]
In GNU Emacs 30.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version
3.24.37, cairo version 1.17.8) of 2023-05-11 built on fw.net.yu
Repository revision: e4c8ba6c0589f1ba0ba9993c4f1e9c0821d3ca6c
Repository branch: master
System Description: Arch Linux
Configured using:
'configure --sysconfdir=/etc --prefix=/usr --localstatedir=/var
--with-cairo --with-harfbuzz --with-libsystemd --with-modules
--with-pgtk --with-native-compilation'
Configured features:
ACL CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GPM GSETTINGS HARFBUZZ JPEG
JSON LCMS2 LIBOTF LIBSYSTEMD LIBXML2 MODULES NATIVE_COMP NOTIFY INOTIFY
PDUMPER PGTK PNG RSVG SECCOMP SOUND SQLITE3 THREADS TIFF
TOOLKIT_SCROLL_BARS TREE_SITTER WEBP XIM GTK3 ZLIB
Important settings:
value of $LANG: en_US.UTF-8
value of $XMODIFIERS: @im=fcitx
locale-coding-system: utf-8-unix
--
Best,
RY
^ permalink raw reply [flat|nested] 5+ messages in thread
* bug#63437: 30.0.50; [BUG] edebug-defun errs on widget-default-create
2023-05-11 6:04 bug#63437: 30.0.50; [BUG] edebug-defun errs on widget-default-create Ruijie Yu via Bug reports for GNU Emacs, the Swiss army knife of text editors
@ 2023-05-11 9:58 ` Eli Zaretskii
2023-05-18 11:24 ` Eli Zaretskii
2023-05-18 13:43 ` Stefan Monnier via Bug reports for GNU Emacs, the Swiss army knife of text editors
0 siblings, 2 replies; 5+ messages in thread
From: Eli Zaretskii @ 2023-05-11 9:58 UTC (permalink / raw)
To: Ruijie Yu, Stefan Monnier; +Cc: 63437
> Date: Thu, 11 May 2023 14:04:33 +0800
> From: Ruijie Yu via "Bug reports for GNU Emacs,
> the Swiss army knife of text editors" <bug-gnu-emacs@gnu.org>
>
> Trying to `edebug-defun' on `widget-default-create' produces an error.
>
> This is reproducible in today's master (see below for config) as well as
> 28.2 tag (same config options).
>
> Reproducer:
>
> ;; -nw or not makes no difference
> $ src/emacs -Q -nw -l lisp/wid-edit.el{,}
>
> ;; line 1640
> C-s defun widget-default-create RET
> C-u C-M-x
>
> Full backtrace as shown on the error is attached.
Thanks, should be fixed now on the emacs-29 branch.
Stefan, is that the right fix? I'm asking because the ELisp manual is
not entirely clear on this, and I see at least one more case of
(declare (debug body))
in our tree, in benchmark.el. Is that also a bug?
^ permalink raw reply [flat|nested] 5+ messages in thread
* bug#63437: 30.0.50; [BUG] edebug-defun errs on widget-default-create
2023-05-11 9:58 ` Eli Zaretskii
@ 2023-05-18 11:24 ` Eli Zaretskii
2023-05-18 13:43 ` Stefan Monnier via Bug reports for GNU Emacs, the Swiss army knife of text editors
1 sibling, 0 replies; 5+ messages in thread
From: Eli Zaretskii @ 2023-05-18 11:24 UTC (permalink / raw)
To: monnier; +Cc: ruijie, 63437
Ping! Stefan, could you please chime in and answer my question below?
> Cc: 63437@debbugs.gnu.org
> Date: Thu, 11 May 2023 12:58:22 +0300
> From: Eli Zaretskii <eliz@gnu.org>
>
> > Date: Thu, 11 May 2023 14:04:33 +0800
> > From: Ruijie Yu via "Bug reports for GNU Emacs,
> > the Swiss army knife of text editors" <bug-gnu-emacs@gnu.org>
> >
> > Trying to `edebug-defun' on `widget-default-create' produces an error.
> >
> > This is reproducible in today's master (see below for config) as well as
> > 28.2 tag (same config options).
> >
> > Reproducer:
> >
> > ;; -nw or not makes no difference
> > $ src/emacs -Q -nw -l lisp/wid-edit.el{,}
> >
> > ;; line 1640
> > C-s defun widget-default-create RET
> > C-u C-M-x
> >
> > Full backtrace as shown on the error is attached.
>
> Thanks, should be fixed now on the emacs-29 branch.
>
> Stefan, is that the right fix? I'm asking because the ELisp manual is
> not entirely clear on this, and I see at least one more case of
>
> (declare (debug body))
>
> in our tree, in benchmark.el. Is that also a bug?
>
>
>
>
^ permalink raw reply [flat|nested] 5+ messages in thread
* bug#63437: 30.0.50; [BUG] edebug-defun errs on widget-default-create
2023-05-11 9:58 ` Eli Zaretskii
2023-05-18 11:24 ` Eli Zaretskii
@ 2023-05-18 13:43 ` Stefan Monnier via Bug reports for GNU Emacs, the Swiss army knife of text editors
2023-05-18 14:21 ` Eli Zaretskii
1 sibling, 1 reply; 5+ messages in thread
From: Stefan Monnier via Bug reports for GNU Emacs, the Swiss army knife of text editors @ 2023-05-18 13:43 UTC (permalink / raw)
To: Eli Zaretskii; +Cc: Ruijie Yu, 63437
> Ping! Stefan, could you please chime in and answer my question below?
Sorry, fell through.
> Thanks, should be fixed now on the emacs-29 branch.
> Stefan, is that the right fix?
I'd have used
(declare (debug t))
but the
(declare (debug (body)))
does the trick as well, yes.
> I'm asking because the ELisp manual is
> not entirely clear on this, and I see at least one more case of
>
> (declare (debug body))
>
> in our tree, in benchmark.el. Is that also a bug?
Yes.
Stefan
^ permalink raw reply [flat|nested] 5+ messages in thread
* bug#63437: 30.0.50; [BUG] edebug-defun errs on widget-default-create
2023-05-18 13:43 ` Stefan Monnier via Bug reports for GNU Emacs, the Swiss army knife of text editors
@ 2023-05-18 14:21 ` Eli Zaretskii
0 siblings, 0 replies; 5+ messages in thread
From: Eli Zaretskii @ 2023-05-18 14:21 UTC (permalink / raw)
To: Stefan Monnier; +Cc: ruijie, 63437-done
> From: Stefan Monnier <monnier@iro.umontreal.ca>
> Cc: Ruijie Yu <ruijie@netyu.xyz>, 63437@debbugs.gnu.org
> Date: Thu, 18 May 2023 09:43:25 -0400
>
> > I'm asking because the ELisp manual is
> > not entirely clear on this, and I see at least one more case of
> >
> > (declare (debug body))
> >
> > in our tree, in benchmark.el. Is that also a bug?
>
> Yes.
Thanks, fixed, and closing the bug.
^ permalink raw reply [flat|nested] 5+ messages in thread
end of thread, other threads:[~2023-05-18 14:21 UTC | newest]
Thread overview: 5+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2023-05-11 6:04 bug#63437: 30.0.50; [BUG] edebug-defun errs on widget-default-create Ruijie Yu via Bug reports for GNU Emacs, the Swiss army knife of text editors
2023-05-11 9:58 ` Eli Zaretskii
2023-05-18 11:24 ` Eli Zaretskii
2023-05-18 13:43 ` Stefan Monnier via Bug reports for GNU Emacs, the Swiss army knife of text editors
2023-05-18 14:21 ` Eli Zaretskii
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).