* bug#27363: 26.0.50; Error with customize-group
@ 2017-06-14 19:24 Simen Heggestøyl
2017-06-14 22:37 ` Glenn Morris
0 siblings, 1 reply; 6+ messages in thread
From: Simen Heggestøyl @ 2017-06-14 19:24 UTC (permalink / raw)
To: 27363
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\x01A@\301\302\303\304\305\306\x06\b@!\307\x06 @& \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\x01A@\301\302\303\304\305\306\x06\b@!\307\x06 @& \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)
^ permalink raw reply [flat|nested] 6+ messages in thread
* bug#27363: 26.0.50; Error with customize-group
2017-06-14 19:24 bug#27363: 26.0.50; Error with customize-group Simen Heggestøyl
@ 2017-06-14 22:37 ` Glenn Morris
2017-06-16 17:34 ` Simen Heggestøyl
0 siblings, 1 reply; 6+ messages in thread
From: Glenn Morris @ 2017-06-14 22:37 UTC (permalink / raw)
To: Simen Heggestøyl; +Cc: 27363
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.)
^ permalink raw reply [flat|nested] 6+ messages in thread
* bug#27363: 26.0.50; Error with customize-group
2017-06-14 22:37 ` Glenn Morris
@ 2017-06-16 17:34 ` Simen Heggestøyl
2017-06-17 0:32 ` Glenn Morris
0 siblings, 1 reply; 6+ messages in thread
From: Simen Heggestøyl @ 2017-06-16 17:34 UTC (permalink / raw)
To: Glenn Morris; +Cc: 27363
[-- Attachment #1: Type: text/plain, Size: 390 bytes --]
On Thu, Jun 15, 2017 at 12:37 AM, Glenn Morris <rgm@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
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-Remove-meaningless-options-usage-in-defcustoms.patch --]
[-- Type: text/x-patch, Size: 1537 bytes --]
From bdbb0ea2ea88c507fadb971cdd68c2dc6002c77f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Simen=20Heggest=C3=B8yl?= <simenheg@gmail.com>
Date: Fri, 16 Jun 2017 19:24:31 +0200
Subject: [PATCH] Remove meaningless :options usage in defcustoms
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
The :options keyword argument isn’t currently meaningful for the
repeat type.
* lisp/progmodes/compile.el (compilation-environment):
* lisp/textmodes/css-mode.el (css-electric-keys): Remove :options
argument.
---
lisp/progmodes/compile.el | 1 -
lisp/textmodes/css-mode.el | 1 -
2 files changed, 2 deletions(-)
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 31ec5a67d0..29ed0f1523 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -732,7 +732,6 @@ compilation-environment
This list is temporarily prepended to `process-environment' prior to
starting the compilation process."
:type '(repeat (string :tag "ENVVARNAME=VALUE"))
- :options '(("LANG=C"))
:group 'compilation
:version "24.1")
diff --git a/lisp/textmodes/css-mode.el b/lisp/textmodes/css-mode.el
index 0beaaaa32f..e657abc959 100644
--- a/lisp/textmodes/css-mode.el
+++ b/lisp/textmodes/css-mode.el
@@ -764,7 +764,6 @@ css-electric-keys
"Self inserting keys which should trigger re-indentation."
:version "22.2"
:type '(repeat character)
- :options '((?\} ?\;))
:group 'css)
(defvar css-mode-syntax-table
--
2.11.0
^ permalink raw reply related [flat|nested] 6+ messages in thread
* bug#27363: 26.0.50; Error with customize-group
2017-06-16 17:34 ` Simen Heggestøyl
@ 2017-06-17 0:32 ` Glenn Morris
2017-06-19 18:55 ` Glenn Morris
0 siblings, 1 reply; 6+ messages in thread
From: Glenn Morris @ 2017-06-17 0:32 UTC (permalink / raw)
To: Simen Heggestøyl; +Cc: 27363
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)
^ permalink raw reply [flat|nested] 6+ messages in thread
* bug#27363: 26.0.50; Error with customize-group
2017-06-17 0:32 ` Glenn Morris
@ 2017-06-19 18:55 ` Glenn Morris
2017-06-20 19:01 ` Simen Heggestøyl
0 siblings, 1 reply; 6+ messages in thread
From: Glenn Morris @ 2017-06-19 18:55 UTC (permalink / raw)
To: Simen Heggestøyl; +Cc: 27363
I've applied that cus-edit change.
You probably do want to delete the css-electric-keys :option, since it
just duplicates the default.
^ permalink raw reply [flat|nested] 6+ messages in thread
* bug#27363: 26.0.50; Error with customize-group
2017-06-19 18:55 ` Glenn Morris
@ 2017-06-20 19:01 ` Simen Heggestøyl
0 siblings, 0 replies; 6+ messages in thread
From: Simen Heggestøyl @ 2017-06-20 19:01 UTC (permalink / raw)
To: Glenn Morris; +Cc: 27363
On Mon, Jun 19, 2017 at 8:55 PM, Glenn Morris <rgm@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
^ permalink raw reply [flat|nested] 6+ messages in thread
end of thread, other threads:[~2017-06-20 19:01 UTC | newest]
Thread overview: 6+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2017-06-14 19:24 bug#27363: 26.0.50; Error with customize-group Simen Heggestøyl
2017-06-14 22:37 ` Glenn Morris
2017-06-16 17:34 ` Simen Heggestøyl
2017-06-17 0:32 ` Glenn Morris
2017-06-19 18:55 ` Glenn Morris
2017-06-20 19:01 ` Simen Heggestøyl
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).