comparison lisp/ps-mule.el @ 38855:db1312628833

(find-composition): Check if (char-after POS) returns a valid character.

38854:3e55b265569a

;; Author: Vinicius Jose Latorre <[e-mail]>
;;	Kenichi Handa <[e-mail]> (multi-byte characters)
;; Maintainer: Kenichi Handa <[e-mail]> (multi-byte characters)
;;	Vinicius Jose Latorre <[e-mail]>
;; Keywords: wp, print, PostScript, multibyte, mule
;; Time-stamp: <2001/08/07 13:50:53 vinicius>

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

	  (if (= (car rule) 4) (setcar rule 10))
	  (if (= (cdr rule) 4) (setcdr rule 10))
	  (+ (* (car rule) 12) (cdr rule)))
	(defun find-composition (pos &rest ignore)
	  (let ((ch (char-after pos)))
	    (if (eq (char-charset ch) 'composition)
		(let ((components (decompose-composite-char ch 'vector t)))
		  (list pos (ps-mule-next-point pos) components
			(integerp (aref components 1)) nil
			(char-width ch)))))))
    ;; mule package isn't loaded
    (or (fboundp 'encode-composition-rule)
	(defun encode-composition-rule (rule)
	  130))
    (or (fboundp 'find-composition)

	    bottom height add TOP gt { /TOP bottom height add def } if
	    [ elt left LLX sub bottom LLY sub ]
	} ifelse } ifelse } ifelse
    } forall ] /components exch def
    grestore
    
    %% Reflect special effects.
    SpecialEffect
    
    %% Draw components while ignoring effects other than shadow and outline.
    components ShowComponents

    /Composing false def
} def

38855:db1312628833

;; Author: Vinicius Jose Latorre <[e-mail]>
;;	Kenichi Handa <[e-mail]> (multi-byte characters)
;; Maintainer: Kenichi Handa <[e-mail]> (multi-byte characters)
;;	Vinicius Jose Latorre <[e-mail]>
;; Keywords: wp, print, PostScript, multibyte, mule
;; Time-stamp: <2001/08/15 15:34:11 vinicius>

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

	  (if (= (car rule) 4) (setcar rule 10))
	  (if (= (cdr rule) 4) (setcdr rule 10))
	  (+ (* (car rule) 12) (cdr rule)))
	(defun find-composition (pos &rest ignore)
	  (let ((ch (char-after pos)))
	    (and ch (eq (char-charset ch) 'composition)
		 (let ((components (decompose-composite-char ch 'vector t)))
		   (list pos (ps-mule-next-point pos) components
			 (integerp (aref components 1)) nil
			 (char-width ch)))))))
    ;; mule package isn't loaded
    (or (fboundp 'encode-composition-rule)
	(defun encode-composition-rule (rule)
	  130))
    (or (fboundp 'find-composition)

	    bottom height add TOP gt { /TOP bottom height add def } if
	    [ elt left LLX sub bottom LLY sub ]
	} ifelse } ifelse } ifelse
    } forall ] /components exch def
    grestore

    %% Reflect special effects.
    SpecialEffect

    %% Draw components while ignoring effects other than shadow and outline.
    components ShowComponents

    /Composing false def
} def