procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Handle more Devanagari characters correctly.

Browse source
This commit is contained in:
Kenichi Handa 1997-04-05 02:40:11 +00:00
parent 60acfd1593
commit 37cdc7adb3
3 changed files with 511 additions and 403 deletions
Download patch file Download diff file Expand all files Collapse all files

876
lisp/language/devan-util.el
View file

File diff suppressed because it is too large Load diff

9
lisp/language/devanagari.el
View file

@ -19,9 +19,8 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Commentary:
@ -52,6 +51,10 @@
"Devanagari" '("quail-devanagari-itrans" quail-use-package
"quail/devanagari"))
(register-input-method
"Devanagari" '("quail-devanagari-hindi-transliteration" quail-use-package
"quail/devanagari"))
(defun setup-devanagari-environment ()
(setq coding-category-iso-8-1 'in-is13194-devanagari)

29
lisp/language/indian.el
View file

@ -19,9 +19,8 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Commentary:
@ -268,11 +267,12 @@
(defvar itrans-indian-regexp
(let ((vowel "[(5$(B-(52(B]")
(consonant "[(53(B-(5X(B]")
(vowel-sign "[(5Z(B-(5g(B]")
(matra "[(5Z(B-(5g(B]")
(misc "[(5q(B-(5z(B]")
(lpre "\\(") (rpre "\\)") (orre "\\|"))
nil)) ; not yet prepared.
(concat misc orre
lpre consonant matra "?" rpre orre
vowel)))
;;
;; IS13194 - ITRANS conversion table for string matching above regexp.
@ -324,6 +324,19 @@ positions (integers or markers) specifying the stretch of the region."
;; Utility program to convert from IS 13194 to ITRANS in specified region.
;;
;;;;;; not yet prepared.
(defun indian-encode-itrans-region (from to)
"Convert indian region to ITRANS mnemonics."
(interactive "r")
(save-restriction
(narrow-to-region from to)
(goto-char (point-min))
(while (re-search-forward itrans-indian-regexp nil t)
(let* ((indian (buffer-substring (match-beginning 0) (match-end 0)))
(ch (car (rassoc indian indian-itrans-alist))))
(if ch
(progn
(delete-region (match-beginning 0) (match-end 0))
(insert ch)))))
(goto-char (point-min))))
;;; indian.el ends here