Mercurial > emacs
view leim/quail/arabic.el @ 95590:9a4b27c8feec
* window.el (display-buffer-function, special-display-p)
(special-display-buffer-names, special-display-regexps)
(special-display-function, same-window-p, same-window-buffer-names)
(same-window-regexps, pop-up-frames, display-buffer-reuse-frames)
(pop-up-frame-function, pop-up-windows)
(split-window-preferred-function, split-height-threshold)
(split-width-threshold, window--splittable-p)
(window--try-to-split-window, window--frame-usable-p)
(even-window-heights, window--even-window-heights)
(window--display-buffer-1, window--display-buffer-2, display-buffer)
(pop-to-buffer): Move from window.c and buffer.c.
(split-window-preferred-horizontally): Remove.
* cus-start.el: Remove corresponding declarations.
* window.c (pop_up_windows, pop_up_frames)
(display_buffer_reuse_frames, Vpop_up_frame_function)
(Vdisplay_buffer_function, Veven_window_heights)
(Vspecial_display_buffer_names, Vspecial_display_regexps)
(Vspecial_display_function, Vsame_window_buffer_names)
(Vsame_window_regexps, split_height_threshold)
(Vsplit_window_preferred_function): Move those vars to window.el.
(display_buffer_1, Fspecial_display_p, Fsame_window_p)
(Fdisplay_buffer): Move those functions to window.el.
(syms_of_window): Remove corresponding declarations.
(display_buffer): New function.
(temp_output_buffer_show, Fother_window_for_scrolling): Use it.
* dispnew.c (Flast_nonminibuf_frame): New function.
* buffer.c (Fpop_to_buffer): Move to window.el.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Thu, 05 Jun 2008 18:00:36 +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