mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

Fix face attributes recognition

Browse Source
This commit is contained in:
Vinicius Jose Latorre 2008-01-09 03:27:04 +00:00
parent 01f5d76d8c
commit fd7ec851c6
4 changed files with 43 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/ChangeLog.unicode
View File

@ -1,3 +1,14 @@
2008-01-09 Vinicius Jose Latorre <viniciusjl@ig.com.br>
* ps-print.el: Some face attributes (like :strike-through) was not
being recognised. Reported by Leo <sdl.web@gmail.com>.
(ps-print-version): New version 7.3.2.
(ps-screen-to-bit-face): Fix code. Call ps-face-strikout-p,
ps-face-overline-p and ps-face-box-p funs.
* ps-def.el (ps-face-strikout-p, ps-face-overline-p, ps-face-box-p):
New funs.
2008-01-09 Kenichi Handa <handa@ni.aist.go.jp>
* international/fontset.el (font-encoding-alist): Add an entry for

24
lisp/ps-def.el
View File

@ -1,13 +1,12 @@
;;; ps-def.el --- XEmacs and Emacs definitions for ps-print
;; Copyright (C) 2007 Free Software Foundation, Inc.
;; Copyright (C) 2007, 2008 Free Software Foundation, Inc.
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Kenichi Handa <handa@m17n.org> (multi-byte characters)
;; Maintainer: Kenichi Handa <handa@m17n.org> (multi-byte characters)
;; Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Keywords: wp, print, PostScript
;; Version: 7.2.2
;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
;; This file is part of GNU Emacs.
@ -241,6 +240,15 @@
(memq face ps-italic-faces))) ; Kludge-compatible
(defalias 'ps-face-strikeout-p 'ignore)
(defalias 'ps-face-overline-p 'ignore)
(defalias 'ps-face-box-p 'ignore)
;; XEmacs will have to make do with %s (princ) for floats.
(defvar ps-color-format "%s %s %s")
(defvar ps-float-format "%s ")
@ -362,6 +370,18 @@
(memq face ps-italic-faces)))
(defun ps-face-strikeout-p (face)
(eq (face-attribute face :strike-through) t))
(defun ps-face-overline-p (face)
(eq (face-attribute face :overline) t))
(defun ps-face-box-p (face)
(not (memq (face-attribute face :box) '(nil unspecified))))
;; Emacs understands the %f format; we'll use it to limit color RGB values
;; to three decimals to cut down some on the size of the PostScript output.
(defvar ps-color-format "%0.3f %0.3f %0.3f")

15
lisp/ps-print.el
View File

@ -10,11 +10,11 @@
;; Maintainer: Kenichi Handa <handa@m17n.org> (multi-byte characters)
;; Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Keywords: wp, print, PostScript
;; Version: 7.3.1
;; Version: 7.3.2
;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
(defconst ps-print-version "7.3.1"
"ps-print.el, v 7.3.1 <2007/11/21 vinicius>
(defconst ps-print-version "7.3.2"
"ps-print.el, v 7.3.2 <2008/01/09 vinicius>
Vinicius's last change version -- this file may have been edited as part of
Emacs without changes to the version number. When reporting bugs, please also
@ -6361,9 +6361,12 @@ If FACE is not a valid face name, use default face."
(defun ps-screen-to-bit-face (face)
(cons face
(vector (logior (if (ps-face-bold-p face) 1 0) ; bold
(if (ps-face-italic-p face) 2 0) ; italic
(if (ps-face-underlined-p face) 4 0)) ; underline
(vector (logior (if (ps-face-bold-p face) 1 0) ; bold
(if (ps-face-italic-p face) 2 0) ; italic
(if (ps-face-underlined-p face) 4 0) ; underline
(if (ps-face-strikeout-p face) 8 0) ; strikeout
(if (ps-face-overline-p face) 16 0) ; overline
(if (ps-face-box-p face) 64 0)) ; box
(ps-face-foreground-name face)
(ps-face-background-name face))))

3
lisp/ps-samp.el
View File

@ -1,6 +1,6 @@
;;; ps-samp.el --- ps-print sample setup code
;; Copyright (C) 2007 Free Software Foundation, Inc.
;; Copyright (C) 2007, 2008 Free Software Foundation, Inc.
;; Author: Jim Thompson (was <thompson@wg2.waii.com>)
;; Jacques Duthen (was <duthen@cegelec-red.fr>)
@ -9,7 +9,6 @@
;; Maintainer: Kenichi Handa <handa@m17n.org> (multi-byte characters)
;; Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Keywords: wp, print, PostScript
;; Version: 7.2.2
;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
;; This file is part of GNU Emacs.