Hi group,

I have a problem with Xemacs that I don't understand. The problem is the faces are not used when Xemacs starts. If I do C-x,5,2 it works right.

This is what my init.el looks like:

> > ;; Red Hat Linux default .emacs initialization file
> >
> > ;; Set up the keyboard so the delete key on both the regular keyboard
> > ;; and the keypad delete the character under the cursor and to the right
> > ;; under X, instead of the default, backspace behavior.
> >
> > (global-set-key [delete] 'delete-char)
> > (global-set-key [kp-delete] 'delete-char)
> >
> > ;; Festival support
> >
> > ;; (autoload 'say-minor-mode "festival" "Menu for using Festival." t)
> >
> > ;; (say-minor-mode t)
> >
> > (require 'font-lock)
> >
> > (setq vm-frame-per-composition nil)
> > (setq vm-frame-per-folder nil)
> > (setq vm-frame-per-edit nil)
> > (setq vm-frame-per-summary nil)
> >
> > (setq next-line-add-newlines t )
> > (setq indent-tabs-mode nil)
> > (setq tab-width 2 )
> > (setq goal-column 1 )
> > (setq standard-indent 2 )
> > (setq delete-key-deletes-forward 1 )
> > (setq paren-ding-unmatched t )
> > (setq paren-mode 'blink-paren )
> > (setq tpu-set-cursor-bound nil )
> >
> > (global-set-key [f2] 'save-buffer)
> > (global-set-key [f3] 'kill-this-buffer)
> > (global-set-key [f12] 'rotate-buffer)
> >
> > ;; (setq mouse-track-rectangle-p t)
> > ;; (global-set-key ' (button1) 'mouse-track-do-rectangle)
> > ;; (global-set-key ' (control button1) 'mouse-track)
> >
> > (global-set-key ' (control f3) 'delete-screen)
> > (global-set-key ' (control e) 'kill-line)
> > (global-set-key ' (control backspace) 'kill-line)
> > (global-set-key ' (control up) 'transpose-lines)
> > (global-set-key ' (control return) 'split-line)
> > (global-set-key ' (control f3) 'delete-screen)
> > (global-set-key ' (control backspace) 'kill-line)
> > (global-set-key ' (control return) 'split-line)
> > (global-set-key ' (control up) 'transpose-line-up)
> > (global-set-key ' (control down) 'transpose-line-down)
> > (global-set-key ' (control k) 'copy-from-above-command)
> > (global-set-key ' (control left) 'shift-region-right)
> > (global-set-key ' (control right) 'shift-region-left)
> > (global-set-key ' (control delete) 'delete-region)
> > (global-set-key ' (control tab) 'switch-to-next-buffer)
> > (global-set-key [return] 'my-return)
> > (global-set-key ' (meta return) 'newline-and-indent)
> > (global-set-key ' (control return) 'split-line)
> > (global-set-key ' (alt j) 'delete-indentation)
> > (global-set-key ' (kp-insert) 'my-return)
> >
> > ;; (require 'junk)
> > (global-set-key ' (control R) 'junk)
> >
> >
> > (pushnew "~wre00/.elisp" load-path :test 'equal)
> >
> > (set-face-foreground 'default (list "green" "green" ) )
> > (set-face-background 'default (list "black" "black" ) )
> >
> > (set-face-background 'zmacs-region "yellow" )
> > (set-face-foreground 'zmacs-region "black" )
> > (set-cursor-color '"white" )
> > (set-face-underline-p 'default nil 'global 'tty)
> > (set-face-highlight-p 'default nil 'global 'tty)
> > (set-face-reverse-p 'default nil 'global 'tty)
> >
> > (turn-on-pending-delete)
> > (add-hook 'c-mode-common-hook ' (lambda () (setq c-basic-offset 2)))
> >
> > (autoload 'rexx-mode "rexx-mode" "REXX mode" nil t)
> > ; (autoload 'rexx-debug "rexx-debug" "REXX source level debugger" t)
> >
> > (defun shift-region-left (arg)
> > (interactive "*p")
> > (indent-rigidly (region-beginning) (region-end) 1))
> >
> > (defun shift-region-right (arg)
> > (interactive "*p")
> > (indent-rigidly (region-beginning) (region-end) -1))
> >
> > (defun my-return (arg)
> > "Make Xemacs return to beginning of next line"
> > (interactive "*p")
> > (next-line arg)
> > (beginning-of-line))
> >
> > (setq auto-mode-alist
> > (append
> > (list (cons "\\.rexx$" 'rexx-mode)
> > (cons "\\.elx$" 'rexx-mode)
> > (cons "\\.cmd$" 'rexx-mode)
> > (cons "\\.cpr$" 'rexx-mode))
> > auto-mode-alist ))
> >
> > ;; (setq auto-mode-alist
> > ;; (append
> > ;; (forward-line -1)
> > ;; (looking-at "^[\//*]" 'rexx-mode))
> > ;; auto-mode-alist ))
> >
> >
> > (if (looking-at "\/\* Rexx ") 'display-warning :warning "Rexx")
> >
> > (if (looking-at "\[/* Rexx ]") 'display-warning :warning "Rexx")
> >
> > (if (looking-at "^\//* Rexx ") 'display-warning :warning "hello")
> >
> > ;;(display-warning :warning "TEST" )
> > ;; (display-warning :warning "TEST" )
> >
> > (setq rexx-mode-hook ' (lambda ()
> > (setq rexx-indent 2)
> > (setq rexx-end-indent 2)
> > (setq rexx-cont-indent 2)
> > (local-set-key \"\\C-m\"
'rexx-indent-newline-indent)
> > (abbrev-mode 1 )))
> >
> > (custom-set-variables
> > ' (column-number-mode t)
> > ' (truncate-lines t)
> > ' (line-number-mode t)
> > ' (font-lock-mode t nil (font-lock)))
> >
> > (custom-set-faces
> > ' (default ( (t (:size "14pt"))) t))
> >
> > (setq minibuffer-max-depth nil)
> >
> > (require 'cc-mode)
> >
> > (define-key c-mode-map [delete] 'delete-char)
> >
> >
;;================================================ =============================
> > ;; scroll on mouse wheel
> >
;;================================================ =============================
> > ;; scroll on wheel of mouses
> > (define-key global-map 'button4
> > ' (lambda (&rest args)
> > (interactive)
> > (let ( (curwin (selected-window)))
> > (select-window (car (mouse-pixel-position)))
> > (scroll-down 5)
> > (select-window curwin)
> > )))
> > (define-key global-map [ (shift button4)]
> > ' (lambda (&rest args)
> > (interactive)
> > (let ( (curwin (selected-window)))
> > (select-window (car (mouse-pixel-position)))
> > (scroll-down 1)
> > (select-window curwin)
> > )))
> > (define-key global-map [ (control button4)]
> > ' (lambda (&rest args)
> > (interactive)
> > (let ( (curwin (selected-window)))
> > (select-window (car (mouse-pixel-position)))
> > (scroll-down)
> > (select-window curwin)
> > )))
> > (define-key global-map 'button5
> > ' (lambda (&rest args)
> > (interactive)
> > (let ( (curwin (selected-window)))
> > (select-window (car (mouse-pixel-position)))
> > (scroll-up 5)
> > (select-window curwin)
> > )))
> > (define-key global-map [ (shift button5)]
> > ' (lambda (&rest args)
> > (interactive)
> > (let ( (curwin (selected-window)))
> > (select-window (car (mouse-pixel-position)))
> > (scroll-up 1)
> > (select-window curwin)
> > )))
> > (define-key global-map [ (control button5)]
> > ' (lambda (&rest args)
> > (interactive)
> > (let ( (curwin (selected-window)))
> > (select-window (car (mouse-pixel-position)))
> > (scroll-up)
> > (select-window curwin)
> > )))
> > ;; (make-frame)