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

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

set-face-attribute in a .emacs file


From: David
Subject: set-face-attribute in a .emacs file
Date: Sun, 28 Oct 2001 11:27:48 -0700

;;; -*-Mode: emacs-lisp; fill-column: 78-*-

;;; I do not know if this is considered a bug or not; it is inconvenient.

;;; If I use this file as an initialisation file (it could be a .emacs file):
;;; /usr/local/bin/emacs -q -l this-file
;;; then the fringe colour is not reset.

;;; If I start Emacs without an initialisation file:
;;; /usr/local/bin/emacs -q
;;; and then load this file, then the fringe colour is reset.

;;; In the first case, evaluating (selected-frame) in the scratch buffer does
;;; not give the same value as in the calls in this file.

;;; Also, I have had a similar problem with this in other code:
;;; (set-face-attribute  'fringe
;;;                      (make-frame
;;;                       an-identifier-of-frame-parameters) ; not supplied
;;;                      :background  "green")


(message  (format  "selected-frame, pos 1, is  %s"  (selected-frame)))

(defconst  initial-frame-alist   
  `(
    (name  . ,(concat  (user-real-login-name)
                       " running Emacs "  emacs-version
                       " in style default on "  (system-name)))
    (width                   . 81)
    (height                  . 50)
    (left                    . 80)
    (top                     . 40)
    (user-position           . t)
    (minibuffer              . t)
    (font                    . "7x14")
    (auto-raise              . nil)
    (auto-lower              . nil)
    (vertical-scroll-bars    . nil)
    (horizontal-scroll-bars  . nil)
    (modeline                . t)
    (icon-type               . nil)
    (foreground-color        . "black")
    (background-color        . "PapayaWhip")
    (mouse-color             . "brown")
    (cursor-color            . "orange")
    (border-color            . "LightSalmon4")
    (cursor-type             . box)
    (internal-border-width   . 0)
    (unsplittable            . nil)
    (visibility              . t)
    (menu-bar-lines          . 0)
    (tool-bar-lines          . 0)
    ))

(message  (format  "selected-frame, pos 2, is  %s"  (selected-frame)))

(set-face-attribute  'fringe  (selected-frame)  :background  "red")





reply via email to

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