Mercurial > emacs
view leim/quail/arabic.el @ 97658:53d01aafa957
[MSDOS]: Include msdos.h.
(init_tty) [MSDOS]: Reuse most of WINDOWSNT branch. Change cpp conditional
to DOS_NT. Allow only one call to this function in a session. Don't
allocate a new struct tty_display_info; instead, reuse the_only_display_info.
Call get_tty_size to get screen dimensions. Call init_baud_rate to set
bad_rate.
(dissociate_if_controlling_tty) [MSDOS]: Ifdef away function body.
(Fsuspend_tty) [MSDOS]: Don't close input and output.
(Fresume_tty) [MSDOS]: Don't reopen the TTY; instead, use stdin/stdout.
(get_tty_terminal, get_named_tty, Ftty_type)
(Fcontrolling_tty_p): Handle output_msdos_raw in addition to output_termcap.
(Fresume_tty, Fsuspend_tty, init_tty, delete_tty): Call
add_keyboard_wait_descriptor and delete_keyboard_wait_descriptor only when
subprocesses are supported
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sat, 23 Aug 2008 16:55:52 +0000 |
parents | 4f1fd208c354 |
children | 0d2e4142fb60 |
line wrap: on
line source
;;; arabic.el --- Quail package for inputting Arabic -*- coding: utf-8;-*- ;; Copyright (C) 2007, 2008 Free Software Foundation, Inc. ;; Author: James Cloos <cloos@jhcloos.com> ;; Keywords: mule, input method, Arabic ;; This file is part of GNU Emacs. ;; GNU Emacs is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. ;;; Commentary: ;;; Code: (require 'quail) (quail-define-package "arabic" "Arabic" "ع" nil "Arabic input method. Based on Arabic table in X Keyboard Configuration DB. " nil t t t t nil nil nil nil nil t) ;; ذّ 1! 2@ 3# 4$ 5% 6^ 7& 8* 9) 0( -_ =+ ;; ضَ صً ثُ قٌ فﻹ غإ ع` ه÷ خ× ح؛ ج< د> <> ;; شِ سٍ ي] ب[ لﻷ اأ تـ ن، م/ ك: ط" ;; ئ~ ءْ ؤ} ر{ ﻻﻵ ىآ ة' و, ز. ظ؟ ;; (quail-define-rules ("`" ?ذ) ("Q" ?َ) ("W" ?ً) ("E" ?ُ) ("R" ?ٌ) ("T" ?ﻹ) ("Y" ?إ) ("U" ?`) ("I" ?÷) ("O" ?×) ("P" ?؛) ("A" ?ِ) ("S" ?ٍ) ("D" ?]) ("F" ?[) ("G" ?ﻷ) ("H" ?أ) ("J" ?ـ) ("K" ?،) ("L" ?/) (";" ?:) ("Z" ?~) ("X" ?ْ) ("C" ?}) ("V" ?{) ("B" ?ﻵ) ("N" ?آ) ("M" ?') ("<" ?,) (">" ?.) ("?" ?؟) ("`" ?ذ) ("q" ?ض) ("w" ?ص) ("e" ?ث) ("r" ?ق) ("t" ?ف) ("y" ?غ) ("u" ?ع) ("i" ?ه) ("o" ?خ) ("p" ?ح) ("a" ?ش) ("s" ?س) ("d" ?ي) ("f" ?ب) ("g" ?ل) ("h" ?ا) ("j" ?ت) ("k" ?ن) ("l" ?م) (";" ?ك) ("z" ?ئ) ("x" ?ء) ("c" ?ؤ) ("v" ?ر) ("b" ?ﻻ) ("n" ?ى) ("m" ?ة) ("," ?و) ("." ?ز) ("/" ?ظ) ("'" ?ط)) ;; arch-tag: 7e81e2af-5ea5-417f-bfe7-dfa6fd955cb5 ;;; arabic.el ends here