diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-18 15:35:16 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-18 15:35:16 +0200 |
| commit | e09fcc1ff33c0643e9100cb5eee5ff351a85fcbb (patch) | |
| tree | 3bb474932b696a8db3ecb4831ed55a2f25d0e115 /lisp/language | |
| parent | 6a02ca0b8c055c863bf53d9b92e8bea27b0e992f (diff) | |
| download | emacs-e09fcc1ff33c0643e9100cb5eee5ff351a85fcbb.tar.gz | |
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-*.
Diffstat (limited to 'lisp/language')
| -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 @@ (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)) |