diff options
| author | Kenichi Handa <handa@etlken> | 2010-05-27 13:24:30 +0900 |
|---|---|---|
| committer | Kenichi Handa <handa@etlken> | 2010-05-27 13:24:30 +0900 |
| commit | 2b25da455e14b3712f544ebf7fb1c83d17353130 (patch) | |
| tree | 09aa79ae0ab208d2404852a2ceb1aa63f7e3d5ca /lisp/language/hebrew.el | |
| parent | b705058384311a5b4d059d7c71de2e8984802ca6 (diff) | |
| download | emacs-2b25da455e14b3712f544ebf7fb1c83d17353130.tar.gz | |
language/hebrew.el (hebrew-shape-gstring): Check if a glyph element of GSTRING is nil.
Diffstat (limited to 'lisp/language/hebrew.el')
| -rw-r--r-- | lisp/language/hebrew.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/language/hebrew.el b/lisp/language/hebrew.el index 5c39bb22416..f024251c60b 100644 --- a/lisp/language/hebrew.el +++ b/lisp/language/hebrew.el @@ -92,6 +92,9 @@ Bidirectional editing is supported."))) (nchars (lgstring-char-len gstring)) (nglyphs (lgstring-glyph-len gstring)) (base-width (lglyph-width (lgstring-glyph gstring 0)))) + (while (and (> nglyphs 1) + (not (lgstring-glyph gstring (1- nglyphs)))) + (setq nglyphs (1- nglyphs))) (while (> nglyphs 1) (setq nglyphs (1- nglyphs)) (let* ((glyph (lgstring-glyph gstring nglyphs)) |