aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/language/ind-util.el12
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/language/ind-util.el b/lisp/language/ind-util.el
index 89397f2a81a..beba2df1aeb 100644
--- a/lisp/language/ind-util.el
+++ b/lisp/language/ind-util.el
@@ -775,13 +775,13 @@
775(defvar is13194-to-ucs-kannada-hashtbl nil) 775(defvar is13194-to-ucs-kannada-hashtbl nil)
776(defvar is13194-to-ucs-kannada-regexp nil) 776(defvar is13194-to-ucs-kannada-regexp nil)
777 777
778(defvar ucs-to-is13194-regexp 778(defvar indian-ucs-to-is13194-regexp
779 ;; only Devanagari is supported now. 779 ;; only Devanagari is supported now.
780 (concat "[" (char-to-string #x0900) 780 (concat "[" (char-to-string #x0900)
781 "-" (char-to-string #x097f) "]") 781 "-" (char-to-string #x097f) "]")
782 "Regexp that matches to conversion") 782 "Regexp that matches to conversion")
783 783
784(defun ucs-to-iscii-region (from to) 784(defun indian-ucs-to-iscii-region (from to)
785 "Converts the indian UCS characters in the region to ISCII. 785 "Converts the indian UCS characters in the region to ISCII.
786Returns new end position." 786Returns new end position."
787 (interactive "r") 787 (interactive "r")
@@ -791,13 +791,13 @@ Returns new end position."
791 (narrow-to-region from to) 791 (narrow-to-region from to)
792 (goto-char (point-min)) 792 (goto-char (point-min))
793 (let* ((current-repertory is13194-default-repertory)) 793 (let* ((current-repertory is13194-default-repertory))
794 (while (re-search-forward ucs-to-is13194-regexp nil t) 794 (while (re-search-forward indian-ucs-to-is13194-regexp nil t)
795 (replace-match 795 (replace-match
796 (get-char-code-property (string-to-char (match-string 0)) 796 (get-char-code-property (string-to-char (match-string 0))
797 'iscii)))) 797 'iscii))))
798 (point-max)))) 798 (point-max))))
799 799
800(defun iscii-to-ucs-region (from to) 800(defun indian-iscii-to-ucs-region (from to)
801 "Converts the ISCII characters in the region to UCS. 801 "Converts the ISCII characters in the region to UCS.
802Returns new end position." 802Returns new end position."
803 (interactive "r") 803 (interactive "r")
@@ -848,7 +848,7 @@ Returns new end position."
848;;;###autoload 848;;;###autoload
849(defun in-is13194-post-read-conversion (len) 849(defun in-is13194-post-read-conversion (len)
850 (let ((pos (point)) endpos) 850 (let ((pos (point)) endpos)
851 (setq endpos (iscii-to-ucs-region pos (+ pos len))) 851 (setq endpos (indian-iscii-to-ucs-region pos (+ pos len)))
852 (- endpos pos))) 852 (- endpos pos)))
853 853
854;;;###autoload 854;;;###autoload
@@ -858,7 +858,7 @@ Returns new end position."
858 (if (stringp from) 858 (if (stringp from)
859 (insert from) 859 (insert from)
860 (insert-buffer-substring buf from to)) 860 (insert-buffer-substring buf from to))
861 (ucs-to-iscii-region (point-min) (point-max)) 861 (indian-ucs-to-iscii-region (point-min) (point-max))
862 nil)) 862 nil))
863 863
864 864