20.7 => 21.2: How to keep old font-lock faces?

20.7 => 21.2: How to keep old font-lock faces?

[Da Witch]

I just switched from 20.7.2 to 21.2.1, and my fontification faces are
all screwed up, even though I'm using the same .emacs file.  How can I
recover the fontification colors I had with 20.7.2?  Is there a way to
do this simply while retaining jit-lock-mode (the reason I switched to
21.x in the first place)?

Thanks,

hk

Re: 20.7 => 21.2: How to keep old font-lock faces?

[Ed L Cashin]

Da Witch <heather710101@yahoo.com> writes:

> I just switched from 20.7.2 to 21.2.1, and my fontification faces are
> all screwed up, even though I'm using the same .emacs file.  How can I
> recover the fontification colors I had with 20.7.2?  Is there a way to
> do this simply while retaining jit-lock-mode (the reason I switched to
> 21.x in the first place)?

I was using an old piece of emacs lisp (that I got from the djgpp
_emacs.xmpl file by Eli Zaretskii) in my .emacs file.  It broke after
font-lock-reference-face went away.  The old code set
font-lock-face-attributes directly, but the code below uses the
documented set-face-foreground command instead.  

(progn        ; Font-locking faces set-up
  (setq
   font-lock-maximum-decoration t
   font-lock-maximum-size (if font-lock-maximum-decoration
			      (* 70 1024)
			      (* 150 1024)))
  (defvar elc-font-lock-faces-alist
    '((font-lock-comment-face . "lightgreen")
      (font-lock-string-face . "yellow")
      (font-lock-keyword-face . "white")
      (font-lock-type-face . "white")
      (font-lock-function-name-face . "gold")
      (font-lock-variable-name-face . "lightblue")
      (font-lock-constant-face . "lightblue"))
    "mapping of font lock faces to my favorite corresponding colors")
  (mapc '(lambda (p) 
	  (let ((face (car p))
		(color (cdr p)))
	    (set-face-foreground face color))) 
	elc-font-lock-faces-alist))


-- 
--Ed L Cashin     PGP public key: http://noserose.net/e/pgp/