aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Ingebrigtsen2019-06-18 15:35:16 +0200
committerLars Ingebrigtsen2019-06-18 15:35:16 +0200
commite09fcc1ff33c0643e9100cb5eee5ff351a85fcbb (patch)
tree3bb474932b696a8db3ecb4831ed55a2f25d0e115
parent6a02ca0b8c055c863bf53d9b92e8bea27b0e992f (diff)
downloademacs-e09fcc1ff33c0643e9100cb5eee5ff351a85fcbb.tar.gz
emacs-e09fcc1ff33c0643e9100cb5eee5ff351a85fcbb.zip
Rename symbols in ind-util.el to have indian- prefixes
* lisp/language/ind-util.el (indian-ucs-to-is13194-regexp) (indian-ucs-to-iscii-region, indian-iscii-to-ucs-region): Rename unprefixed function to indian-*.
-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