Mercurial > emacs

comparison lisp/ps-print.el @ 42452:0cfd64a10789

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ps-font-lock-face-attributes): Use :weight and :slant.
author Richard M. Stallman <rms@gnu.org>
date Mon, 31 Dec 2001 20:32:52 +0000
parents aa246aad950a
children 72a6f9068758
comparison
equal deleted inserted replaced
42451:cade20d9a300 42452:0cfd64a10789
4009 (cons foreground face-spec)))) 4009 (cons foreground face-spec))))
4010 (when background 4010 (when background
4011 (setq face-spec (cons ':background 4011 (setq face-spec (cons ':background
4012 (cons background face-spec)))) 4012 (cons background face-spec))))
4013 (when bold-p 4013 (when bold-p
4014 (setq face-spec (append '(:bold t) face-spec))) 4014 (setq face-spec (append '(:weight bold) face-spec)))
4015 (when italic-p 4015 (when italic-p
4016 (setq face-spec (append '(:italic t) face-spec))) 4016 (setq face-spec (append '(:slant italic) face-spec)))
4017 (when underline-p 4017 (when underline-p
4018 (setq face-spec (append '(:underline t) face-spec))) 4018 (setq face-spec (append '(:underline t) face-spec)))
4019 (custom-declare-face face (list (list t face-spec)) nil) 4019 (custom-declare-face face (list (list t face-spec)) nil)
4020 ))))))) 4020 )))))))
4021 4021