/[emacs]/emacs/lisp/ps-print.el
ViewVC logotype

Diff of /emacs/lisp/ps-print.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.124 by gerd, Wed Sep 19 14:54:19 2001 UTC revision 1.125 by rms, Mon Dec 31 20:29:46 2001 UTC
# Line 4011  If EXTENSION is any other symbol, it is Line 4011  If EXTENSION is any other symbol, it is
4011                     (setq face-spec (cons ':background                     (setq face-spec (cons ':background
4012                                           (cons background face-spec))))                                           (cons background face-spec))))
4013                   (when bold-p                   (when bold-p
4014                     (setq face-spec (append '(:bold t) face-spec)))                     (setq face-spec (append '(:weight bold) face-spec)))
4015                   (when italic-p                   (when italic-p
4016                     (setq face-spec (append '(:italic t) face-spec)))                     (setq face-spec (append '(:slant italic) face-spec)))
4017                   (when underline-p                   (when underline-p
4018                     (setq face-spec (append '(:underline t) face-spec)))                     (setq face-spec (append '(:underline t) face-spec)))
4019                   (custom-declare-face face (list (list t face-spec)) nil)                   (custom-declare-face face (list (list t face-spec)) nil)

Legend:
Removed from v.1.124  
changed lines
  Added in v.1.125

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26