* infinite loop when customizing default face
@ 2002-05-30 7:51 Ryan Shaw
2002-05-31 7:06 ` Richard Stallman
0 siblings, 1 reply; 5+ messages in thread
From: Ryan Shaw @ 2002-05-30 7:51 UTC (permalink / raw)
In GNU Emacs 21.2.1 (i586-pc-linux-gnu, X toolkit)
of 2002-05-22 on momo
configured using `configure --host=i586-pc-linux-gnu --prefix=/usr
--libexecdir=/usr/lib --mandir=/usr/share/man --infodir=/usr/share/info
--with-x --with-xpm --with-jpeg --with-tiff --with-gif --with-png'
Important settings:
value of $LC_ALL: nil
value of $LC_COLLATE: nil
value of $LC_CTYPE: ja_JP.eucJP
value of $LC_MESSAGES: nil
value of $LC_MONETARY: nil
value of $LC_NUMERIC: nil
value of $LC_TIME: nil
value of $LANG: nil
locale-coding-system: japanese-iso-8bit
default-enable-multibyte-characters: t
Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:
When I attempt to customize the default face via M-x customize-face,
Emacs begins resizing itself wildly, before finally showing the error
"Variable binding depth exceeds max-specpdl-size". The default face
remains unchanged. See the backtrace below.
Backtrace:
Debugger entered--Lisp error: (error "Variable binding depth exceeds
max-specpdl-size")
face-spec-choose((((... ...) (:foreground "light blue" :bold t :height
1.2)) ((... ...) (:foreground "blue" :bold t :height 1.2)) (t (:bold
t))) #<frame emacs@momo 0x8470e48\ >)
face-spec-set(custom-group-tag-face (((... ...) (:foreground "light
blue" :bold t :height 1.2)) ((... ...) (:foreground "blue" :bold t
:height 1.2)) (t (:bold t))) #<frame emacs@momo 0x8470e48\ >)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :height 110 #<frame
emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :height
110)
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "adobe-courier"
#<frame emacs@momo 0x8470e48\ >)
set-face-attribute(default #<frame emacs@momo 0x8470e48\ > :family
"adobe-courier")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 110
:width normal :family "adobe-courier"))) #<frame emacs@momo 0x8470e48\
>)
face-set-after-frame-default(#<frame emacs@momo 0x8470e48\ >)
internal-set-lisp-face-attribute(default :family "jmk-neep" 0)
set-face-attribute(default nil :family "jmk-neep")
face-spec-set(default ((t (:stipple nil :background "#4D5259"
:foreground "#BFC7D9" :inverse-video nil :box nil :strike-through nil
:overline nil :underline nil :slant normal :weight normal :height 140
:width normal :family "jmk-neep"))))
custom-face-set((custom-face :documentation-shown t :custom-state
modified :tag "Default" :value default :sample-overlay #<overlay from
447 to 454 in *Customize Face: Default*> :custom-magic (custom-magic
:args (nil) :parent #0 :indent 0 :children (...) :from #<marker
(before-insertion) at 475 in *Customize Face: Default*> :to #<marker at
551 in *Customize Face: Default*> :buttons nil :value nil) :buttons
((custom-group-link :args nil :value basic-faces :tag "Basic Faces"
:parent #0 :indent 0 :button-overlay #<overlay from 586 to 597 in
*Customize Face: Default*> :from #<marker (before-insertion) at 586 in
*Customize Face: Default*> :to #<marker at 597 in *Customize Face:
Default*>) (documentation-string :args nil :value "Basic default face."
:indent 0 :parent #0 :doc-overlay #<overlay from 551 to 570 in
*Customize Face: Default*> :buttons nil :from #<marker
(before-insertion) at 551 in *Customize Face: Default*> :to #<marker at
571 in *Customize Face: Default*>) (custom-magic :args ... :parent #0
:indent 0 :children ... :from #<marker (before-insertion) at 475 in
*Customize Face: Default*> :to #<marker at 551 in *Customize Face:
Default*> :buttons nil :value nil) (visibility :args nil :value t
:help-echo "Hide or show this face." :action custom-toggle-parent
:parent #0 :indent 0 :button-overlay #<overlay from 470 to 474 in
*Customize Face: Default*> :from #<marker (before-insertion) at 470 in
*Customize Face: Default*> :to #<marker at 474 in *Customize Face:
Default*>) (item :format "(%{%t%})" :sample-face default :tag "sample"
:parent #0 :indent 0 :sample-overlay #<overlay from 462 to 468 in
*Customize Face: Default*> :from #<marker (before-insertion) at 461 in
*Customize Face: Default*> :to #<marker at 469 in *Customize Face:
Default*>)) :comment-widget (custom-comment :parent #0 :value "" :indent
0 :from #<marker at 571 in *Customize Face: Default*> :to #<marker at
571 in *Customize Face: Default*>) :custom-form selected :children
((custom-face-selected :args ... :value ... :parent #0 :indent 0
:children ... :from #<marker (before-insertion) at 598 in *Customize
Face: Default*> :to #<marker at 1281 in *Customize Face: Default*>)
(custom-comment :parent #0 :value "" :indent 0 :from #<marker at 571 in
*Customize Face: Default*> :to #<marker at 571 in *Customize Face:
Default*>)) :from #<marker (before-insertion) at 447 in *Customize Face:
Default*> :to #<marker at 1281 in *Customize Face: Default*>
:comment-shown nil))
custom-face-action((custom-face :documentation-shown t :custom-state
modified :tag "Default" :value default :sample-overlay #<overlay from
447 to 454 in *Customize Face: Default*> :custom-magic (custom-magic
:args (nil) :parent #0 :indent 0 :children (...) :from #<marker
(before-insertion) at 475 in *Customize Face: Default*> :to #<marker at
551 in *Customize Face: Default*> :buttons nil :value nil) :buttons
((custom-group-link :args nil :value basic-faces :tag "Basic Faces"
:parent #0 :indent 0 :button-overlay #<overlay from 586 to 597 in
*Customize Face: Default*> :from #<marker (before-insertion) at 586 in
*Customize Face: Default*> :to #<marker at 597 in *Customize Face:
Default*>) (documentation-string :args nil :value "Basic default face."
:indent 0 :parent #0 :doc-overlay #<overlay from 551 to 570 in
*Customize Face: Default*> :buttons nil :from #<marker
(before-insertion) at 551 in *Customize Face: Default*> :to #<marker at
571 in *Customize Face: Default*>) (custom-magic :args ... :parent #0
:indent 0 :children ... :from #<marker (before-insertion) at 475 in
*Customize Face: Default*> :to #<marker at 551 in *Customize Face:
Default*> :buttons nil :value nil) (visibility :args nil :value t
:help-echo "Hide or show this face." :action custom-toggle-parent
:parent #0 :indent 0 :button-overlay #<overlay from 470 to 474 in
*Customize Face: Default*> :from #<marker (before-insertion) at 470 in
*Customize Face: Default*> :to #<marker at 474 in *Customize Face:
Default*>) (item :format "(%{%t%})" :sample-face default :tag "sample"
:parent #0 :indent 0 :sample-overlay #<overlay from 462 to 468 in
*Customize Face: Default*> :from #<marker (before-insertion) at 461 in
*Customize Face: Default*> :to #<marker at 469 in *Customize Face:
Default*>)) :comment-widget (custom-comment :parent #0 :value "" :indent
0 :from #<marker at 571 in *Customize Face: Default*> :to #<marker at
571 in *Customize Face: Default*>) :custom-form selected :children
((custom-face-selected :args ... :value ... :parent #0 :indent 0
:children ... :from #<marker (before-insertion) at 598 in *Customize
Face: Default*> :to #<marker at 1281 in *Customize Face: Default*>)
(custom-comment :parent #0 :value "" :indent 0 :from #<marker at 571 in
*Customize Face: Default*> :to #<marker at 571 in *Customize Face:
Default*>)) :from #<marker (before-insertion) at 447 in *Customize Face:
Default*> :to #<marker at 1281 in *Customize Face: Default*>
:comment-shown nil) (mouse-1 (#<window 3 on *Customize Face: Default*>
479 (51 . 212) 5556895)))
widget-apply((custom-face :documentation-shown t :custom-state
modified :tag "Default" :value default :sample-overlay #<overlay from
447 to 454 in *Customize Face: Default*> :custom-magic (custom-magic
:args (nil) :parent #0 :indent 0 :children (...) :from #<marker
(before-insertion) at 475 in *Customize Face: Default*> :to #<marker at
551 in *Customize Face: Default*> :buttons nil :value nil) :buttons
((custom-group-link :args nil :value basic-faces :tag "Basic Faces"
:parent #0 :indent 0 :button-overlay #<overlay from 586 to 597 in
*Customize Face: Default*> :from #<marker (before-insertion) at 586 in
*Customize Face: Default*> :to #<marker at 597 in *Customize Face:
Default*>) (documentation-string :args nil :value "Basic default face."
:indent 0 :parent #0 :doc-overlay #<overlay from 551 to 570 in
*Customize Face: Default*> :buttons nil :from #<marker
(before-insertion) at 551 in *Customize Face: Default*> :to #<marker at
571 in *Customize Face: Default*>) (custom-magic :args ... :parent #0
:indent 0 :children ... :from #<marker (before-insertion) at 475 in
*Customize Face: Default*> :to #<marker at 551 in *Customize Face:
Default*> :buttons nil :value nil) (visibility :args nil :value t
:help-echo "Hide or show this face." :action custom-toggle-parent
:parent #0 :indent 0 :button-overlay #<overlay from 470 to 474 in
*Customize Face: Default*> :from #<marker (before-insertion) at 470 in
*Customize Face: Default*> :to #<marker at 474 in *Customize Face:
Default*>) (item :format "(%{%t%})" :sample-face default :tag "sample"
:parent #0 :indent 0 :sample-overlay #<overlay from 462 to 468 in
*Customize Face: Default*> :from #<marker (before-insertion) at 461 in
*Customize Face: Default*> :to #<marker at 469 in *Customize Face:
Default*>)) :comment-widget (custom-comment :parent #0 :value "" :indent
0 :from #<marker at 571 in *Customize Face: Default*> :to #<marker at
571 in *Customize Face: Default*>) :custom-form selected :children
((custom-face-selected :args ... :value ... :parent #0 :indent 0
:children ... :from #<marker (before-insertion) at 598 in *Customize
Face: Default*> :to #<marker at 1281 in *Customize Face: Default*>)
(custom-comment :parent #0 :value "" :indent 0 :from #<marker at 571 in
*Customize Face: Default*> :to #<marker at 571 in *Customize Face:
Default*>)) :from #<marker (before-insertion) at 447 in *Customize Face:
Default*> :to #<marker at 1281 in *Customize Face: Default*>
:comment-shown nil) :action (mouse-1 (#<window 3 on *Customize Face:
Default*> 479 (51 . 212) 5556895)))
widget-parent-action((custom-magic :args (nil) :parent (custom-face
:documentation-shown t :custom-state modified :tag "Default" :value
default :sample-overlay #<overlay from 447 to 454 in *Customize Face:
Default*> :custom-magic #0 :buttons (... ... #0 ... ...) :comment-widget
(custom-comment :parent #1 :value "" :indent 0 :from #<marker at 571 in
*Customize Face: Default*> :to #<marker at 571 in *Customize Face:
Default*>) :custom-form selected :children (... ...) :from #<marker
(before-insertion) at 447 in *Customize Face: Default*> :to #<marker at
1281 in *Customize Face: Default*> :comment-shown nil) :indent 0
: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 #0 :indent 0
:button-overlay #<overlay from 478 to 483 in *Customize Face: Default*>
:from #<marker (before-insertion) at 478 in *Customize Face: Default*>
:to #<marker at 483 in *Customize Face: Default*>)) :from #<marker
(before-insertion) at 475 in *Customize Face: Default*> :to #<marker at
551 in *Customize Face: Default*> :buttons nil :value nil) (mouse-1
(#<window 3 on *Customize Face: Default*> 479 (51 . 212) 5556895)))
widget-apply((custom-magic :args (nil) :parent (custom-face
:documentation-shown t :custom-state modified :tag "Default" :value
default :sample-overlay #<overlay from 447 to 454 in *Customize Face:
Default*> :custom-magic #0 :buttons (... ... #0 ... ...) :comment-widget
(custom-comment :parent #1 :value "" :indent 0 :from #<marker at 571 in
*Customize Face: Default*> :to #<marker at 571 in *Customize Face:
Default*>) :custom-form selected :children (... ...) :from #<marker
(before-insertion) at 447 in *Customize Face: Default*> :to #<marker at
1281 in *Customize Face: Default*> :comment-shown nil) :indent 0
: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 #0 :indent 0
:button-overlay #<overlay from 478 to 483 in *Customize Face: Default*>
:from #<marker (before-insertion) at 478 in *Customize Face: Default*>
:to #<marker at 483 in *Customize Face: Default*>)) :from #<marker
(before-insertion) at 475 in *Customize Face: Default*> :to #<marker at
551 in *Customize Face: Default*> :buttons nil :value nil) :action
(mouse-1 (#<window 3 on *Customize Face: Default*> 479 (51 . 212)
5556895)))
widget-parent-action((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 (custom-magic :args
(nil) :parent (custom-face :documentation-shown t :custom-state modified
:tag "Default" :value default :sample-overlay #<overlay from 447 to 454
in *Customize Face: Default*> :custom-magic #1 :buttons ...
:comment-widget ... :custom-form selected :children ... :from #<marker
(before-insertion) at 447 in *Customize Face: Default*> :to #<marker at
1281 in *Customize Face: Default*> :comment-shown nil) :indent 0
:children (#0) :from #<marker (before-insertion) at 475 in *Customize
Face: Default*> :to #<marker at 551 in *Customize Face: Default*>
:buttons nil :value nil) :indent 0 :button-overlay #<overlay from 478 to
483 in *Customize Face: Default*> :from #<marker (before-insertion) at
478 in *Customize Face: Default*> :to #<marker at 483 in *Customize
Face: Default*>) (mouse-1 (#<window 3 on *Customize Face: Default*> 479
(51 . 212) 5556895)))
widget-apply((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 (custom-magic :args
(nil) :parent (custom-face :documentation-shown t :custom-state modified
:tag "Default" :value default :sample-overlay #<overlay from 447 to 454
in *Customize Face: Default*> :custom-magic #1 :buttons ...
:comment-widget ... :custom-form selected :children ... :from #<marker
(before-insertion) at 447 in *Customize Face: Default*> :to #<marker at
1281 in *Customize Face: Default*> :comment-shown nil) :indent 0
:children (#0) :from #<marker (before-insertion) at 475 in *Customize
Face: Default*> :to #<marker at 551 in *Customize Face: Default*>
:buttons nil :value nil) :indent 0 :button-overlay #<overlay from 478 to
483 in *Customize Face: Default*> :from #<marker (before-insertion) at
478 in *Customize Face: Default*> :to #<marker at 483 in *Customize
Face: Default*>) :action (mouse-1 (#<window 3 on *Customize Face:
Default*> 479 (51 . 212) 5556895)))
widget-apply-action((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 (custom-magic :args
(nil) :parent (custom-face :documentation-shown t :custom-state modified
:tag "Default" :value default :sample-overlay #<overlay from 447 to 454
in *Customize Face: Default*> :custom-magic #1 :buttons ...
:comment-widget ... :custom-form selected :children ... :from #<marker
(before-insertion) at 447 in *Customize Face: Default*> :to #<marker at
1281 in *Customize Face: Default*> :comment-shown nil) :indent 0
:children (#0) :from #<marker (before-insertion) at 475 in *Customize
Face: Default*> :to #<marker at 551 in *Customize Face: Default*>
:buttons nil :value nil) :indent 0 :button-overlay #<overlay from 478 to
483 in *Customize Face: Default*> :from #<marker (before-insertion) at
478 in *Customize Face: Default*> :to #<marker at 483 in *Customize
Face: Default*>) (mouse-1 (#<window 3 on *Customize Face: Default*> 479
(51 . 212) 5556895)))
widget-button-click((mouse-1 (#<window 3 on *Customize Face: Default*>
479 (51 . 212) 5556895)))
Custom-move-and-invoke((mouse-1 (#<window 3 on *Customize Face:
Default*> 479 (51 . 212) 5556895)))
call-interactively(Custom-move-and-invoke)
Recent input:
<tab> <return> <help-echo> <help-echo> <escape> x c
u s <tab> - f a c <tab> <return> d e f a u l t <return>
<help-echo> <help-echo> <down-mouse-1> <mouse-1> <backspace>
<backspace> <backspace> <backspace> <backspace> <backspace>
<backspace> <backspace> <backspace> <backspace> <backspace>
<backspace> <backspace> j n <backspace> m k - n e e
p <down-mouse-1> <mouse-1> <backspace> <backspace>
4 0 <help-echo> <help-echo> <help-echo> <down-mouse-1>
<mouse-1> <escape> x e m a c <tab> r e <tab> <backspace>
<backspace> s e <tab> <backspace> <backspace> b u <tab>
<backspace> <backspace> <backspace> <backspace> <backspace>
<backspace> <backspace> <backspace> r e <tab> p o <tab>
r t <tab> <return>
Recent messages:
Creating customization items ...done
Creating customization setup...
Creating customization buffer...done
Loading debug...done
Entering debugger...
[2 times]
Making completion list...
Loading view...done
Making completion list...
Loading emacsbug...done
^ permalink raw reply [flat|nested] 5+ messages in thread* Re: infinite loop when customizing default face
2002-05-30 7:51 infinite loop when customizing default face Ryan Shaw
@ 2002-05-31 7:06 ` Richard Stallman
2002-05-31 7:38 ` Ryan Shaw
2002-05-31 17:20 ` infinite loop when customizing default face Eli Zaretskii
0 siblings, 2 replies; 5+ messages in thread
From: Richard Stallman @ 2002-05-31 7:06 UTC (permalink / raw)
Cc: bug-gnu-emacs, eliz
I recognize this as a bug I fixed in the past couple of months.
Does this replacement function fix it?
(Eli, could you put this fix into RC?)
(defun face-set-after-frame-default (frame)
"Set frame-local faces of FRAME from face specs and resources.
Initialize colors of certain faces from frame parameters."
(dolist (face (face-list))
(when (not (equal face 'default))
(face-spec-set face (face-user-default-spec face) frame)
(internal-merge-in-global-face face frame)
(when (and (memq window-system '(x w32 mac))
(or (not (boundp 'inhibit-default-face-x-resources))
(not (eq face 'default))))
(make-face-x-resource-internal face frame))))
;; Initialize attributes from frame parameters.
(let ((params '((foreground-color default :foreground)
(background-color default :background)
(border-color border :background)
(cursor-color cursor :background)
(scroll-bar-foreground scroll-bar :foreground)
(scroll-bar-background scroll-bar :background)
(mouse-color mouse :background))))
(dolist (param params)
(let ((frame-param (frame-parameter frame (nth 0 param)))
(face (nth 1 param))
(attr (nth 2 param)))
(when (and frame-param
;; Don't override face attributes explicitly
;; specified for new frames.
(eq (face-attribute face attr t) 'unspecified))
(set-face-attribute face frame attr frame-param))))))
^ permalink raw reply [flat|nested] 5+ messages in thread* Re: infinite loop when customizing default face
2002-05-31 7:06 ` Richard Stallman
@ 2002-05-31 7:38 ` Ryan Shaw
2002-05-31 16:27 ` infinite loop in tcl for ESC q fill-paragraph Sam Sirlin
2002-05-31 17:20 ` infinite loop when customizing default face Eli Zaretskii
1 sibling, 1 reply; 5+ messages in thread
From: Ryan Shaw @ 2002-05-31 7:38 UTC (permalink / raw)
Cc: bug-gnu-emacs, eliz
[-- Attachment #1: Type: text/plain, Size: 1620 bytes --]
Yes, that fixes it nicely. Thank you very much.
On Fri, 2002-05-31 at 16:06, Richard Stallman wrote:
> I recognize this as a bug I fixed in the past couple of months.
> Does this replacement function fix it?
>
> (Eli, could you put this fix into RC?)
>
> (defun face-set-after-frame-default (frame)
> "Set frame-local faces of FRAME from face specs and resources.
> Initialize colors of certain faces from frame parameters."
> (dolist (face (face-list))
> (when (not (equal face 'default))
> (face-spec-set face (face-user-default-spec face) frame)
> (internal-merge-in-global-face face frame)
> (when (and (memq window-system '(x w32 mac))
> (or (not (boundp 'inhibit-default-face-x-resources))
> (not (eq face 'default))))
> (make-face-x-resource-internal face frame))))
>
> ;; Initialize attributes from frame parameters.
> (let ((params '((foreground-color default :foreground)
> (background-color default :background)
> (border-color border :background)
> (cursor-color cursor :background)
> (scroll-bar-foreground scroll-bar :foreground)
> (scroll-bar-background scroll-bar :background)
> (mouse-color mouse :background))))
> (dolist (param params)
> (let ((frame-param (frame-parameter frame (nth 0 param)))
> (face (nth 1 param))
> (attr (nth 2 param)))
> (when (and frame-param
> ;; Don't override face attributes explicitly
> ;; specified for new frames.
> (eq (face-attribute face attr t) 'unspecified))
> (set-face-attribute face frame attr frame-param))))))
[-- Attachment #2: This is a digitally signed message part --]
[-- Type: application/pgp-signature, Size: 189 bytes --]
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: infinite loop when customizing default face
2002-05-31 7:06 ` Richard Stallman
2002-05-31 7:38 ` Ryan Shaw
@ 2002-05-31 17:20 ` Eli Zaretskii
1 sibling, 0 replies; 5+ messages in thread
From: Eli Zaretskii @ 2002-05-31 17:20 UTC (permalink / raw)
Cc: ryan.shaw, bug-gnu-emacs
> Date: Fri, 31 May 2002 01:06:01 -0600 (MDT)
> From: Richard Stallman <rms@gnu.org>
>
> I recognize this as a bug I fixed in the past couple of months.
> Does this replacement function fix it?
>
> (Eli, could you put this fix into RC?)
Done.
^ permalink raw reply [flat|nested] 5+ messages in thread
end of thread, other threads:[~2002-05-31 17:20 UTC | newest]
Thread overview: 5+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2002-05-30 7:51 infinite loop when customizing default face Ryan Shaw
2002-05-31 7:06 ` Richard Stallman
2002-05-31 7:38 ` Ryan Shaw
2002-05-31 16:27 ` infinite loop in tcl for ESC q fill-paragraph Sam Sirlin
2002-05-31 17:20 ` infinite loop when customizing default face Eli Zaretskii
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).