diff options
| -rw-r--r-- | lisp/language/ind-util.el | 12 |
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. |
| 786 | Returns new end position." | 786 | Returns 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. |
| 802 | Returns new end position." | 802 | Returns 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 | ||