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

(find-composition): Check if (char-after POS)

Browse Source 
returns a valid character.
This commit is contained in:
Gerd Moellmann 2001-08-17 09:02:29 +00:00
parent 7851eb98ac
commit 64ed6f7182
2 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2001-08-16 Vinicius Jose Latorre <vinicius@cpqd.com.br>
* ps-mule.el: (find-composition): Check if (char-after POS)
returns a valid character.
2001-08-16 Eli Zaretskii <eliz@is.elta.co.il>
* hexl.el (hexl-mode, hexl-mode-exit): Adjust hexl-max-address and

16
lisp/ps-mule.el
View File

@ -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