GNU bug report logs - #27363
26.0.50; Error with customize-group

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 27363 in the body.
You can then email your comments to 27363 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Simen Heggestøyl <simenheg <at> gmail.com>
To: bug-gnu-emacs <at> gnu.org
Subject: 26.0.50; Error with customize-group
Date: Wed, 14 Jun 2017 21:24:20 +0200

Typing 'M-x customize-group RET css RET' results in an error and an
unusable customization buffer.

A backtrace follows:

Debugger entered--Lisp error: (wrong-type-argument listp (character))
 widget-put((repeat character) :options ((125 59)))
 custom-variable-type(css-electric-keys)
 custom-variable-value-create((custom-variable :group (custom-group 
:documentation-shown t :custom-state unknown :tag "Css" :value css 
:buttons ((custom-magic :args (nil) :indent 0 :parent #2 :children 
((choice-item :help-echo "Change the state of this item." :format 
"%[%t%]" :button-prefix widget-push-button-prefix :button-suffix 
widget-push-button-suffix :mouse-down-action 
widget-magic-mouse-down-action :tag " State " :parent #4 :indent 0 
:button-overlay #<overlay from 342 to 349 in *Customize Group: Css*> 
:from #<marker (moves after insertion) at 342 in *Customize Group: 
Css*> :to #<marker at 349 in *Customize Group: Css*>)) :from #<marker 
(moves after insertion) at 336 in *Customize Group: Css*> :to #<marker 
at 388 in *Customize Group: Css*>)) :sample-overlay #<overlay from 282 
to 293 in *Customize Group: Css*> :custom-magic (custom-magic :args 
(nil) :indent 0 :parent #2 :children ((choice-item :help-echo "Change 
the state of this item." :format "%[%t%]" :button-prefix 
widget-push-button-prefix :button-suffix widget-push-button-suffix 
:mouse-down-action widget-magic-mouse-down-action :tag " State " 
:parent #3 :indent 0 :button-overlay #<overlay from 342 to 349 in 
*Customize Group: Css*> :from #<marker (moves after insertion) at 342 
in *Customize Group: Css*> :to #<marker at 349 in *Customize Group: 
Css*>)) :from #<marker (moves after insertion) at 336 in *Customize 
Group: Css*> :to #<marker at 388 in *Customize Group: Css*>)) :tag "Css 
Electric Keys" :custom-prefixes ("css-") :custom-level 2 :value 
css-electric-keys :parent (custom-group :documentation-shown t 
:custom-state unknown :tag "Css" :value css :buttons ((custom-magic 
:args (nil) :indent 0 :parent #2 :children ((choice-item :help-echo 
"Change the state of this item." :format "%[%t%]" :button-prefix 
widget-push-button-prefix :button-suffix widget-push-button-suffix 
:mouse-down-action widget-magic-mouse-down-action :tag " State " 
:parent #4 :indent 0 :button-overlay #<overlay from 342 to 349 in 
*Customize Group: Css*> :from #<marker (moves after insertion) at 342 
in *Customize Group: Css*> :to #<marker at 349 in *Customize Group: 
Css*>)) :from #<marker (moves after insertion) at 336 in *Customize 
Group: Css*> :to #<marker at 388 in *Customize Group: Css*>)) 
:sample-overlay #<overlay from 282 to 293 in *Customize Group: Css*> 
:custom-magic (custom-magic :args (nil) :indent 0 :parent #2 :children 
((choice-item :help-echo "Change the state of this item." :format 
"%[%t%]" :button-prefix widget-push-button-prefix :button-suffix 
widget-push-button-suffix :mouse-down-action 
widget-magic-mouse-down-action :tag " State " :parent #3 :indent 0 
:button-overlay #<overlay from 342 to 349 in *Customize Group: Css*> 
:from #<marker (moves after insertion) at 342 in *Customize Group: 
Css*> :to #<marker at 349 in *Customize Group: Css*>)) :from #<marker 
(moves after insertion) at 336 in *Customize Group: Css*> :to #<marker 
at 388 in *Customize Group: Css*>)) :indent 0 :custom-form edit))
 widget-apply((custom-variable :group (custom-group 
:documentation-shown t :custom-state unknown :tag "Css" :value css 
:buttons ((custom-magic :args (nil) :indent 0 :parent #2 :children 
((choice-item :help-echo "Change the state of this item." :format 
"%[%t%]" :button-prefix widget-push-button-prefix :button-suffix 
widget-push-button-suffix :mouse-down-action 
widget-magic-mouse-down-action :tag " State " :parent #4 :indent 0 
:button-overlay #<overlay from 342 to 349 in *Customize Group: Css*> 
:from #<marker (moves after insertion) at 342 in *Customize Group: 
Css*> :to #<marker at 349 in *Customize Group: Css*>)) :from #<marker 
(moves after insertion) at 336 in *Customize Group: Css*> :to #<marker 
at 388 in *Customize Group: Css*>)) :sample-overlay #<overlay from 282 
to 293 in *Customize Group: Css*> :custom-magic (custom-magic :args 
(nil) :indent 0 :parent #2 :children ((choice-item :help-echo "Change 
the state of this item." :format "%[%t%]" :button-prefix 
widget-push-button-prefix :button-suffix widget-push-button-suffix 
:mouse-down-action widget-magic-mouse-down-action :tag " State " 
:parent #3 :indent 0 :button-overlay #<overlay from 342 to 349 in 
*Customize Group: Css*> :from #<marker (moves after insertion) at 342 
in *Customize Group: Css*> :to #<marker at 349 in *Customize Group: 
Css*>)) :from #<marker (moves after insertion) at 336 in *Customize 
Group: Css*> :to #<marker at 388 in *Customize Group: Css*>)) :tag "Css 
Electric Keys" :custom-prefixes ("css-") :custom-level 2 :value 
css-electric-keys :parent (custom-group :documentation-shown t 
:custom-state unknown :tag "Css" :value css :buttons ((custom-magic 
:args (nil) :indent 0 :parent #2 :children ((choice-item :help-echo 
"Change the state of this item." :format "%[%t%]" :button-prefix 
widget-push-button-prefix :button-suffix widget-push-button-suffix 
:mouse-down-action widget-magic-mouse-down-action :tag " State " 
:parent #4 :indent 0 :button-overlay #<overlay from 342 to 349 in 
*Customize Group: Css*> :from #<marker (moves after insertion) at 342 
in *Customize Group: Css*> :to #<marker at 349 in *Customize Group: 
Css*>)) :from #<marker (moves after insertion) at 336 in *Customize 
Group: Css*> :to #<marker at 388 in *Customize Group: Css*>)) 
:sample-overlay #<overlay from 282 to 293 in *Customize Group: Css*> 
:custom-magic (custom-magic :args (nil) :indent 0 :parent #2 :children 
((choice-item :help-echo "Change the state of this item." :format 
"%[%t%]" :button-prefix widget-push-button-prefix :button-suffix 
widget-push-button-suffix :mouse-down-action 
widget-magic-mouse-down-action :tag " State " :parent #3 :indent 0 
:button-overlay #<overlay from 342 to 349 in *Customize Group: Css*> 
:from #<marker (moves after insertion) at 342 in *Customize Group: 
Css*> :to #<marker at 349 in *Customize Group: Css*>)) :from #<marker 
(moves after insertion) at 336 in *Customize Group: Css*> :to #<marker 
at 388 in *Customize Group: Css*>)) :indent 0 :custom-form edit) 
:value-create)
 widget-default-create((custom-variable :group (custom-group 
:documentation-shown t :custom-state unknown :tag "Css" :value css 
:buttons ((custom-magic :args (nil) :indent 0 :parent #2 :children 
((choice-item :help-echo "Change the state of this item." :format 
"%[%t%]" :button-prefix widget-push-button-prefix :button-suffix 
widget-push-button-suffix :mouse-down-action 
widget-magic-mouse-down-action :tag " State " :parent #4 :indent 0 
:button-overlay #<overlay from 342 to 349 in *Customize Group: Css*> 
:from #<marker (moves after insertion) at 342 in *Customize Group: 
Css*> :to #<marker at 349 in *Customize Group: Css*>)) :from #<marker 
(moves after insertion) at 336 in *Customize Group: Css*> :to #<marker 
at 388 in *Customize Group: Css*>)) :sample-overlay #<overlay from 282 
to 293 in *Customize Group: Css*> :custom-magic (custom-magic :args 
(nil) :indent 0 :parent #2 :children ((choice-item :help-echo "Change 
the state of this item." :format "%[%t%]" :button-prefix 
widget-push-button-prefix :button-suffix widget-push-button-suffix 
:mouse-down-action widget-magic-mouse-down-action :tag " State " 
:parent #3 :indent 0 :button-overlay #<overlay from 342 to 349 in 
*Customize Group: Css*> :from #<marker (moves after insertion) at 342 
in *Customize Group: Css*> :to #<marker at 349 in *Customize Group: 
Css*>)) :from #<marker (moves after insertion) at 336 in *Customize 
Group: Css*> :to #<marker at 388 in *Customize Group: Css*>)) :tag "Css 
Electric Keys" :custom-prefixes ("css-") :custom-level 2 :value 
css-electric-keys :parent (custom-group :documentation-shown t 
:custom-state unknown :tag "Css" :value css :buttons ((custom-magic 
:args (nil) :indent 0 :parent #2 :children ((choice-item :help-echo 
"Change the state of this item." :format "%[%t%]" :button-prefix 
widget-push-button-prefix :button-suffix widget-push-button-suffix 
:mouse-down-action widget-magic-mouse-down-action :tag " State " 
:parent #4 :indent 0 :button-overlay #<overlay from 342 to 349 in 
*Customize Group: Css*> :from #<marker (moves after insertion) at 342 
in *Customize Group: Css*> :to #<marker at 349 in *Customize Group: 
Css*>)) :from #<marker (moves after insertion) at 336 in *Customize 
Group: Css*> :to #<marker at 388 in *Customize Group: Css*>)) 
:sample-overlay #<overlay from 282 to 293 in *Customize Group: Css*> 
:custom-magic (custom-magic :args (nil) :indent 0 :parent #2 :children 
((choice-item :help-echo "Change the state of this item." :format 
"%[%t%]" :button-prefix widget-push-button-prefix :button-suffix 
widget-push-button-suffix :mouse-down-action 
widget-magic-mouse-down-action :tag " State " :parent #3 :indent 0 
:button-overlay #<overlay from 342 to 349 in *Customize Group: Css*> 
:from #<marker (moves after insertion) at 342 in *Customize Group: 
Css*> :to #<marker at 349 in *Customize Group: Css*>)) :from #<marker 
(moves after insertion) at 336 in *Customize Group: Css*> :to #<marker 
at 388 in *Customize Group: Css*>)) :indent 0 :custom-form edit))
 widget-apply((custom-variable :group (custom-group 
:documentation-shown t :custom-state unknown :tag "Css" :value css 
:buttons ((custom-magic :args (nil) :indent 0 :parent #2 :children 
((choice-item :help-echo "Change the state of this item." :format 
"%[%t%]" :button-prefix widget-push-button-prefix :button-suffix 
widget-push-button-suffix :mouse-down-action 
widget-magic-mouse-down-action :tag " State " :parent #4 :indent 0 
:button-overlay #<overlay from 342 to 349 in *Customize Group: Css*> 
:from #<marker (moves after insertion) at 342 in *Customize Group: 
Css*> :to #<marker at 349 in *Customize Group: Css*>)) :from #<marker 
(moves after insertion) at 336 in *Customize Group: Css*> :to #<marker 
at 388 in *Customize Group: Css*>)) :sample-overlay #<overlay from 282 
to 293 in *Customize Group: Css*> :custom-magic (custom-magic :args 
(nil) :indent 0 :parent #2 :children ((choice-item :help-echo "Change 
the state of this item." :format "%[%t%]" :button-prefix 
widget-push-button-prefix :button-suffix widget-push-button-suffix 
:mouse-down-action widget-magic-mouse-down-action :tag " State " 
:parent #3 :indent 0 :button-overlay #<overlay from 342 to 349 in 
*Customize Group: Css*> :from #<marker (moves after insertion) at 342 
in *Customize Group: Css*> :to #<marker at 349 in *Customize Group: 
Css*>)) :from #<marker (moves after insertion) at 336 in *Customize 
Group: Css*> :to #<marker at 388 in *Customize Group: Css*>)) :tag "Css 
Electric Keys" :custom-prefixes ("css-") :custom-level 2 :value 
css-electric-keys :parent (custom-group :documentation-shown t 
:custom-state unknown :tag "Css" :value css :buttons ((custom-magic 
:args (nil) :indent 0 :parent #2 :children ((choice-item :help-echo 
"Change the state of this item." :format "%[%t%]" :button-prefix 
widget-push-button-prefix :button-suffix widget-push-button-suffix 
:mouse-down-action widget-magic-mouse-down-action :tag " State " 
:parent #4 :indent 0 :button-overlay #<overlay from 342 to 349 in 
*Customize Group: Css*> :from #<marker (moves after insertion) at 342 
in *Customize Group: Css*> :to #<marker at 349 in *Customize Group: 
Css*>)) :from #<marker (moves after insertion) at 336 in *Customize 
Group: Css*> :to #<marker at 388 in *Customize Group: Css*>)) 
:sample-overlay #<overlay from 282 to 293 in *Customize Group: Css*> 
:custom-magic (custom-magic :args (nil) :indent 0 :parent #2 :children 
((choice-item :help-echo "Change the state of this item." :format 
"%[%t%]" :button-prefix widget-push-button-prefix :button-suffix 
widget-push-button-suffix :mouse-down-action 
widget-magic-mouse-down-action :tag " State " :parent #3 :indent 0 
:button-overlay #<overlay from 342 to 349 in *Customize Group: Css*> 
:from #<marker (moves after insertion) at 342 in *Customize Group: 
Css*> :to #<marker at 349 in *Customize Group: Css*>)) :from #<marker 
(moves after insertion) at 336 in *Customize Group: Css*> :to #<marker 
at 388 in *Customize Group: Css*>)) :indent 0 :custom-form edit) 
:create)
 widget-create-child-and-convert((custom-group :documentation-shown t 
:custom-state unknown :tag "Css" :value css :buttons ((custom-magic 
:args (nil) :indent 0 :parent #1 :children ((choice-item :help-echo 
"Change the state of this item." :format "%[%t%]" :button-prefix 
widget-push-button-prefix :button-suffix widget-push-button-suffix 
:mouse-down-action widget-magic-mouse-down-action :tag " State " 
:parent #3 :indent 0 :button-overlay #<overlay from 342 to 349 in 
*Customize Group: Css*> :from #<marker (moves after insertion) at 342 
in *Customize Group: Css*> :to #<marker at 349 in *Customize Group: 
Css*>)) :from #<marker (moves after insertion) at 336 in *Customize 
Group: Css*> :to #<marker at 388 in *Customize Group: Css*>)) 
:sample-overlay #<overlay from 282 to 293 in *Customize Group: Css*> 
:custom-magic (custom-magic :args (nil) :indent 0 :parent #1 :children 
((choice-item :help-echo "Change the state of this item." :format 
"%[%t%]" :button-prefix widget-push-button-prefix :button-suffix 
widget-push-button-suffix :mouse-down-action 
widget-magic-mouse-down-action :tag " State " :parent #2 :indent 0 
:button-overlay #<overlay from 342 to 349 in *Customize Group: Css*> 
:from #<marker (moves after insertion) at 342 in *Customize Group: 
Css*> :to #<marker at 349 in *Customize Group: Css*>)) :from #<marker 
(moves after insertion) at 336 in *Customize Group: Css*> :to #<marker 
at 388 in *Customize Group: Css*>)) custom-variable :group 
(custom-group :documentation-shown t :custom-state unknown :tag "Css" 
:value css :buttons ((custom-magic :args (nil) :indent 0 :parent #1 
:children ((choice-item :help-echo "Change the state of this item." 
:format "%[%t%]" :button-prefix widget-push-button-prefix 
:button-suffix widget-push-button-suffix :mouse-down-action 
widget-magic-mouse-down-action :tag " State " :parent #3 :indent 0 
:button-overlay #<overlay from 342 to 349 in *Customize Group: Css*> 
:from #<marker (moves after insertion) at 342 in *Customize Group: 
Css*> :to #<marker at 349 in *Customize Group: Css*>)) :from #<marker 
(moves after insertion) at 336 in *Customize Group: Css*> :to #<marker 
at 388 in *Customize Group: Css*>)) :sample-overlay #<overlay from 282 
to 293 in *Customize Group: Css*> :custom-magic (custom-magic :args 
(nil) :indent 0 :parent #1 :children ((choice-item :help-echo "Change 
the state of this item." :format "%[%t%]" :button-prefix 
widget-push-button-prefix :button-suffix widget-push-button-suffix 
:mouse-down-action widget-magic-mouse-down-action :tag " State " 
:parent #2 :indent 0 :button-overlay #<overlay from 342 to 349 in 
*Customize Group: Css*> :from #<marker (moves after insertion) at 342 
in *Customize Group: Css*> :to #<marker at 349 in *Customize Group: 
Css*>)) :from #<marker (moves after insertion) at 336 in *Customize 
Group: Css*> :to #<marker at 388 in *Customize Group: Css*>)) :tag "Css 
Electric Keys" :custom-prefixes ("css-") :custom-level 2 :value 
css-electric-keys)
 custom-group-value-create((custom-group :documentation-shown t 
:custom-state unknown :tag "Css" :value css :buttons ((custom-magic 
:args (nil) :indent 0 :parent #1 :children ((choice-item :help-echo 
"Change the state of this item." :format "%[%t%]" :button-prefix 
widget-push-button-prefix :button-suffix widget-push-button-suffix 
:mouse-down-action widget-magic-mouse-down-action :tag " State " 
:parent #3 :indent 0 :button-overlay #<overlay from 342 to 349 in 
*Customize Group: Css*> :from #<marker (moves after insertion) at 342 
in *Customize Group: Css*> :to #<marker at 349 in *Customize Group: 
Css*>)) :from #<marker (moves after insertion) at 336 in *Customize 
Group: Css*> :to #<marker at 388 in *Customize Group: Css*>)) 
:sample-overlay #<overlay from 282 to 293 in *Customize Group: Css*> 
:custom-magic (custom-magic :args (nil) :indent 0 :parent #1 :children 
((choice-item :help-echo "Change the state of this item." :format 
"%[%t%]" :button-prefix widget-push-button-prefix :button-suffix 
widget-push-button-suffix :mouse-down-action 
widget-magic-mouse-down-action :tag " State " :parent #2 :indent 0 
:button-overlay #<overlay from 342 to 349 in *Customize Group: Css*> 
:from #<marker (moves after insertion) at 342 in *Customize Group: 
Css*> :to #<marker at 349 in *Customize Group: Css*>)) :from #<marker 
(moves after insertion) at 336 in *Customize Group: Css*> :to #<marker 
at 388 in *Customize Group: Css*>)))
 widget-apply((custom-group :documentation-shown t :custom-state 
unknown :tag "Css" :value css :buttons ((custom-magic :args (nil) 
:indent 0 :parent #1 :children ((choice-item :help-echo "Change the 
state of this item." :format "%[%t%]" :button-prefix 
widget-push-button-prefix :button-suffix widget-push-button-suffix 
:mouse-down-action widget-magic-mouse-down-action :tag " State " 
:parent #3 :indent 0 :button-overlay #<overlay from 342 to 349 in 
*Customize Group: Css*> :from #<marker (moves after insertion) at 342 
in *Customize Group: Css*> :to #<marker at 349 in *Customize Group: 
Css*>)) :from #<marker (moves after insertion) at 336 in *Customize 
Group: Css*> :to #<marker at 388 in *Customize Group: Css*>)) 
:sample-overlay #<overlay from 282 to 293 in *Customize Group: Css*> 
:custom-magic (custom-magic :args (nil) :indent 0 :parent #1 :children 
((choice-item :help-echo "Change the state of this item." :format 
"%[%t%]" :button-prefix widget-push-button-prefix :button-suffix 
widget-push-button-suffix :mouse-down-action 
widget-magic-mouse-down-action :tag " State " :parent #2 :indent 0 
:button-overlay #<overlay from 342 to 349 in *Customize Group: Css*> 
:from #<marker (moves after insertion) at 342 in *Customize Group: 
Css*> :to #<marker at 349 in *Customize Group: Css*>)) :from #<marker 
(moves after insertion) at 336 in *Customize Group: Css*> :to #<marker 
at 388 in *Customize Group: Css*>)) :value-create)
 widget-default-create((custom-group :documentation-shown t 
:custom-state unknown :tag "Css" :value css :buttons ((custom-magic 
:args (nil) :indent 0 :parent #1 :children ((choice-item :help-echo 
"Change the state of this item." :format "%[%t%]" :button-prefix 
widget-push-button-prefix :button-suffix widget-push-button-suffix 
:mouse-down-action widget-magic-mouse-down-action :tag " State " 
:parent #3 :indent 0 :button-overlay #<overlay from 342 to 349 in 
*Customize Group: Css*> :from #<marker (moves after insertion) at 342 
in *Customize Group: Css*> :to #<marker at 349 in *Customize Group: 
Css*>)) :from #<marker (moves after insertion) at 336 in *Customize 
Group: Css*> :to #<marker at 388 in *Customize Group: Css*>)) 
:sample-overlay #<overlay from 282 to 293 in *Customize Group: Css*> 
:custom-magic (custom-magic :args (nil) :indent 0 :parent #1 :children 
((choice-item :help-echo "Change the state of this item." :format 
"%[%t%]" :button-prefix widget-push-button-prefix :button-suffix 
widget-push-button-suffix :mouse-down-action 
widget-magic-mouse-down-action :tag " State " :parent #2 :indent 0 
:button-overlay #<overlay from 342 to 349 in *Customize Group: Css*> 
:from #<marker (moves after insertion) at 342 in *Customize Group: 
Css*> :to #<marker at 349 in *Customize Group: Css*>)) :from #<marker 
(moves after insertion) at 336 in *Customize Group: Css*> :to #<marker 
at 388 in *Customize Group: Css*>)))
 widget-apply((custom-group :documentation-shown t :custom-state 
unknown :tag "Css" :value css :buttons ((custom-magic :args (nil) 
:indent 0 :parent #1 :children ((choice-item :help-echo "Change the 
state of this item." :format "%[%t%]" :button-prefix 
widget-push-button-prefix :button-suffix widget-push-button-suffix 
:mouse-down-action widget-magic-mouse-down-action :tag " State " 
:parent #3 :indent 0 :button-overlay #<overlay from 342 to 349 in 
*Customize Group: Css*> :from #<marker (moves after insertion) at 342 
in *Customize Group: Css*> :to #<marker at 349 in *Customize Group: 
Css*>)) :from #<marker (moves after insertion) at 336 in *Customize 
Group: Css*> :to #<marker at 388 in *Customize Group: Css*>)) 
:sample-overlay #<overlay from 282 to 293 in *Customize Group: Css*> 
:custom-magic (custom-magic :args (nil) :indent 0 :parent #1 :children 
((choice-item :help-echo "Change the state of this item." :format 
"%[%t%]" :button-prefix widget-push-button-prefix :button-suffix 
widget-push-button-suffix :mouse-down-action 
widget-magic-mouse-down-action :tag " State " :parent #2 :indent 0 
:button-overlay #<overlay from 342 to 349 in *Customize Group: Css*> 
:from #<marker (moves after insertion) at 342 in *Customize Group: 
Css*> :to #<marker at 349 in *Customize Group: Css*>)) :from #<marker 
(moves after insertion) at 336 in *Customize Group: Css*> :to #<marker 
at 388 in *Customize Group: Css*>)) :create)
 widget-create(custom-group :documentation-shown t :custom-state 
unknown :tag "Css" :value css)
 #[257 "\300
A@\301\302\303\304\305\306@!\307	@&	\207" 
[widget-create :documentation-shown t :custom-state unknown :tag 
custom-unlispify-tag-name :value] 11 "\n\n(fn ENTRY)"]((css 
custom-group))
 mapcar(#[257 "\300
A@\301\302\303\304\305\306@!\307	@&	\207" 
[widget-create :documentation-shown t :custom-state unknown :tag 
custom-unlispify-tag-name :value] 11 "\n\n(fn ENTRY)"] ((css 
custom-group)))
 custom-buffer-create-internal(((css custom-group)))
 custom-buffer-create(((css custom-group)) "*Customize Group: Css*" " 
for group Css")
 customize-group("css")
 funcall-interactively(customize-group "css")
 call-interactively(customize-group record nil)
 command-execute(customize-group record)
 execute-extended-command(nil "customize-group" "customize-group")
 funcall-interactively(execute-extended-command nil "customize-group" 
"customize-group")
 call-interactively(execute-extended-command nil nil)
 command-execute(execute-extended-command)

Message #10 received at 27363 <at> debbugs.gnu.org (full text, mbox):

From: Glenn Morris <rgm <at> gnu.org>
To: Simen Heggestøyl <simenheg <at> gmail.com>
Cc: 27363 <at> debbugs.gnu.org
Subject: Re: bug#27363: 26.0.50; Error with customize-group
Date: Wed, 14 Jun 2017 18:37:32 -0400

Simen Heggestøyl wrote:

> Debugger entered--Lisp error: (wrong-type-argument listp (character))
>  widget-put((repeat character) :options ((125 59)))

This is the same thing as http://debbugs.gnu.org/25640; ie fallout from
plist-put changes.

Although the :options field for css-electric-keys seems pointless anyway,
since the repeat type doesn't support it. (Same for compilation-environment.)

Message #15 received at 27363 <at> debbugs.gnu.org (full text, mbox):

From: Simen Heggestøyl <simenheg <at> gmail.com>
To: Glenn Morris <rgm <at> gnu.org>
Cc: 27363 <at> debbugs.gnu.org
Subject: Re: bug#27363: 26.0.50; Error with customize-group
Date: Fri, 16 Jun 2017 19:34:27 +0200

[Message part 1 (text/plain, inline)]

On Thu, Jun 15, 2017 at 12:37 AM, Glenn Morris <rgm <at> gnu.org> wrote:
> This is the same thing as http://debbugs.gnu.org/25640; ie fallout 
> from
> plist-put changes.
> 
> Although the :options field for css-electric-keys seems pointless 
> anyway,
> since the repeat type doesn't support it. (Same for 
> compilation-environment.)

Right. Does the attached patch look sufficient?

-- Simen

[0001-Remove-meaningless-options-usage-in-defcustoms.patch (text/x-patch, attachment)]

Message #18 received at 27363 <at> debbugs.gnu.org (full text, mbox):

From: Glenn Morris <rgm <at> gnu.org>
To: Simen Heggestøyl <simenheg <at> gmail.com>
Cc: 27363 <at> debbugs.gnu.org
Subject: Re: bug#27363: 26.0.50; Error with customize-group
Date: Fri, 16 Jun 2017 20:32:21 -0400

I'm not sure. On the one hand, those :options do nothing, on the other
hand, maybe having them there acts like an explanatory comment.

I see there are some strings with :options too, which also don't work,
but don't cause errors either. Eg tex-open-quote.
Only :types with even numbers of elements, eg '(repeat character)', are
a problem.

The following change avoids the error without removing the :options.
I don't really get custom-variable-type. It's not obvious to me that the
:type of a defcustom should be valid as a widget.

--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -2518,7 +2518,7 @@ custom-variable-type
 		  (copy-sequence type)
 		(list type))))
     (when options
-      (widget-put tmp :options options))
+      (setcdr tmp (append (list :options options) (cdr tmp))))
     tmp))
 
 (defun custom-variable-value-create (widget)

Message #21 received at 27363 <at> debbugs.gnu.org (full text, mbox):

From: Glenn Morris <rgm <at> gnu.org>
To: Simen Heggestøyl <simenheg <at> gmail.com>
Cc: 27363 <at> debbugs.gnu.org
Subject: Re: bug#27363: 26.0.50; Error with customize-group
Date: Mon, 19 Jun 2017 14:55:15 -0400

I've applied that cus-edit change.
You probably do want to delete the css-electric-keys :option, since it
just duplicates the default.

Message #26 received at 27363 <at> debbugs.gnu.org (full text, mbox):

From: Simen Heggestøyl <simenheg <at> gmail.com>
To: Glenn Morris <rgm <at> gnu.org>
Cc: 27363 <at> debbugs.gnu.org
Subject: Re: bug#27363: 26.0.50; Error with customize-group
Date: Tue, 20 Jun 2017 21:01:40 +0200

On Mon, Jun 19, 2017 at 8:55 PM, Glenn Morris <rgm <at> gnu.org> wrote:
> I've applied that cus-edit change.

Thanks for making the fix.

> You probably do want to delete the css-electric-keys :option, since it
> just duplicates the default.

I'll do just that.

-- Simen

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.