face of line number, time, and mode in mode line

[Joe Corneli]

The face of the line number, column number, time, mode and percent
is show in the default face in the other window (whereas in the
current window it is correctly shown in the mode-line face).

I'm not sure what might be causing this. I figured I would just send
my entire .emacs in case you happen see something there.

;;-*- Mode: Emacs-Lisp -*-  Time-stamp: <jac -- Sun Feb 29 15:08:59 CST 2004>

;; PATHS
(add-to-list 'load-path "~/site-lisp/")
(add-to-list 'exec-path (expand-file-name "~/bin"))
(add-to-list 'exec-path (expand-file-name "/sw/bin"))
(defvar apm:dir "~/apm/")

(cond (window-system
       (setq default-frame-alist
             '((internal-border-width . 2)
               (border-width . 2)
               (left-fringe . 0)
               (right-fringe . 0)
               (menu-bar-lines . 0)
               (tool-bar-lines . 0)
               (tool-bar-lines . 0)
               (modeline . t) 
               (width . 85) 
               (height . 32)
               (background-mode . dark) 
               (display-type . color) 
               (cursor-color . "DeepPink1")
               (background-color . "black")
               (foreground-color . "white")
               (border-width . 2)
               (font . 
"-Sony-Fixed-Medium-R-Normal--24-170-100-100-C-120-ISO8859-1")))
       (blink-cursor-mode -1)
       (tooltip-mode -1)))

;; BASIC ELEMENTS OF EMACS
(setq transient-mark-mode t)
(setq mark-even-if-inactive t)
(setq scroll-step 1)
(setq-default indent-tabs-mode nil)
(setq inhibit-startup-message 1)
(blink-cursor-mode -1)
(setq fill-column 84)
(setq visible-bell t)

; ENABLING OTHERWISE DISABLED COMMANDS ET CETERA
(put 'upcase-region 'disabled nil)
(put 'downcase-region 'disabled nil)
(put 'narrow-to-region 'disabled nil)
(put 'narrow-to-window 'disabled nil)
(put 'set-goal-column 'disabled nil)
(fset 'yes-or-no-p 'y-or-n-p)  ; replace y-e-s by y
(setq completion-ignored-extensions '("CVS/" ".a" ".aux" ".bbl" ".bin" ".blg"
".class" ".cp" ".cps" ".dvi" ".elc" ".fas" ".fasl" ".fmt" ".fn" ".fns" ".glo" 
".idx"
".ky" ".kys" ".la" ".lbin" ".lib" ".ln" ".lo" ".lof" ".log" ".lot" ".o" ".pg" 
".pgs"
".ps" ".sparcf" ".tfm" ".tmp" ".toc" ".tp" ".tps" ".tui" ".ufsl" ".vr" ".vrs"
".x86f" "~"))

; AUTOSAVING
(defun maybe-turn-off-auto-save ()
"Prevent autosave crap for some files, e.g. ones that
are likely to end up in a tarball."
  (if (member
       (file-name-nondirectory (buffer-file-name))
       '("TODO"
         "README"
         "HEADER"
         "LIST-OF-FUTURE-FUNCTIONS"
         "COOL-EMACS-STUFF"))
      (auto-save-mode nil)))
(add-hook 'find-file-hooks 'maybe-turn-off-auto-save)

; PERSONALIZATION 
(defun my-address ()
"My address, to be used by ps-print."
"3007 C Fruth St., Austin, TX  78705")
;(add-hook 'after-init-hook 'detect-keyboard-state)

; TWEAKS
(setq tnt-default-username "thornlocust")
(setq-default ispell-program-name "aspell") ; use aspell instead of ispell
(setq gnus-select-method '(nntp "news.cs.utexas.edu")); gnus doesn't work for 
me...

; TEX TWEAKS
(setq tex-default-header-file ;"~/Desktop/01.02.04/FEM/vol1.tex")
"~/apm/Xi.tex")
(setq tex-last-temp-file nil)
(setq tex-dvi-view-command
      (concat "dvips -o "
              tex-last-temp-file
              ".ps * && gv "
              tex-last-temp-file ".ps"))
; repair, w/ horrid loss of generality
(setq auto-mode-alist (cons '("\\.tex$" . latex-mode)
                            auto-mode-alist))
(setq tex-display-shell-p t) ; needs work

; MACROS DEALING WITH KNOWLEDGE BASE
;(setq auto-mode-alist (cons '("\.km$" . lisp-mode)
;                            auto-mode-alist))
(setq auto-mode-alist (cons '("\.inf$" . inform-mode)
                            auto-mode-alist))
;(load "rkf")

; DIARY, CALENDAR, AND APPOINTMENTS
(add-hook 'write-file-hooks 'time-stamp)
(add-hook 'today-visible-calendar-hook 'calendar-mark-today)
(setq diary-display-hook 'fancy-diary-display)
(setq diary-file "~/.diary.txt"
      european-calendar-style t
      appt-display-diary nil
      appt-display-format 'echo
      appt-message-warning-time 9
      appt-display-interval 3)
(appt-activate 1)
(defun diary-print-to-file ()
  (ps-print-buffer "~/diary.ps"))

; SPREADSHEET
(autoload 'spread-mode "spread")
(setq auto-mode-alist (cons '("\\.sp$" . spread-mode) auto-mode-alist))
(add-hook 'spread-mode-hook 'turn-off-auto-fill nil t)

; INFERIOR PROGRAMS
(defun run-gcl ()
  (interactive)
  (split-window)
  (other-window 1)
  (inferior-lisp "clisp -I"))
(defun run-guile ()
  (interactive)
  (split-window)
  (other-window 1)
  (inferior-lisp "guile"))
(setq explicit-shell-file-name "tcsh")
(autoload 'ansi-color-for-comint-mode-on "ansi-color" nil t)
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)
(add-hook 'comint-output-filter-functions
            'comint-watch-for-password-prompt)
(autoload 'maxima-mode "maxima" "Maxima mode" t)
(autoload 'maxima "maxima" "Maxima interaction" t)
(setq auto-mode-alist (cons '("\\.max" . maxima-mode)
                            auto-mode-alist))

; MODE-LINE
(column-number-mode 1)
(display-time-mode 1)
(setq-default mode-line-format
      (quote ("-" (line-number-mode "L%l-")
             (column-number-mode "C%c-")
              mode-line-modified
              mode-line-frame-identification
              mode-line-buffer-identification
              " "
              global-mode-string
              " %[("
              mode-name
              mode-line-process
              minor-mode-alist
              "%n"
              ")%]-"
              (-3 . "%p") "-%-")))

; CUSTOMIZATIONS
; Some cool font settings
; :height 240 :width normal :family "courier"
;  - 70 columns on my screen
; :height 240 :width normal :family "sony"        <---- good for typing big
;  - 67 columns on my screen (sometimes different b/c of gitch)
; :height 180 :width normal :family "courier"
;  - 91 columns on my screen                      <---- good for man pages
; :height 150 :width normal :family "zapfino"
;  - 140 columns on my screen approx. !           <---- totally wild!
; :height 150 :width normal :family "misc-fixed"
;  - 111 columns on my screen                      <---- generally rather useful
; :height 150 :width normal :family "sony"
;  - 111 columns on my screen

(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(default ((t (:stipple nil :background "black" :foreground "white" 
:inverse-video nil :box nil :strike-through nil :overline nil :underline nil 
:slant normal :weight normal :height 240 :width normal :family "fixed"))))
 '(bold ((nil (:foreground "light blue"))))
 '(book-result ((t (:background "darkviolet" :foreground "white" :slant normal 
:weight bold :height 150 :width normal :family "misc-fixed"))) t)
 '(cursor ((nil (:background "DeepPink1"))) t)
 '(diary-face ((((class color) (background dark)) (:foreground "green"))))
 '(font-lock-builtin-face ((nil (:foreground "orange"))))
 '(font-lock-comment-face ((nil (:foreground "red"))))
 '(font-lock-function-name-face ((((type tty) (class color)) (:foreground 
"yellow" :weight bold))))
 '(font-lock-string-face ((((class color) (background dark)) (:foreground 
"goldenrod"))))
 '(font-lock-variable-name-face ((nil (:foreground "tan"))))
 '(gnus-group-mail-3-empty-face ((((class color) (background dark)) 
(:foreground "chartreuse3"))))
 '(gnus-group-mail-3-face ((t (:foreground "chartreuse1" :weight bold))))
 '(holiday-face ((((class color) (background dark)) (:background "grey15"))))
 '(italic ((nil (:foreground "green"))))
 '(minibuffer-prompt ((t (:foreground "yellow"))))
 '(mode-line ((t (:background "grey10" :foreground "peachpuff" :weight bold))))
 '(region ((((class color) (background dark)) (:background "blue4"))))
 '(w3-style-face-00005 ((t (:foreground "red" :underline nil :weight normal 
:family "fixed"))) t)
 '(w3-style-face-00009 ((t (:foreground "cadetblue" :underline nil :weight 
normal :family "fixed"))) t)
 '(w3-style-face-00010 ((t (:foreground "grey77" :underline t :weight normal 
:family "fixed"))) t)
 '(w3-style-face-00011 ((t (:foreground "navajowhite" :underline nil :weight 
normal :family "fixed"))) t)
 '(w3-style-face-00012 ((t (:foreground "cadetblue" :underline t :weight normal 
:family "fixed"))) t)
 '(w3-style-face-00013 ((t (:foreground "cadetblue" :underline nil :weight 
normal :family "fixed"))) t)
 '(w3-style-face-00014 ((t (:foreground "plum" :underline t :weight normal 
:family "fixed"))) t)
 '(w3-style-face-00015 ((t (:foreground "goldenrod" :underline nil :weight bold 
:family "fixed"))) t)
 '(w3-style-face-00017 ((t (:foreground "darkgreen" :underline nil :weight 
normal :height 100 :family "fixed"))) t)
 '(w3-style-face-00018 ((t (:foreground "plum" :underline nil :weight normal 
:height 100 :family "fixed"))) t)
 '(w3-style-face-00019 ((t (:foreground "alicewhite" :underline nil :weight 
normal :family "fixed"))) t)
 '(w3-style-face-00021 ((t (:foreground "darkgreen" :underline nil :weight 
normal :height 100 :family "fixed"))) t)
 '(w3-style-face-00030 ((t (:background "darkred" :underline nil :weight normal 
:family "fixed"))) t))

(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(Man-fontify-manpage-flag nil)
 '(appt-msg-window nil)
 '(appt-visible t)
 '(auto-image-file-mode t nil (image-file))
 '(bbdb-canonical-hosts 
"cs\\.cmu\\.edu\\|ri\\.cmu\\.edu\\|edrc\\.cmu\\.edu\\|andrew\\.cmu\\.edu\\|mcom\\.com\\|netscape\\.com\\|cenatls\\.cena\\.dgac\\.fr\\|cenaath\\.cena\\.dgac\\.fr\\|irit\\.fr\\|enseeiht\\.fr\\|inria\\.fr\\|cs\\.uiuc\\.edu\\|xemacs\\.org\\|math\\.utexas\\.edu")
 '(bbdb-complete-name-allow-cycling t)
 '(bbdb-default-country "US")
 '(bbdb-display-layout-alist (quote ((one-line (order phones mail-alias) (omit 
creation-date timestamp pilot-id) (name-end . 24) (toggle . t)) (multi-line 
(omit creation-date timestamp pilot-id) (toggle . t)) (pop-up-multi-line) 
(full-multi-line))))
 '(bbdb-gui nil)
 '(bbdb-print-omit-fields (quote (omit tex-name aka mail-alias creation-date 
timestamp)))
 '(blink-matching-delay 0.4)
 '(blink-matching-paren-dont-ignore-comments t)
 '(blink-matching-paren-on-screen t)
 '(canlock-password "3f4ca3fd70e82de56b9bbe930f900f3aeec10357")
 '(dired-listing-switches "-al")
 '(display-time-24hr-format t)
 '(display-time-day-and-date nil)
 '(display-time-mail-face (quote mode-line))
 '(display-time-mail-file "dontcheck")
 '(display-time-string-forms (quote ((if (and (not display-time-format) 
display-time-day-and-date) (format-time-string "%a %b %e " now) "") 
(format-time-string (or display-time-format (if display-time-24hr-format 
"%H:%M" "%-I:%M%p")) now) (if mail (concat " " (propertize 
display-time-mail-string (quote display) (\` (when (and 
display-time-use-mail-icon (display-graphic-p)) (\,@ display-time-mail-icon) 
(\,@ (if (and display-time-mail-face (memq (plist-get (cdr 
display-time-mail-icon) :type) (quote (pbm xbm)))) (let ((bg (face-attribute 
display-time-mail-face :background))) (if (stringp bg) (list :background 
bg))))))) (quote face) display-time-mail-face (quote help-echo) "You have new 
mail; mouse-2: Read mail" (quote local-map) (make-mode-line-mouse-map (quote 
mouse-2) read-mail-command))) ""))))
 '(emacs-wiki-home-page "MegaWiki")
 '(emacs-wiki-index-page "MegaWikiIndex")
 '(emacs-wiki-maintainer "mailto:address@hidden";)
 '(emacs-wiki-publishing-directory "~/Sites")
 '(fill-column 84)
 '(font-lock-maximum-size 1048576)
 '(fortune-dir "/Users/joe/Documents/fortunes/")
 '(global-font-lock-mode t nil (font-lock))
 '(gnus-default-subscribed-newsgroups (quote ("utexas.class.cs386l-lavender")))
 '(gnus-show-threads t)
 '(gnus-summary-mode-line-format "Gnus: %g [%A] %Z %d")
 '(gnus-thread-hide-subtree t)
 '(highlight-nonselected-windows t)
 '(indicate-empty-lines t)
 '(lpr-command "remote-print-postscript")
 '(print-diary-entries-hook (quote (diary-print-to-file)))
 '(printer-name "lw9")
 '(ps-font-size (quote (7 . 9.5)))
 '(ps-footer-font-size (quote (10 . 8)))
 '(ps-footer-lines 1)
 '(ps-header-font-size (quote (10 . 8)))
 '(ps-header-lines 2)
 '(ps-header-title-font-size (quote (12 . 8)))
 '(ps-inter-column 40)
 '(ps-left-footer (quote (nil nil)))
 '(ps-left-header (quote (nil nil ps-get-buffer-name ps-header-dirpart)))
 '(ps-left-margin 72)
 '(ps-multibyte-buffer (quote bdf-font-except-latin))
 '(ps-print-color-p (quote black-white))
 '(ps-print-footer t)
 '(ps-print-footer-frame nil)
 '(ps-print-header t)
 '(ps-print-header-frame nil)
 '(ps-right-footer (quote ("/pagenumberstring load")))
 '(ps-right-header (quote (my-ps-time-stamp my-address)))
 '(ps-right-margin 50)
 '(ratpoison-program "/sw/bin/ratpoison" t)
 '(ses-initial-column-width 12)
 '(show-paren-mode t nil (paren))
 '(show-trailing-whitespace nil)
 '(time-stamp-format "jac -- %3a %3b %2d %02H:%02M:%02S %Z %:y")
 '(timeclock-modeline-display nil nil (timeclock))
 '(truncate-partial-width-windows nil)
 '(w3-honor-stylesheets nil)
 '(w3m-coding-system (quote iso-latin-1))
 '(w3m-edit-function (quote find-file-other-window))
 '(w3m-file-coding-system (quote iso-latin-1))
 '(w3m-file-name-coding-system (quote iso-latin-1))
 '(w3m-mailto-url-function (quote compose-mail))
 '(x-select-enable-clipboard t))

In GNU Emacs 21.3.50.1 (powerpc-apple-darwin7.2.0, X toolkit, Xaw3d scroll bars)
 of 2004-02-29 on hope-of-a-stone.local
configured using `configure '--with-X' '--without-carbon' 
'CFLAGS=-I/sw/include' 'CPPFLAGS=-I/sw/include' 'LDFLAGS=-L/sw/lib''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  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: nil
  default-enable-multibyte-characters: t

Major mode: Emacs-Lisp

Minor modes in effect:
  display-time-mode: t
  auto-image-file-mode: t
  show-paren-mode: t
  mouse-wheel-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  unify-8859-on-encoding-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t