(devanagari-range): Renamed from `range'. All calls changed.

[bpt/emacs.git] / lisp / language / tibet-util.el

diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el
index efa07fa..54938ff 100644 (file)
--- a/lisp/language/tibet-util.el
+++ b/lisp/language/tibet-util.el
@@ -1,4 +1,4 @@
-;;; tibet-util.el --- Support for inputting Tibetan characters
+;;; tibet-util.el --- utilities for Tibetan   -*- coding: iso-2022-7bit; -*-
 
 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
@@ -26,11 +26,13 @@
 
 ;; Created: Feb. 17. 1997
 
-;; History:
+;;; History:
 ;; 1997.03.13 Modification in treatment of text properties;
 ;;            Support for some special signs and punctuations.
 ;; 1999.10.25 Modification for a new composition way by K.Handa.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;;;###autoload
@@ -50,7 +52,7 @@ Returns non-nil if CH is Tibetan. Otherwise, returns nil."
        (i 0)
        ch this-trans)
     (while (< i len)
-      (let ((idx (string-match tibetan-precomposition-rule-alist str i)))
+      (let ((idx (string-match tibetan-precomposition-rule-regexp str i)))
        (if (eq idx i)
            ;; Ith character and the followings matches precomposable
            ;; Tibetan sequence.
@@ -116,13 +118,13 @@ The returned string has no composition information."
 ;;; (Sanskrit visarga, though it is a vowel modifier, is considered
 ;;;  to be a punctuation.)
 ;;;
-;;; Here are examples of the words "bsgrubs" and "h'uM"
+;;; Here are examples of the words "bsgrubs" and "hfauM"
 ;;;
-;;;            \e4\e$(7"7\e0"7\e1\e4%qx!"U\e0"G###C"U\e1\e4"7\e0"7\e1\e4"G\e0"G\e1\e(B         \e4\e$(7"Hx!"Rx!"Ur'"_\e0"H"A"U"_\e1\e(B
+;;;            \e4\e$(7"7\e0"7\e1\e4%qx!"U\e0"G###C"U\e1\e4"7\e0"7\e1\e4"G\e0"G\e1\e(B            \e4\e$(7"Hx!"Rx!"Ur'"_\e0"H"R"U"_\e1\e(B
 ;;;
 ;;;                             M
 ;;;             b s b s         h
-;;;               g             '
+;;;               g             fa
 ;;;               r             u
 ;;;               u
 ;;;
@@ -153,8 +155,9 @@ The returned string has no composition information."
     ;; Added by Tomabechi 2000/06/08
     (if (memq char '(?\e$(7"T\e(B ?\e$(7"V\e(B ?\e$(7"W\e(B ?\e$(7"X\e(B ?\e$(7"Y\e(B ?\e$(7"Z\e(B ?\e$(7"b\e(B))
        (setq comp-vowel
-             (cddr (assoc (char-to-string char)
-                          tibetan-composite-vowel-alist))
+             (copy-sequence
+              (cddr (assoc (char-to-string char)
+                           tibetan-composite-vowel-alist)))
              char
              (cadr (assoc (char-to-string char)
                           tibetan-composite-vowel-alist))))
@@ -349,4 +352,4 @@ See also docstring of the function tibetan-compose-region."
 
 (provide 'tibet-util)
 
-;;; language/tibet-util.el ends here.
+;;; tibet-util.el ends here