diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-08-17 09:02:29 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-08-17 09:02:29 +0000 |
| commit | 64ed6f7182ba6a98482f9b6ae05f2c8e342c8ee9 (patch) | |
| tree | 10a1bcc63372658a33e01a3ce402622e08d22ec3 /lisp/ps-mule.el | |
| parent | 7851eb98ac0c314cde21f8d28c46a8ca8e0d9ce8 (diff) | |
| download | emacs-64ed6f7182ba6a98482f9b6ae05f2c8e342c8ee9.tar.gz | |
(find-composition): Check if (char-after POS)
returns a valid character.
Diffstat (limited to 'lisp/ps-mule.el')
| -rw-r--r-- | lisp/ps-mule.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/ps-mule.el b/lisp/ps-mule.el index 91997c9610c..58f8de3d81f 100644 --- a/lisp/ps-mule.el +++ b/lisp/ps-mule.el @@ -7,7 +7,7 @@ ;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters) ;; Vinicius Jose Latorre <vinicius@cpqd.com.br> ;; Keywords: wp, print, PostScript, multibyte, mule -;; Time-stamp: <2001/08/07 13:50:53 vinicius> +;; Time-stamp: <2001/08/15 15:34:11 vinicius> ;; This file is part of GNU Emacs. @@ -242,11 +242,11 @@ Any other value is treated as nil." (+ (* (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))))))) + (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) @@ -1130,10 +1130,10 @@ the sequence." } ifelse } ifelse } ifelse } forall ] /components exch def grestore - + %% Reflect special effects. SpecialEffect - + %% Draw components while ignoring effects other than shadow and outline. components ShowComponents |