* 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
* Re: 23.0.50; bug in customisation interface
2007-12-19 9:54 23.0.50; bug in customisation interface Peter Dyballa
@ 2007-12-19 13:24 ` martin rudalics
2007-12-19 13:49 ` Peter Dyballa
0 siblings, 1 reply; 4+ messages in thread
From: martin rudalics @ 2007-12-19 13:24 UTC (permalink / raw)
To: Peter Dyballa; +Cc: emacs-pretest-bug
[-- Attachment #1: Type: text/plain, Size: 67 bytes --]
Could you try with the attached patch (you have to remake Emacs).
[-- Attachment #2: cus-start.patch --]
[-- Type: text/plain, Size: 1608 bytes --]
*** cus-start.el.~1.113.~ Sun Oct 28 03:40:58 2007
--- cus-start.el Wed Dec 19 14:20:36 2007
***************
*** 39,45 ****
(gc-cons-threshold alloc integer)
(garbage-collection-messages alloc boolean)
;; buffer.c
! (mode-line-format modeline sexp) ;Hard to do right.
(default-major-mode internal function)
(enable-multibyte-characters mule boolean)
(case-fold-search matching boolean)
--- 39,45 ----
(gc-cons-threshold alloc integer)
(garbage-collection-messages alloc boolean)
;; buffer.c
! (mode-line-format mode-line sexp) ;Hard to do right.
(default-major-mode internal function)
(enable-multibyte-characters mule boolean)
(case-fold-search matching boolean)
***************
*** 364,371 ****
(hscroll-margin windows integer "22.1")
(hscroll-step windows number "22.1")
(truncate-partial-width-windows display boolean)
! (mode-line-inverse-video modeline boolean)
! (mode-line-in-non-selected-windows modeline boolean "22.1")
(line-number-display-limit display
(choice integer
(const :tag "No limit" nil)))
--- 364,371 ----
(hscroll-margin windows integer "22.1")
(hscroll-step windows number "22.1")
(truncate-partial-width-windows display boolean)
! (mode-line-inverse-video mode-line boolean)
! (mode-line-in-non-selected-windows mode-line boolean "22.1")
(line-number-display-limit display
(choice integer
(const :tag "No limit" nil)))
[-- Attachment #3: Type: text/plain, Size: 142 bytes --]
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: 23.0.50; bug in customisation interface
2007-12-19 13:24 ` martin rudalics
@ 2007-12-19 13:49 ` Peter Dyballa
2007-12-19 21:18 ` Stephen J. Turnbull
0 siblings, 1 reply; 4+ messages in thread
From: Peter Dyballa @ 2007-12-19 13:49 UTC (permalink / raw)
To: martin rudalics; +Cc: emacs-pretest-bug
Am 19.12.2007 um 14:24 schrieb martin rudalics:
> Could you try with the attached patch (you have to remake Emacs).
Really? Wouldn't a bit of byte-compilation suffice?
Anyway, I made clean, then a simple make, then a byte-compile with
new emacs. Re-launching GNU Emacs then does not lead to the reported
error. Great! (Could I've found the cause myself?) Now I think I'll
need to install again to save time compressing cus-start.el by hand ...
--
Mit friedvollen Grüßen
Pete
Alles Vernünftige ist einfach; alles Komplizierte ist überflüssig.
(M. Kalaschnikow)
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: 23.0.50; bug in customisation interface
2007-12-19 13:49 ` Peter Dyballa
@ 2007-12-19 21:18 ` Stephen J. Turnbull
0 siblings, 0 replies; 4+ messages in thread
From: Stephen J. Turnbull @ 2007-12-19 21:18 UTC (permalink / raw)
To: Peter Dyballa; +Cc: martin rudalics, emacs-pretest-bug
Peter Dyballa writes:
>
> Am 19.12.2007 um 14:24 schrieb martin rudalics:
>
> > Could you try with the attached patch (you have to remake Emacs).
>
> Really? Wouldn't a bit of byte-compilation suffice?
Strictly speaking, yes. If the library is preloaded, you also have to
reload it at runtime, though, and the instruction to remake Emacs
avoids false negatives through forgetting to do that.
^ permalink raw reply [flat|nested] 4+ messages in thread
end of thread, other threads:[~2007-12-19 21:18 UTC | newest]
Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2007-12-19 9:54 23.0.50; bug in customisation interface Peter Dyballa
2007-12-19 13:24 ` martin rudalics
2007-12-19 13:49 ` Peter Dyballa
2007-12-19 21:18 ` Stephen J. Turnbull
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.