custom-face-lookup

custom-face-lookup

[Francisco Solsona]

	Hi,

	I've just installed Quassia Gnus v0.12, and I soon as started it, I
received this error:

Signaling: (error "Error in ~/Rmail/Gnus/.gnus: (void-function custom-face-lookup)")

GNU Emacs 19.34.1 (i686-pc-linux-gnu, X toolkit) of Mon Jul 28 1997 on tam
Quassia Gnus v0.12

	The version of Gnus that I was using before (Gnus v5.4.9) used to
have this function in gnus.el:

;; The XEmacs people think this is evil, so it must go.
(defun custom-face-lookup (&optional fg bg stipple bold italic underline)
  "Lookup or create a face with specified attributes."
	...

so, my question is: what happen to this function?

Thank you,
Frank

-- 
Those who can, do.  Those who cannot, teach.  Those who cannot teach, HACK!

Re: custom-face-lookup

[Hrvoje Niksic]

Francisco Solsona <solsona@cs.utexas.edu> writes:

> (defun custom-face-lookup (&optional fg bg stipple bold italic underline)
>   "Lookup or create a face with specified attributes."
> 	...
> 
> so, my question is: what happen to this function?

It was a function used by the old `custom-' library, removed for
Quassia Gnus.  What you used it for should be achievable via other
means (e.g. `M-x customize-face'.)

-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
ED WILL NOT CORRUPT YOUR PRECIOUS BODILY FLUIDS!!

Re: custom-face-lookup

[David S. Goldberg]

> Francisco Solsona <solsona@cs.utexas.edu> writes:

>> so, my question is: what happen to this [custom-face-lookup]?

> It was a function used by the old `custom-' library, removed for
> Quassia Gnus.  What you used it for should be achievable via other
> means (e.g. `M-x customize-face'.)

If you want to do it in .gnus, look at face-spec-set.  An example from
my .gnus (thanks to an example from Per Abrahamsen):

      ; define faces
      (face-spec-set 'dsg-midnightblue-italic
		     '((t (:foreground "midnightblue" :italic t))))
      (face-spec-set 'dsg-darkviolet-italic
		     '((t (:foreground "dark violet" :italic t))))
[...]
      
      (setq gnus-cite-face-list
	    (list 'dsg-midnightblue-italic 'dsg-darkviolet-italic
[...]

--
Dave Goldberg
Post: The Mitre Corporation\MS B305\202 Burlington Rd.\Bedford, MA 01730
Phone: 781-271-3887
Email: dsg@mitre.org

Re: custom-face-lookup

[Francisco Solsona]

dsg@linus.mitre.org (David S. Goldberg) writes:

> > Francisco Solsona <solsona@cs.utexas.edu> writes:
> 
> >> so, my question is: what happen to this [custom-face-lookup]?
> 
> > It was a function used by the old `custom-' library, removed for
> > Quassia Gnus.  What you used it for should be achievable via other
> > means (e.g. `M-x customize-face'.)
> 
> If you want to do it in .gnus, look at face-spec-set.  An example from
> my .gnus (thanks to an example from Per Abrahamsen):
> 
>       ; define faces
>       (face-spec-set 'dsg-midnightblue-italic
> 		     '((t (:foreground "midnightblue" :italic t))))

[...]

	Thanks, but finally I have in .gnus, something like:

(custom-set-faces
 '(gnus-group-news-3-empty-face ((((class color) (background dark)) (:bold nil :foreground "MediumSlateBlue"))))
 '(gnus-summary-high-ancient-face ((((class color) (background dark)) (:bold t :foreground "steelblue3"))))
 '(gnus-summary-high-unread-face ((t (:bold t :foreground "lightsteelblue1"))))
 ...)

that is exactly what M-x customize do. :) And works pretty cool.

Francisco
-- 
Do you guys know what you're doing, or are you just hacking?

Re: custom-face-lookup

[Per Abrahamsen]

Francisco Solsona <solsona@cs.utexas.edu> writes:

> 	Thanks, but finally I have in .gnus, something like:
> 
> (custom-set-faces

Don't do that if you ever plan using `M-x customize'.  Actually, just
don't do that.  Use the code David S. Goldberg suggested instead.

Re: custom-face-lookup

[Stefan Waldherr]

>>>>> "David" == David S Goldberg <dsg@linus.mitre.org> writes:

    David> If you want to do it in .gnus, look at face-spec-set.  An
    David> example from my .gnus (thanks to an example from Per
    David> Abrahamsen):

    David>       ; define faces (face-spec-set
    David> 'dsg-midnightblue-italic '((t (:foreground "midnightblue"
    David> :italic t)))) (face-spec-set 'dsg-darkviolet-italic '((t
    David> (:foreground "dark violet" :italic t)))) [...]
      
    David>       (setq gnus-cite-face-list (list
    David> 'dsg-midnightblue-italic 'dsg-darkviolet-italic [...]

Hhhm, what loads face-spec-set? Putting the above stuff in my .gnus.el yields

	Error in ~/.gnus: (void-function face-spec-set)

Thanks,
S.
-- 
Stefan Waldherr                office +1 (412) 268-3837
                                  fax +1 (412) 268-5576
                               e-Mail swa@cs.cmu.edu
                                  www http://www.waldherr.org/

Re: custom-face-lookup

[Mark Moll]

>>> On 23 Nov 1997 14:46:09 -0500, Stefan Waldherr (SW) wrote:
SW> Hhhm, what loads face-spec-set?

face-spec-set is defined in cus-face.el, which is part of the custom
package.
-- 
Mark

Re: custom-face-lookup

[Francisco Solsona]

Stefan Waldherr <swa@cs.cmu.edu> writes:


[...]

> Hhhm, what loads face-spec-set? Putting the above stuff in my .gnus.el yields
> 
> 	Error in ~/.gnus: (void-function face-spec-set)

	face-spec-set: a compiled Lisp function in `cus-face'.

and from the GNUS-NEWS file:

*** The Gnus alpha distribution no longer bundles Custom and Widget.
If your Emacs doesn't come with these libraries, fetch them from
<URL:http://www.dina.kvl.dk/~abraham/custom/>.  

you're using 

X-Newsreader: Quassia Gnus v0.14/XEmacs 19.16 - "Lille"

so you certainly have the library, all you need to do is to make sure it's
in your load-path. :-)

Francisco
-- 
Grade school arithmetic. The laws of grade school arithmetic are easy: 
1 + 1 = 2, not(true) = false, and (car (cons 1 2)) = 1

Re: custom-face-lookup

[Stefan Waldherr]

>>>>> "Francisco" == Francisco Solsona <solsona@cs.utexas.edu> writes:

    Francisco> you're using

    Francisco> X-Newsreader: Quassia Gnus v0.14/XEmacs 19.16 - "Lille"

    Francisco> so you certainly have the library, all you need to do is to
    Francisco> make sure it's in your load-path. :-)

Well,

swa@mind:~> locate cus-face
/usr/local/lib/xemacs-19.15/lisp/custom/cus-face.el
/usr/local/lib/xemacs-19.15/lisp/custom/cus-face.elc
/usr/local/lib/xemacs-19.16/lisp/custom/cus-face.el
/usr/local/lib/xemacs-19.16/lisp/custom/cus-face.elc

and "/usr/local/lib/xemacs-19.16/lisp/custom/" is in my load-path. 

I do M-x load-library cus-face. Works fine. Yet I get `Symbol's function
definition is void: face-spec-set' when trying to eval (face-spec-set
'my-group-face-1 '((t (:foreground "Red" :bold t)))). Head cus-face.el shows

;;; cus-face.el -- XEmacs specific custom support.
;;
;; Copyright (C) 1996, 1997 Free Software Foundation, Inc.
;;
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; Keywords: help, faces
;; Version: 1.67
;; X-URL: http://www.dina.kvl.dk/~abraham/custom/

;;; Commentary:
;;
;; See `custom.el'.

Am I using the wrong version here?

Stefan.
-- 
Stefan Waldherr                office +1 (412) 268-3837
                                  fax +1 (412) 268-5576
                               e-Mail swa@cs.cmu.edu
                                  www http://www.waldherr.org/

Re: custom-face-lookup

[Per Abrahamsen]

Stefan Waldherr <swa@cs.cmu.edu> writes:

> Am I using the wrong version here?

Yes, upgrade to XEmacs 20.3.  The custom in XEmacs 19.16 is new enough
for Gnus, but doesn't have `face-set-spec'.

Re: custom-face-lookup

[Francisco Solsona]

Per Abrahamsen <abraham@dina.kvl.dk> writes:

> Stefan Waldherr <swa@cs.cmu.edu> writes:
> 
> > Am I using the wrong version here?
> 
> Yes, upgrade to XEmacs 20.3.  The custom in XEmacs 19.16 is new enough
> for Gnus, but doesn't have `face-set-spec'.

	I'm using Emacs 19.34.1, and this is the first couple of lines in
the Changelog:

Mon Oct 20 19:17:54 1997  Per Abrahamsen  <abraham@dina.kvl.dk>

        * Version 1.9961 released. 
                  ^^^^^^

	It works, and is easier to download _custom_ than _XEmacs_, well at
least for me (I cannot install it here anyway) :(

Francisco

-- 
I could tell you, but then I would have to reboot you.