From 82a9ce0fbe7d4e0646fe9d2888f312fa4a39c74b Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 9 Aug 2010 17:12:49 +0900 Subject: [PATCH] language/hebrew.el: Exclude U+05BD (Hebre MAQAF) from the composable pattern. --- lisp/ChangeLog | 5 +++++ lisp/language/hebrew.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 32e9636fb3b..8fa89025a5e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-08-09 Kenichi Handa + + * language/hebrew.el: Exclude U+05BD (Hebre MAQAF) from the + composable pattern. + 2010-08-08 Chong Yidong * tutorial.el (tutorial--default-keys): C-d is now bound to diff --git a/lisp/language/hebrew.el b/lisp/language/hebrew.el index 876f6fa1aba..589412ad385 100644 --- a/lisp/language/hebrew.el +++ b/lisp/language/hebrew.el @@ -237,8 +237,8 @@ Bidirectional editing is supported."))) (setq idx (1+ idx)))))) gstring)) -(let ((pattern1 "[\u05D0-\u05F2][\u0591-\u05BF\u05C1-\u05C5\u05C7]+") - (pattern2 "[\u05D0-\u05F2]\u200D[\u0591-\u05BF\u05C1-\u05C5\u05C7]+")) +(let ((pattern1 "[\u05D0-\u05F2][\u0591-\u05BD\u05BF\u05C1-\u05C5\u05C7]+") + (pattern2 "[\u05D0-\u05F2]\u200D[\u0591-\u05BD\u05BF\u05C1-\u05C5\u05C7]+")) (set-char-table-range composition-function-table '(#x591 . #x5C7) (list (vector pattern2 3 'hebrew-shape-gstring) -- 2.39.2