bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Customization problem


From: Chris F.A. Johnson
Subject: Customization problem
Date: Mon, 5 Nov 2001 15:05:27 -0500 (EST)

GNU Emacs 21.1.1

;;;;;; from my .emacs file:
(custom-set-faces
  ;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.
 '(default ((t (:size "14pt" :stipple nil :background "white" :foreground 
"black" :inverse-video nil :box nil :strike-through nil :overline nil 
:underline nil :slant normal :weight normal :height 150 :width normal :family 
"lucidatypewriter"))))
 '(font-lock-constant-face ((((class color) (background light)) (:foreground 
"Blue"))))
 '(font-lock-string-face ((((class color) (background light)) (:foreground 
"DarkBrown"))))
 '(menu ((((type x-toolkit)) (:underline unspecified :slant unspecified :height 
1.0 :width condensed :family "Helvetica")))))
;;;;;;;;;;;;;;;;;;;;;;

The above section of my .emacs file, generated by the customization
process, produces the following:


Debugger entered--Lisp error: (error "Variable binding depth exceeds 
max-specpdl-size")
  frame-update-face-colors(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :background "white" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:background "white")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :family "lucidatypewriter" #<frame 
emacs@doublethink.workgroup 0x84881a8\ >)
  set-face-attribute(default #<frame emacs@doublethink.workgroup 0x84881a8\ > 
:family "lucidatypewriter")
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))) #<frame emacs@doublethink.workgroup 0x84881a8\ >)
  face-set-after-frame-default(#<frame emacs@doublethink.workgroup 0x84881a8\ >)
  internal-set-lisp-face-attribute(default :height 150 0)
  set-face-attribute(default nil :height 150)
  face-spec-set(default ((t (:size "14pt" :stipple nil :background "white" 
:foreground "black" :inverse-video nil :box nil :strike-through nil :overline 
nil :underline nil :slant normal :weight normal :height 150 :width normal 
:family "lucidatypewriter"))))
  custom-set-faces((default ((t ...))) (font-lock-constant-face ((... ...))) 
(font-lock-string-face ((... ...))) (menu ((... ...))))
  eval-buffer(#<buffer  *load*> nil "~/.emacs" nil t)
  load-with-code-conversion("/home/chris/.emacs" "~/.emacs" t t)
  load("~/.emacs" t t)
  #[nil "…—emacs" windows-nt directory-files nil "^\\.emacs\\(\\.elc?\\)?$" 
"~/.emacs" "~/_emacs" vax-vms "sys$login:.emacs" "/.emacs" t load 
file-name-extension "elc" file-name-sans-extension ".el" file-exists-p 
file-newer-than-file-p message "Warning: %s is newer than %s" sit-for 1 
"default" inhibit-default-init inhibit-startup-message] 5]()
  command-line()
  normal-top-level()

-- 
        Chris F.A. Johnson          bq933@torfree.net
        =================================================================
        c.f.a.johnson@home.com      http://cfaj.freeshell.org
        cfaj@freeshell.org          http://members.home.net/c.f.a.johnson




reply via email to

[Prev in Thread] Current Thread [Next in Thread]