face-remap-add-relative and map-apply in mode hook

face-remap-add-relative and map-apply in mode hook

[Oscar Brink]

I want to add a hook to a major mode to change how some faces look in the mode.

I do not understand why the following does not work

(1)
;; This does NOT work
(lambda ()
  (map-apply (lambda (face specs) (face-remap-add-relative face specs))
	  '(('font-lock-comment-delimiter-face . (:foreground "#6EDA8D"))
	    ('font-lock-comment-face . (:foreground "#6EDA8D")))))

AFAICT using the debugger, (1) does run face-remap-add-relative but nothing happens visually.

(2)
;; This does work
(lambda ()
  (progn
    (face-remap-add-relative 'font-lock-comment-delimiter-face :foreground "#6EDA8D")
    (face-remap-add-relative 'font-lock-comment-face :foreground "#6EDA8D"))

(2) works. It seems to me to be roughly equivalent to (1).

Regards,
Oscar

Re: face-remap-add-relative and map-apply in mode hook

[Eli Zaretskii]

> Date: Sat, 21 Nov 2020 15:33:05 +0000
> From: "Oscar Brink" <oscar@brink.pw>
> 
> I do not understand why the following does not work
> 
> (1)
> ;; This does NOT work
> (lambda ()
>   (map-apply (lambda (face specs) (face-remap-add-relative face specs))
> 	  '(('font-lock-comment-delimiter-face . (:foreground "#6EDA8D"))
> 	    ('font-lock-comment-face . (:foreground "#6EDA8D")))))

For starters, remove the quotes from the file names inside the quoted
list.

Re: face-remap-add-relative and map-apply in mode hook

[Michael Heerdegen]

Eli Zaretskii <eliz@gnu.org> writes:

> > ;; This does NOT work
> > (lambda ()
> >   (map-apply (lambda (face specs) (face-remap-add-relative face specs))
> > 	  '(('font-lock-comment-delimiter-face . (:foreground "#6EDA8D"))
> > 	    ('font-lock-comment-face . (:foreground "#6EDA8D")))))
>
> For starters, remove the quotes from the file names inside the quoted
> list.

Yip (from the face names).  Then it works for me.

Michael.