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) #)) 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) #)) #f(compiled-function (_ cursor specs) #)(&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) #) &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 #) apply(edebug--read read #) #f(advice edebug--read :around read)(#) elisp--eval-defun() #(nil) edebug--eval-defun(# t) apply(edebug--eval-defun # t) eval-defun(t) eval-defun((4)) funcall-interactively(eval-defun (4)) command-execute(eval-defun)