users cannot customize faces?

2003-11-11 Thread OHASHI Akira
First, eval the following:

(defface test-face-1
  '((t (:background "Yellow")))
  "test face 1"
  :group 'test)
(custom-set-faces
 '(test-face-1 ((t nil

(custom-set-faces
 '(test-face-2 ((t nil
(defface test-face-2
  '((t (:background "Yellow")))
  "test face 2"
  :group 'test)

These codes bring about the following result.

(face-background 'test-face-1) => "Yellow"
(face-background 'test-face-2) => nil

If defface is in /etc/emacs/site-start.d/xxx.el[1] and
custom-set-faces is in ~/.emacs, custom-set-faces doesn't work fine.
Because debian startup files are loaded before a user init file.
Therefore, users cannot customize faces. Someone have any comments and
good solutions?

[1] of course include the files which is required in

Cheers,

-- 
OHASHI Akira
[EMAIL PROTECTED] [EMAIL PROTECTED]
Share what you know. Learn what you don't.




Re: users cannot customize faces?

2003-11-11 Thread Tatsuya Kinoshita
On November 11, 2003 at 6:52PM +0900,
OHASHI Akira <[EMAIL PROTECTED]> wrote:

> First, eval the following:
> 
> (defface test-face-1
>   '((t (:background "Yellow")))
>   "test face 1"
>   :group 'test)
> (custom-set-faces
>  '(test-face-1 ((t nil
> 
> (custom-set-faces
>  '(test-face-2 ((t nil
> (defface test-face-2
>   '((t (:background "Yellow")))
>   "test face 2"
>   :group 'test)
> 
> These codes bring about the following result.
> 
> (face-background 'test-face-1) => "Yellow"
> (face-background 'test-face-2) => nil

I don't know for certain, but (nil) works fine:

(defface test-face-3
  '((t (:background "Yellow")))
  "test face 1"
  :group 'test)
(custom-set-faces
  '(test-face-3 ((t (nil)
(face-background 'test-face-3) => nil

-- 
Tatsuya Kinoshita




Re: users cannot customize faces?

2003-11-11 Thread OHASHI Akira
> In <[EMAIL PROTECTED]> 
>   Tatsuya Kinoshita <[EMAIL PROTECTED]> wrote:

> I don't know for certain, but (nil) works fine:
> 
> (defface test-face-3
>   '((t (:background "Yellow")))
>   "test face 1"
>   :group 'test)
> (custom-set-faces
>   '(test-face-3 ((t (nil)
> (face-background 'test-face-3) => nil

Eval only the following:

(defface test-face-3
  '((t (:background "Yellow")))
  "test face 1"
  :group 'test)
(face-background 'test-face-3)

Probably you can't get the result "Yellow".

-- 
OHASHI Akira
[EMAIL PROTECTED] [EMAIL PROTECTED]
Share what you know. Learn what you don't.




Re: users cannot customize faces?

2003-11-11 Thread OHASHI Akira
> In <[EMAIL PROTECTED]> 
>   Tatsuya Kinoshita <[EMAIL PROTECTED]> wrote:

> I don't know for certain, but (nil) works fine:

Oh, I see. But the following custom-set-faces was generated by
customize-group. Is that the bug of custom.el?

(custom-set-faces
 '(test-face-1 ((t nil

-- 
OHASHI Akira
[EMAIL PROTECTED] [EMAIL PROTECTED]
Share what you know. Learn what you don't.