23.0.50; bug in customisation interface

* 23.0.50; bug in customisation interface
@ 2007-12-19  9:54 Peter Dyballa
  2007-12-19 13:24 ` martin rudalics
  0 siblings, 1 reply; 4+ messages in thread
From: Peter Dyballa @ 2007-12-19  9:54 UTC (permalink / raw)
  To: emacs-pretest-bug

Hello!

Launching with -Q and --debug-init and choosing from

	Options menu -> Customize Emacs -> Specific Option...

and inputting mode-line-format I get the *Customize Option: Mode Line  
Format* buffer. It has at its bottom:

	Parent groups: Modeline

Choosing Modeline a new buffer *Customize Group: Modeline* is  
created. It's not complete, and echo-area shows (actually taken off  
*Messages*):

	widget-apply: Wrong type argument: char-or-string-p, nil

My usually launched version shows in *Backtrace* buffer:

Debugger entered--Lisp error: (wrong-type-argument char-or-string-p nil)
   custom-group-value-create((custom-group :documentation-shown  
t :custom-state unknown :tag "Modeline" :value modeline :buttons  
nil :sample-overlay #<overlay from 410 to 426 in *Customize Group:  
Modeline*>))
   widget-apply((custom-group :documentation-shown t :custom-state  
unknown :tag "Modeline" :value modeline :buttons nil :sample-overlay  
#<overlay from 410 to 426 in *Customize Group: Modeline*>) :value- 
create)
   widget-default-create((custom-group :documentation-shown t :custom- 
state unknown :tag "Modeline" :value modeline :buttons nil :sample- 
overlay #<overlay from 410 to 426 in *Customize Group: Modeline*>))
   widget-apply((custom-group :documentation-shown t :custom-state  
unknown :tag "Modeline" :value modeline :buttons nil :sample-overlay  
#<overlay from 410 to 426 in *Customize Group: Modeline*>) :create)
   widget-create(custom-group :documentation-shown t :custom-state  
unknown :tag "Modeline" :value modeline)
   #[(entry) "Á\bA@ÂÃÄÅÆÇ\b@!È\b@&	‡" [entry widget- 
create :documentation-shown t :custom-state unknown :tag custom- 
unlispify-tag-name :value] 10]((modeline custom-group))
   mapcar(#[(entry) "Á\bA@ÂÃÄÅÆÇ\b@!È\b@&	‡" [entry widget- 
create :documentation-shown t :custom-state unknown :tag custom- 
unlispify-tag-name :value] 10] ((modeline custom-group)))

   custom-buffer-create-internal(((modeline custom-group)) " for  
group Modeline")
   custom-buffer-create(((modeline custom-group)) "*Customize Group:  
Modeline*" " for group Modeline")
   customize-group(modeline)
   custom-group-link-action((custom-group-link :args nil :value  
modeline :tag "Modeline" :parent (custom-variable :documentation- 
shown t :custom-state standard :tag "Mode Line Format" :value mode- 
line-format :custom-form edit :custom-magic (custom- 
magic :args ... :parent #1 :indent 0 :children ... :from #<marker  
(moves after insertion) at 1317 in *Customize Option: Mode Line  
Format*> :to #<marker at 1337 in *Customize Option: Mode Line  
Format*> :buttons nil :value nil) :buttons  
(#0 ... ... ... ...) :documentation-indent 3 :comment-widget (custom- 
comment :parent #1 :value "" :indent 0 :from #<marker at 4641 in  
*Customize Option: Mode Line Format*> :to #<marker at 4641 in  
*Customize Option: Mode Line Format*>) :children (... ...) :from  
#<marker (moves after insertion) at 407 in *Customize Option: Mode  
Line Format*> :to #<marker at 4665 in *Customize Option: Mode Line  
Format*>) :indent 0 :button-overlay #<overlay from 4656 to 4664 in  
*Customize Option: Mode Line Format*> :from #<marker (moves after  
insertion) at 4656 in *Customize Option: Mode Line Format*> :to  
#<marker at 4664 in *Customize Option: Mode Line Format*>) (mouse-2  
(#<window 7 on *Customize Group: Modeline*> 4661 (124 . 456)  
-118655359 nil 4661 (20 . 41) nil (4 . 5) (6 . 11))))
   widget-apply((custom-group-link :args nil :value modeline :tag  
"Modeline" :parent (custom-variable :documentation-shown t :custom- 
state standard :tag "Mode Line Format" :value mode-line- 
format :custom-form edit :custom-magic (custom- 
magic :args ... :parent #1 :indent 0 :children ... :from #<marker  
(moves after insertion) at 1317 in *Customize Option: Mode Line  
Format*> :to #<marker at 1337 in *Customize Option: Mode Line  
Format*> :buttons nil :value nil) :buttons  
(#0 ... ... ... ...) :documentation-indent 3 :comment-widget (custom- 
comment :parent #1 :value "" :indent 0 :from #<marker at 4641 in  
*Customize Option: Mode Line Format*> :to #<marker at 4641 in  
*Customize Option: Mode Line Format*>) :children (... ...) :from  
#<marker (moves after insertion) at 407 in *Customize Option: Mode  
Line Format*> :to #<marker at 4665 in *Customize Option: Mode Line  
Format*>) :indent 0 :button-overlay #<overlay from 4656 to 4664 in  
*Customize Option: Mode Line Format*> :from #<marker (moves after  
insertion) at 4656 in *Customize Option: Mode Line Format*> :to  
#<marker at 4664 in *Customize Option: Mode Line Format*>) :action  
(mouse-2 (#<window 7 on *Customize Group: Modeline*> 4661 (124 . 456)  
-118655359 nil 4661 (20 . 41) nil (4 . 5) (6 . 11))))
   widget-apply-action((custom-group-link :args nil :value  
modeline :tag "Modeline" :parent (custom-variable :documentation- 
shown t :custom-state standard :tag "Mode Line Format" :value mode- 
line-format :custom-form edit :custom-magic (custom- 
magic :args ... :parent #1 :indent 0 :children ... :from #<marker  
(moves after insertion) at 1317 in *Customize Option: Mode Line  
Format*> :to #<marker at 1337 in *Customize Option: Mode Line  
Format*> :buttons nil :value nil) :buttons  
(#0 ... ... ... ...) :documentation-indent 3 :comment-widget (custom- 
comment :parent #1 :value "" :indent 0 :from #<marker at 4641 in  
*Customize Option: Mode Line Format*> :to #<marker at 4641 in  
*Customize Option: Mode Line Format*>) :children (... ...) :from  
#<marker (moves after insertion) at 407 in *Customize Option: Mode  
Line Format*> :to #<marker at 4665 in *Customize Option: Mode Line  
Format*>) :indent 0 :button-overlay #<overlay from 4656 to 4664 in  
*Customize Option: Mode Line Format*> :from #<marker (moves after  
insertion) at 4656 in *Customize Option: Mode Line Format*> :to  
#<marker at 4664 in *Customize Option: Mode Line Format*>) (mouse-2  
(#<window 7 on *Customize Group: Modeline*> 4661 (124 . 456)  
-118655359 nil 4661 (20 . 41) nil (4 . 5) (6 . 11))))
   byte-code("...." [save-selected-window-alist save-selected-window- 
window event position button overlay selected-window mapcar #[(frame)  
"\bÁ\b!B‡" [frame frame-selected-window] 3] frame-list ((byte-code  
"...." [save-selected-window-alist elt --cl-dolist-temp-- save- 
selected-window-window nil frame-live-p window-live-p set-frame- 
selected-window select-window] 4)) select-window 1 (0 . 0) 0 5 widget- 
get :button-overlay :pressed-face overlay-get face mouse-face ((byte- 
code "Ã\bÁ	#ˆÃ\bÂ\n#‡" [overlay face mouse-face overlay-put] 4))  
overlay-put widget-apply :mouse-down-action t widget-button-release- 
event-p read-event mouse-movement throw button-press-cancelled  
(switch-frame select-window) scroll-bar-movement widget-event-point  
get-char-property widget-apply-action nil widget-button-pressed-face  
pressed-face track-mouse mouse-1 object unread-command-events oevent  
pos widget-button-click-moves-point newpoint] 6)
   widget-button-click((mouse-2 (#<window 7 on *Customize Group:  
Modeline*> 4661 (124 . 456) -118655359 nil 4661 (20 . 41) nil (4 . 5)  
(6 . 11))))
   widget-move-and-invoke((mouse-2 (#<window 7 on *Customize Group:  
Modeline*> 4661 (124 . 456) -118655359 nil 4661 (20 . 41) nil (4 . 5)  
(6 . 11))))
   call-interactively(widget-move-and-invoke nil nil)

In GNU Emacs 23.0.50.1 (powerpc-apple-darwin8.11.0, X toolkit, Xaw3d  
scroll bars)
  of 2007-12-15 on Latsche.local
Windowing system distributor `The XFree86 Project, Inc', version  
11.0.40400000
configured using `configure  '--with-dbus' '--without-sound' '-- 
without-pop' '--with-xpm' '--with-jpeg' '--with-tiff' '--with-gif' '-- 
with-png' '--with-x-toolkit=athena' '--enable-locallisppath=/Library/ 
Application Support/Emacs/calendar22:/Library/Application Support/ 
Emacs/caml:/Library/Application Support/Emacs:/sw/share/emacs21/site- 
lisp/elib' 'PKG_CONFIG_PATH=/sw/lib/freetype219/lib/pkgconfig:/sw/lib/ 
fontconfig2/lib/pkgconfig:/usr/X11R7/lib/pkgconfig:/sw/lib/pkgconfig:/ 
sw/lib/system-openssl/lib/pkgconfig:/sw/share/pkgconfig:/usr/lib/ 
pkgconfig:/usr/local/lib/pkgconfig:/usr/local/clamXav/lib/pkgconfig'  
'CFLAGS=-bind_at_load -pipe -fPIC -mcpu=7450 -mtune=7450 -fast -mpim- 
altivec -ftree-vectorize -foptimize-register-move -freorder-blocks - 
freorder-blocks-and-partition -fthread-jumps -fpeephole -fno- 
crossjumping' 'CPPFLAGS=-no-cpp-precomp -I/usr/include/openssl -I/sw/ 
include/pango-1.0 -I/sw/lib/freetype219/include -I/sw/lib/freetype219/ 
include/freetype2 -I/sw/lib/fontconfig2/include -I/sw/include -I/usr/ 
local/include -idirafter /usr/X11R6/include' 'LDFLAGS=-dead_strip - 
multiply_defined suppress -L/sw/lib/ncurses -L/sw/lib/freetype219/lib  
-L/sw/lib/fontconfig2/lib -L/sw/lib -L/usr/local/lib -L/usr/X11R6/lib''

Important settings:
   value of $LC_ALL: nil
   value of $LC_COLLATE: nil
   value of $LC_CTYPE: de_DE.UTF-8
   value of $LC_MESSAGES: nil
   value of $LC_MONETARY: nil
   value of $LC_NUMERIC: nil
   value of $LC_TIME: nil
   value of $LANG: de_DE.UTF-8
   locale-coding-system: utf-8
   default-enable-multibyte-characters: t

Major mode: Lisp Interaction

Minor modes in effect:
   TeX-PDF-mode: t
   shell-dirtrack-mode: t
   show-paren-mode: t
   display-time-mode: t
   desktop-save-mode: t
   tooltip-mode: t
   mouse-wheel-mode: t
   menu-bar-mode: t
   file-name-shadow-mode: t
   global-font-lock-mode: t
   font-lock-mode: t
   blink-cursor-mode: t
   unify-8859-on-encoding-mode: t
   utf-translate-cjk-mode: t
   auto-compression-mode: t
   column-number-mode: t
   line-number-mode: t
   transient-mark-mode: t
--
Mit friedvollen Grüßen

   Pete

America believes in education: the average professor earns more money  
in a year than a professional athlete earns in a whole week.
				– Evan Esar

^ permalink raw reply	[flat|nested] 4+ messages in thread