mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Rename symbols in ind-util.el to have indian- prefixes

Browse source 
* 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-*.
This commit is contained in:
Lars Ingebrigtsen 2019-06-18 15:35:16 +02:00
parent 6a02ca0b8c
commit e09fcc1ff3
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/language/ind-util.el
View file

@ -775,13 +775,13 @@
(defvar is13194-to-ucs-kannada-hashtbl nil)
(defvar is13194-to-ucs-kannada-regexp nil)
(defvar ucs-to-is13194-regexp
(defvar indian-ucs-to-is13194-regexp
;; only Devanagari is supported now.
(concat "[" (char-to-string #x0900)
"-" (char-to-string #x097f) "]")
"Regexp that matches to conversion")
(defun ucs-to-iscii-region (from to)
(defun indian-ucs-to-iscii-region (from to)
"Converts the indian UCS characters in the region to ISCII.
Returns new end position."
(interactive "r")
@ -791,13 +791,13 @@ Returns new end position."
(narrow-to-region from to)
(goto-char (point-min))
(let* ((current-repertory is13194-default-repertory))
(while (re-search-forward ucs-to-is13194-regexp nil t)
(while (re-search-forward indian-ucs-to-is13194-regexp nil t)
(replace-match
(get-char-code-property (string-to-char (match-string 0))
'iscii))))
(point-max))))
(defun iscii-to-ucs-region (from to)
(defun indian-iscii-to-ucs-region (from to)
"Converts the ISCII characters in the region to UCS.
Returns new end position."
(interactive "r")
@ -848,7 +848,7 @@ Returns new end position."
;;;###autoload
(defun in-is13194-post-read-conversion (len)
(let ((pos (point)) endpos)
(setq endpos (iscii-to-ucs-region pos (+ pos len)))
(setq endpos (indian-iscii-to-ucs-region pos (+ pos len)))
(- endpos pos)))
;;;###autoload
@ -858,7 +858,7 @@ Returns new end position."
(if (stringp from)
(insert from)
(insert-buffer-substring buf from to))
(ucs-to-iscii-region (point-min) (point-max))
(indian-ucs-to-iscii-region (point-min) (point-max))
nil))