;ELC   
;;; compiled by handa@tsingyi.etl.go.jp on Wed Aug 19 12:42:21 1998
;;; from file /net/mulelab/export/dist/mule-2.3-19.34/lisp/arabic.el
;;; emacs version 19.34.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`arabic.el' was compiled for Emacs 19.29 or later"))


(require (quote visual))
#@89 String displayed in mode-line.
" Arabic" for Arabic keyboard input, " š¥½š¥áš¥ºš¥Çš¥Ê".
(defvar arabic-mode-indicator " š¥½š¥áš¥ºš¥Çš¥Ê" (#$ . 512))
(make-variable-buffer-local (quote arabic-mode-indicator))
#@28 Non-nil if in arabic-mode.
(defvar arabic-mode nil (#$ . 726))
(byte-code "ÀÁ!ˆÁ\nž„ Ã\nBÄÆÁ#‡" [make-variable-buffer-local arabic-mode minor-mode-alist (arabic-mode arabic-mode-indicator) define-key global-map [-134217636]] 4)
#@61 Non-nil if key input is Arabic.  Nil if key input is ASCII.
(defvar arabic-input-arabic-char t (#$ . 963))
(make-variable-buffer-local (quote arabic-input-arabic-char))
#@171 Specify which input table is used for Arabic input.  Should be on of:
arabic-keymap-0 (default),
arabic-keymap-1 (Farsi standard), or
arabic-keymap-2 (Microsoft Arabic).
(defvar arabic-input-keymap (quote arabic-keymap-0) (#$ . 1139))
(byte-code "ÀÁ!„ \nÃ=ƒ Ä‚ \nÅ=ƒ Æ‚ ÇÁBÀ‡" [boundp arabic-translate-table arabic-input-keymap arabic-keymap-0 [6817 6818 6829 nil nil nil nil 39 6819 6820 nil nil 6821 nil 6822 14393 6689 6690 6691 6692 6693 6694 6695 6696 6697 6698 6823 6824 6826 nil 6827 6825 nil 14429 nil 14439 14401 nil nil 14415 14381 nil nil 14385 nil nil nil nil nil nil nil 14397 14405 nil nil nil 6888 nil 14409 nil nil nil nil nil 14413 6840 14371 14375 6850 nil 14417 14443 6874 nil 14377 14421 14425 6868 14427 6844 14437 14419 6854 14389 14373 nil nil 6878 6852 14431 6856 nil 124 nil nil] arabic-keymap-1 [6817 6818 nil nil nil nil nil nil 6819 6820 nil nil 6821 nil 6822 nil 6689 6690 6691 6692 6693 6694 6695 6696 6697 6698 6823 14421 6826 nil 6827 6825 nil nil 6888 nil nil nil 14437 6830 nil nil nil nil nil nil nil nil nil nil nil nil nil nil 6832 nil nil nil nil 14377 nil 14439 nil nil nli 14393 6856 6852 14431 14419 14371 6840 14373 nil 14425 14427 6868 6878 6854 14385 14381 14401 14417 14389 14415 6874 6850 14397 14405 14413 14409 nil nli nil nil] [6817 6818 34 35 36 37 38 39 6819 6820 42 43 6878 45 6856 14409 6689 6690 6691 6692 6693 6694 6695 6696 6697 6698 6823 14421 44 61 46 6825 64 nil 6882 123 91 nil 93 6883 6832 nil nil 6821 47 96 6830 nil 6824 nil nil nil 6884 39 125 nil nil 6836 126 14377 92 6850 94 95 6852 14393 6885 6834 14431 14375 14371 14425 6840 6874 14373 14427 6868 6844 14429 14385 14381 14401 14419 14389 14417 14413 6854 14397 6829 14415 14369 60 124 62 nil] current-load-list] 2)
#@36 minor-mode-keymap for arabic-mode.
(defvar arabic-mode-map (byte-code "À Á\nÄWƒ ÅÆ\n!Ç#ˆ\nT‰‚ ÅÈÉ#ˆÅÊË#ˆÅÌÍ#ˆÅÎÏ#ˆÅÐÑ#ˆÅÒÓ#ˆÅÔÕ#ˆÅÖ×#ˆÅØÙ#ˆÅÚÛ#ˆÅÜÝ#ˆÅÞß#ˆÅàá#ˆÅâã#ˆÅäå#ˆÅæç#ˆÅèé#ˆÅêå#ˆÅëã#ˆÅìç#ˆÅíé#ˆÅîï#ˆÅðñ#ˆÅòó#ˆÅôõ#ˆ6ƒÜ Å÷ø#ˆÅùï#ˆÅúû#ˆÅüñ#ˆÅýó#ˆÅþõ#ˆ‚Åÿ@ #ˆÅA B #ˆÅC D #ˆÅE F #ˆÅG H #ˆÅI J #ˆKL =ƒTÅM N #ˆÅO P #ˆÅQ R #ˆÅS T #ˆÅU V #ˆ‚ØKW =ƒ¦ÅX N #ˆÅY P #ˆÅZ R #ˆÅ[ T #ˆÅ\\ V #ˆÅ] ^ #ˆÅ_ ` #ˆ‚ØÅa N #ˆÅb P #ˆÅc R #ˆÅd T #ˆÅe V #ˆ*‡" [make-keymap 32 i map 127 define-key vector arabic-self-insert-command [3 3] arabic-mode [4] arabic-delete-char [11] arabic-kill-line [13] arabic-newline [15] arabic-open-line [23] arabic-kill-region [25] arabic-yank [127] arabic-backward-delete-char [-134217628] arabic-delete-word [-134217607] arabic-yank-pop [-134217606] arabic-help [-134217636] arabic-toggle-input-char [-134217601] arabic-backward-kill-word [14] visual-next-line [16] visual-previous-line [-134217668] visual-beginning-of-buffer [-134217666] visual-end-of-buffer [up] [down] [home] [end] [left] visual-move-to-left-char [right] visual-move-to-right-char [M-left] visual-move-to-left-word [M-right] visual-move-to-right-word visual-use-lr-commands [1] visual-left-end-of-line [2] [5] visual-right-end-of-line [6] [-134217630] [-134217626] [1] visual-beginning-of-line [2] visual-backward-char [5] visual-end-of-line [6] visual-forward-char [-134217630] visual-backward-word [-134217626] visual-forward-word arabic-input-keymap arabic-keymap-0 [126] arabic-insert-madda [39] arabic-insert-hamza [97] arabic-insert-alif [95] arabic-make-connection [124] arabic-cut-connection arabic-keymap-1 [126] [39] [97] [95] [124] [4194363] arabic-insert-gaaf [4194422] arabic-insert-isolated-hamza [4194394] [4194424] [4194408] [4194399] [4194428]] 5) (#$ . 2890))
(byte-code "À	ž„\f À\nB	BÀ‡" [arabic-mode minor-mode-map-alist arabic-mode-map] 2)
#@38 Document shown by arabic-help (M-z).
(defvar arabic-help-string (byte-code "Á=ƒ Â‡Ã=ƒ Ä‡Å‡" [arabic-input-keymap arabic-keymap-0 "                    Keymap in Arabic-mode\n\n+----------------------------------------------------------------+\n|! š¥¢ |@   |#   |$   |%   |^   |&   |*   |( š¥£ |) š¥¤ |_   |+   |~   |\n|1 š¤¢ |2 š¤£ |3 š¤¤ |4 š¤¥ |5 š¤¦ |6 š¤§ |7 š¤¨ |8 š¤© |9 š¤ª |0 š¤¡ |-   |=   |` ›àÍ|\n+----------------------------------------------------------------+\n  |Q   |W   |E   |R   |T ›àÅ|Y   |U   |I   |O   |P   |\n  |q ›àÓ|w š¥Þ |e   |r š¥Æ |t ›à¥|y ›àß|u   |i   |o š¥¼ |p ›àå|\n  +--------------------------------------------------------+\n    |A ›àÝ|S ›à½|D ›àÁ|F   |G ›àÏ|H ›à­|J   |K ›à±|L   |: š¥§ |\" š¥­ |\n    |a š¥¸ |s ›àµ|d š¥Â |f ›àÑ|g ›àë|h š¥Ú |j ›à©|k ›àÕ|l ›àÙ|; š¥¨ |'   |\n    +------------------------------------------------------+\n      |Z ›àÉ|X š¥è |C ›àç|V   |B   |N   |M   |< š¥ª |> š¥« |? š¥© |\n      |z š¥È |x š¥Ä |c ›à§|v   |b ›à£|n ›àÛ|m š¥Ô |, š¥¥ |. š¥¦ |/ ›à¹|\n      +-------------------------------------------------+" arabic-keymap-1 "                    Keymap in Arabic-mode                   +--------------+\n							    | ALT     SHIFT|\n+-------------------------------------------------+	    |ASCII   ARABIC|\n|  š¥¢ |    |    |    |    |    |    |    |  š¥£ |  š¥¤ |	    +--------------+\n|1 š¤¢ |2 š¤£ |3 š¤¤ |4 š¤¥ |5 š¤¦ |6 š¤§ |7 š¤¨ |8 š¤© |9 š¤ª |0 š¤¡ |\n+-------------------------------------------------------------+\n  |    |    |    |    |    |    |    |    |    |    |    |    |\n  |q ›àÁ|w ›à½|e ›àÓ|r ›àÑ|t ›àÏ|y ›àÍ|u š¥Ú |i   |o ›à±|p ›à­|[ ›à©|] ›àç|\n  +-----------------------------------------------------------+\n    |    |    |    |  ›àå|  š¥® |    |    |    |    |›àë š¥§|\n    |a ›à¹|s ›àµ|d ›àß|f ›à£|g š¥¸ |h ›à¥|j ›àÙ|k ›àÛ|l š¥Ô |; ›àÕ|\n    +---------------------------------------------------+\n      |    |    |    |š¥­ š¥° |  š¥è |    |    |  š¥ª |  š¥« |  š¥© |\n      |z ›àÉ|x ›àÅ|c š¥Ä |v š¥Â |b š¥È |n š¥Æ |m š¥Þ |, š¥¥ |. š¥¦ |/   |\n      +-------------------------------------------------+" "                    +-----------------+\n                    |S-ASCII  S-Arabic|\n                    | ASCII    Arabic |                +----+\n                    +-----------------+                ||  ||\n                                                       |\\  \\|\n+-----------------------------------------------------------+\n|!  š¥¢|@  @|#  #|$  $|%  %|^  ^|&  &|*  *|(  š¥£|)  š¥¤|_  _|+  +|\n|1  š¤¢|2  š¤£|3  š¤¤|4  š¤¥|5  š¤¦|6  š¤§|7  š¤¨|8  š¤©|9  š¤ª|0  š¤¡|-  -|=  =|\n+-------------------------------------------------------------+\n  |Q   |W   |E   |R   |T  š¥ä|Y  š¥´|U  '|I   |O   |P  š¥¨|{  <|}  >|\n  |  ›àÁ|  ›à½|  ›à§|  ›àÓ|  ›àÑ|  ›àÏ|  ›àÍ|   š¥Ú|  ›à±|  ›à­|[ ›à©|]  š¥Â|\n  +-------------------------------------------------------------+\n    |A   |S   |D  [|F  ]|G  š¥ã|H  š¥°|J   |K  š¥¥|L  /|:  š¥§|\"  \" |~š¥¬  |\n    |  ›à¹|  ›àµ|  ›àß|  ›à£|  ›àÙ|   š¥¸|  ›à¥|  ›àÛ|   š¥Ô|; ›àÕ|' ›àÅ|`  š¥Ä|\n    +-----------------------------------------------------------+\n      |Z  ~|X   |C  {|V  }|B  š¥â|N  š¥®|M  `|<  ,|>  š¥¦|?  š¥©|\n      |  ›à¡|   š¥­|   š¥²|   š¥Æ|   š¥å|  ›àÝ|   š¥¼|,  š¥Þ|.  š¥È|/ ›àÉ|\n      +-------------------------------------------------+"] 2) (#$ . 4856))
#@73 Toggle arabic-mode.  With ARG, turn arabic-mode on iff ARG is positive.
(defalias 'arabic-mode #[(&optional arg) "„ 	ƒ Â ‡Ã ‡Ä!ÅVƒ Ã ‡Â ‡" [arg arabic-mode exit-arabic-mode enter-arabic-mode prefix-numeric-value 0] 2 (#$ . 8173) "P"])
#@20 Enter arabic-mode.
(defalias 'enter-arabic-mode #[nil "?… ÁÁÃÅ ˆÆÇ!ˆÈÉ!‡" [arabic-mode t arabic-input-arabic-char " š¥½š¥áš¥ºš¥Çš¥Ê" arabic-mode-indicator update-mode-lines message "M-z to display arabic keymap." run-hooks arabic-mode-hooks] 2 (#$ . 8419) nil])
#@19 Exit arabic-mode.
(defalias 'exit-arabic-mode #[nil "… ÁÂ ‡" [arabic-mode nil update-mode-lines] 1 (#$ . 8692) nil])
(byte-code "ÀÁ\nBÃÄ\nBÅÆ\nBÇÈ\nBÁ‡" [((6830 . 6831) (6831 . 6831) (6832 . 6833) (6833 . 6833) (6834 . 6835) (6835 . 6835) (6836 . 6837) (6837 . 6837) (14369 . 14370) (6838 . 6839) (6839 . 6839) (14370 . 14370) (6838 . 6839) (6839 . 6839) (6840 . 6841) (6841 . 6841) (14371 . 14372) (6842 . 6843) (6843 . 6843) (14372 . 14372) (6844 . 6845) (6845 . 6845) (14373 . 14374) (6846 . 6847) (6847 . 6847) (14374 . 14374) (14375 . 14376) (6848 . 6849) (6849 . 6849) (14376 . 14376) (14377 . 14380) (14378 . 14379) (14379 . 14379) (14380 . 14380) (14381 . 14384) (14382 . 14383) (14383 . 14383) (14384 . 14384) (14385 . 14388) (14386 . 14387) (14387 . 14387) (14388 . 14388) (6850 . 6851) (6851 . 6851) (6852 . 6853) (6853 . 6853) (6854 . 6855) (6855 . 6855) (6856 . 6857) (6857 . 6857) (14389 . 14392) (14390 . 14391) (14391 . 14391) (14392 . 14392) (14393 . 14396) (14394 . 14395) (14395 . 14395) (14396 . 14396) (14397 . 14400) (14398 . 14399) (14399 . 14399) (14400 . 14400) (14401 . 14404) (14402 . 14403) (14403 . 14403) (14404 . 14404) (14405 . 14408) (14406 . 14407) (14407 . 14407) (14408 . 14408) (14409 . 14412) (14410 . 14411) (14411 . 14411) (14412 . 14412) (14413 . 14414) (6858 . 6859) (6859 . 6859) (14414 . 14414) (14415 . 14416) (6860 . 6861) (6861 . 6861) (14416 . 14416) (14417 . 14418) (6862 . 6863) (6863 . 6863) (14418 . 14418) (14419 . 14420) (6864 . 6865) (6865 . 6865) (14420 . 14420) (14421 . 14424) (14422 . 14423) (14423 . 14423) (14424 . 14424) (14425 . 14426) (6866 . 6867) (6867 . 6867) (14426 . 14426) (6868 . 6871) (6869 . 6870) (6870 . 6870) (6871 . 6871) (14427 . 14428) (6872 . 6873) (6873 . 6873) (14428 . 14428) (6874 . 6877) (6875 . 6876) (6876 . 6876) (6877 . 6877) (6878 . 6879) (6879 . 6879) (14429 . 14430) (14430 . 14430) (14431 . 14432) (6880 . 6881) (6881 . 6881) (14432 . 14432) (6882 . 14433) (14433 . 14433) (6883 . 14434) (14434 . 14434) (6884 . 14435) (14435 . 14435) (6885 . 14436) (14436 . 14436) (14437 . 14438) (6886 . 6887) (6887 . 6887) (14438 . 14438) (14439 . 14442) (14440 . 14441) (14441 . 14441) (14442 . 14442) (6888 . 6889) (6889 . 6889) (14443 . 14446) (14444 . 14445) (14445 . 14445) (14446 . 14446)) *arabic-adding-connection-to-right* current-load-list ((14369 . 6838) (6838 . 6838) (6839 . 6839) (14370 . 6839) (14371 . 6842) (6842 . 6842) (6843 . 6843) (14372 . 6843) (14373 . 6846) (6846 . 6846) (6847 . 6847) (14374 . 6847) (14375 . 6848) (6848 . 6848) (6849 . 6849) (14376 . 6849) (14377 . 14378) (14378 . 14378) (14379 . 14379) (14380 . 14379) (14381 . 14382) (14382 . 14382) (14383 . 14383) (14384 . 14383) (14385 . 14386) (14386 . 14386) (14387 . 14387) (14388 . 14387) (14389 . 14390) (14390 . 14390) (14391 . 14391) (14392 . 14391) (14393 . 14394) (14394 . 14394) (14395 . 14395) (14396 . 14395) (14397 . 14398) (14398 . 14398) (14399 . 14399) (14400 . 14399) (14401 . 14402) (14402 . 14402) (14403 . 14403) (14404 . 14403) (14405 . 14406) (14406 . 14406) (14407 . 14407) (14408 . 14407) (14409 . 14410) (14410 . 14410) (14411 . 14411) (14412 . 14411) (14413 . 6858) (6858 . 6858) (6859 . 6859) (14414 . 6859) (14415 . 6860) (6860 . 6860) (6861 . 6861) (14416 . 6861) (14417 . 6862) (6862 . 6862) (6863 . 6863) (14418 . 6863) (14419 . 6864) (6864 . 6864) (6865 . 6865) (14420 . 6865) (14421 . 14422) (14422 . 14422) (14423 . 14423) (14424 . 14423) (14425 . 6866) (6866 . 6866) (6867 . 6867) (14426 . 6867) (6868 . 6869) (6869 . 6869) (6870 . 6870) (6871 . 6870) (14427 . 6872) (6872 . 6872) (6873 . 6873) (14428 . 6873) (6874 . 6875) (6875 . 6875) (6876 . 6876) (6877 . 6876) (14431 . 6880) (6880 . 6880) (6881 . 6881) (14432 . 6881) (14437 . 6886) (6886 . 6886) (6887 . 6887) (14438 . 6887) (14439 . 14440) (14440 . 14440) (14441 . 14441) (14442 . 14441) (14443 . 14444) (14444 . 14444) (14445 . 14445) (14446 . 14445)) *arabic-adding-connection-to-left* ((6831 . 6830) (6833 . 6832) (6835 . 6834) (6837 . 6836) (14370 . 14369) (6839 . 6838) (6841 . 6840) (14372 . 14371) (6843 . 6842) (6845 . 6844) (14374 . 14373) (6847 . 6846) (14376 . 14375) (6849 . 6848) (14380 . 14377) (14379 . 14378) (14384 . 14381) (14383 . 14382) (14388 . 14385) (14387 . 14386) (6851 . 6850) (6853 . 6852) (6855 . 6854) (6857 . 6856) (14392 . 14389) (14391 . 14390) (14396 . 14393) (14395 . 14394) (14400 . 14397) (14399 . 14398) (14404 . 14401) (14403 . 14402) (14408 . 14405) (14407 . 14406) (14412 . 14409) (14411 . 14410) (14414 . 14413) (6859 . 6858) (14416 . 14415) (6861 . 6860) (14418 . 14417) (6863 . 6862) (14420 . 14419) (6865 . 6864) (14424 . 14421) (14423 . 14422) (14426 . 14425) (6867 . 6866) (6871 . 6868) (6870 . 6869) (14428 . 14427) (6873 . 6872) (6877 . 6874) (6876 . 6875) (6879 . 6878) (14430 . 14429) (14432 . 14431) (6881 . 6880) (14433 . 6882) (14434 . 6883) (14435 . 6884) (14436 . 6885) (14438 . 14437) (6887 . 6886) (14442 . 14439) (14441 . 14440) (6889 . 6888) (14446 . 14443) (14445 . 14444)) *arabic-removing-connection-from-right* ((6838 . 14369) (6839 . 14370) (6842 . 14371) (6843 . 14372) (6846 . 14373) (6847 . 14374) (6848 . 14375) (6849 . 14376) (14378 . 14377) (14379 . 14380) (14382 . 14381) (14383 . 14384) (14386 . 14385) (14387 . 14388) (14390 . 14389) (14391 . 14392) (14394 . 14393) (14395 . 14396) (14398 . 14397) (14399 . 14400) (14404 . 14401) (14403 . 14401) (14406 . 14405) (14407 . 14408) (14410 . 14409) (14411 . 14412) (6858 . 14413) (6859 . 14414) (6860 . 14415) (6861 . 14416) (6862 . 14417) (6863 . 14418) (6864 . 14419) (6865 . 14420) (14422 . 14421) (14423 . 14424) (6866 . 14425) (6867 . 14426) (6869 . 6868) (6870 . 6871) (6872 . 14427) (6873 . 14428) (6875 . 6874) (6876 . 6877) (6880 . 14431) (6881 . 14432) (14440 . 14439) (14441 . 14442) (14444 . 14443) (14445 . 14446)) *arabic-removing-connection-from-left*] 2)
#@56 If possible, tie the two characters around the cursor.
(defalias 'arabic-make-connection #[nil "ÀÁ \n\"ÀÃ \f\"‰ƒ „ Ç ‚* È ˆÉA!ˆÊ ˆËA!*‡" [assoc visual-char-left *arabic-adding-connection-to-right* visual-char-right *arabic-adding-connection-to-left* rch lch arabic-cut-connection visual-delete-left-1-char visual-insert-left-1-char visual-delete-right-1-char visual-insert-right-1-char] 5 (#$ . 14555) nil])
#@77 Remove the connection between the two characters around the cursor, if any.
(defalias 'arabic-cut-connection #[nil "ÀÁ \n\"ÀÃ \f\"‰ƒ Ç ˆÈA!ˆ…% É ˆÊA!*‡" [assoc visual-char-left *arabic-removing-connection-from-right* visual-char-right *arabic-removing-connection-from-left* rch lch visual-delete-left-1-char visual-insert-left-1-char visual-delete-right-1-char visual-insert-right-1-char] 5 (#$ . 14978) nil])
#@145 Insert ARG (2nd arg; > 0) number of CHs (1st arg; character) around
visual point.
If CH is l2r, inserted on the left.  Otherwise, on the right.
(defalias 'arabic-insert-char #[(ch arg) "ÁV… Â!ˆS‰‚ ‡" [arg 0 arabic-insert-1-char ch] 3 (#$ . 15403)])
#@115 Insert CH (1st arg; character) around visual point.
If CH is l2r, inserted on the left.  Otherwise, on the right.
(defalias 'arabic-insert-1-char #[(ch) "À	!ÂUƒ Ã ˆÄ	!‡Ä	!ˆÅ ˆÆ ˆÅ ‡" [visual-char-direction ch 0 arabic-cut-connection visual-insert-left-1-char arabic-make-connection visual-move-to-left-1-char] 2 (#$ . 15665)])
#@38 Self-insert-command for arabic-mode.
(defalias 'arabic-self-insert-command #[(arg) "\nƒ\f 	ÄZH	„ Å ‚) ÇV…) È	!ˆS‰‚ )‡" [last-command-char ch arabic-input-arabic-char arabic-translate-table 32 beep arg 0 arabic-keyboard-insert-1-char] 4 (#$ . 15999) "*p"])
#@204 Insert CH (1st arg; Arabic character) at visual cursor position.
if last-command is arabic-cut-connection, CH will not connected to the
right adjacent character (but connected to the left, if possible).
(defalias 'arabic-keyboard-insert-1-char #[(ch) "À Â!ÄUƒ Å ˆÆ!‚' Å=ƒ$ È!ˆÉ ‚' Ê!)‡" [visual-char-right rch visual-char-direction ch 0 arabic-cut-connection visual-insert-left-1-char last-command visual-insert-right-1-char arabic-make-connection arabic-insert-1-char] 2 (#$ . 16274)])
#@48 Insert gaaf as if it were typed from keyboard.
(defalias 'arabic-insert-gaaf #[(arg) "ÁV… ÂÃ!ˆS‰‚ ‡" [arg 0 arabic-keyboard-insert-1-char 14443] 3 (#$ . 16775) "*p"])
#@61 Insert an isolated hamza as if it were typed from keyboard.
(defalias 'arabic-insert-isolated-hamza #[(arg) "ÁV… ÂÃ!ˆS‰‚ ‡" [arg 0 arabic-keyboard-insert-1-char 6829] 3 (#$ . 16953) "*p"])
#@33 Put madda on the previous alif.
(defalias 'arabic-insert-madda #[nil "À ‰Â=ƒ Ã ˆÄÅ!‚A 	Æ=ƒ! Ã ˆÄÇ!‚A 	È=ƒ0 Ã ˆÄÉ!‚A 	Ê=ƒ? Ã ˆÄË!‚A Ì )‡" [visual-char-right rch 6840 visual-delete-right-1-char visual-insert-right-1-char 6830 6841 6831 6885 6882 14436 14433 beep] 3 (#$ . 17153) nil])
#@106 Insert ARG number of alif's.
If the previous character is a laam, replace it with an alif+laam ligature.
(defalias 'arabic-insert-alif #[(arg) "À\nÃVƒU Ä Æ=ƒ ÇÈ!ˆ‚N 	É=„$ 	Ê=ƒ. Ë ˆÇÌ!ˆ‚N 	Í=„: 	Î=ƒD Ë ˆÇÏ!ˆ‚N ÐÈ!ˆÑ ˆÒ ˆ\nS‰‚ Æ )‡" [nil rch arg 0 visual-char-right last-command arabic-cut-connection visual-insert-right-1-char 6840 14425 6866 visual-delete-right-1-char 6885 6867 14426 14436 visual-insert-left-1-char arabic-make-connection visual-move-to-left-1-char] 3 (#$ . 17445) "*p"])
#@81 Insert ARG number of hamza's.
Put it on/under previous characters, if possible.
(defalias 'arabic-insert-hamza #[(arg) "À\nÃV…&Ä Æ=ƒ ÇÈ!ˆ‚	É=ƒ( Ê ˆÇË!ˆ‚	Ì=ƒ8 Ê ˆÇÍ!ˆ‚	Ë=ƒH Ê ˆÇÎ!ˆ‚	Í=ƒX Ê ˆÇÏ!ˆ‚	Ð=ƒh Ê ˆÇÑ!ˆ‚	Ò=ƒx Ê ˆÇÓ!ˆ‚	Ô=ƒˆ Ê ˆÇÕ!ˆ‚	Ö=ƒ˜ Ê ˆÇ×!ˆ‚	Ø=ƒ¨ Ê ˆÇÙ!ˆ‚	Ú=ƒ¸ Ê ˆÇÛ!ˆ‚	Ü=ƒÈ Ê ˆÇÕ!ˆ‚	Ý=ƒØ Ê ˆÇÛ!ˆ‚	Þ=ƒè Ê ˆÇß!ˆ‚	à=ƒø Ê ˆÇá!ˆ‚	ß=ƒÊ ˆÇâ!ˆ‚	á=ƒÊ ˆÇã!ˆ‚Æ ˆÇÈ!ˆ\nS‰‚ )‡" [nil rch arg 0 visual-char-right last-command arabic-cut-connection visual-insert-right-1-char 6829 6840 visual-delete-right-1-char 6832 6841 6833 6836 6837 6878 6834 6879 6835 14431 14369 6880 6838 6881 6839 14432 14370 14429 14430 6885 6883 14436 14434 6884 14435] 3 (#$ . 17947) "*p"])
#@46 Toggle Arabic key input and ASCII key input.
(defalias 'arabic-toggle-input-char #[nil "ƒ ÁÂ‚ ÄÅÆ ‡" [arabic-input-arabic-char nil " Arabic" arabic-mode-indicator t " š¥½š¥áš¥ºš¥Çš¥Ê" update-mode-lines] 1 (#$ . 18662) nil])
#@26 Newline for arabic-mode.
(defalias 'arabic-newline #[(arg) "ÀÁ\n\"‡" [arabic-insert-char 10 arg] 3 (#$ . 18899) "*p"])
#@27 Openline for arabic-mode.
(defalias 'arabic-open-line #[(arg) "ÀÁ\n\"ˆÃ\n!‡" [arabic-insert-char 10 arg visual-backward-char] 3 (#$ . 19024) "*p"])
#@108 Delete ARG (1st arg; integer) chars visually after visual point.
After that, Arabic ligature is performed.
(defalias 'arabic-delete-char #[(arg) "À	!ˆÂ ‡" [visual-delete-char arg arabic-make-connection] 2 (#$ . 19179) "*p"])
#@109 Delete ARG (1st arg; integer) chars visually before visual point.
After that, Arabic ligature is performed.
(defalias 'arabic-backward-delete-char #[(arg) "À	!ˆÂ ‡" [visual-backward-delete-char arg arabic-make-connection] 2 (#$ . 19411) "*p"])
#@38 Kill-region command for arabic-mode.
(defalias 'arabic-kill-region #[(beg end) "ƒ 	ƒ Â\fÅÆ$ƒ Ç\f\"‡Ç\f\"ˆÈ ‡" [buffer-read-only inhibit-read-only text-property-not-all beg end read-only nil visual-kill-region arabic-make-connection] 5 (#$ . 19661) "r"])
#@36 Kill-word command for arabic-mode.
(defalias 'arabic-kill-word #[(arg) "À	!ˆÂ ‡" [visual-kill-word arg arabic-make-connection] 2 (#$ . 19928) "*p"])
#@44 Backword-ill-word command for arabic-mode.
(defalias 'arabic-backward-kill-word #[(arg) "À	!ˆÂ ‡" [visual-backward-kill-word arg arabic-make-connection] 2 (#$ . 20083) "*p"])
#@36 Kill-line command for arabic-mode.
(defalias 'arabic-kill-line #[(&optional arg) "À	!ˆÂ ‡" [visual-kill-line arg arabic-make-connection] 2 (#$ . 20264) "*P"])
#@31 yank command for arabic-mode.
(defalias 'arabic-yank #[(&optional arg) "À	!ˆ`ÂÃ!Æ ˆ\fbˆÆ ˆbˆÇ \fp“ˆ*È‡" [visual-yank arg mark t p2 p1 arabic-make-connection mark-marker nil] 3 (#$ . 20429) "*P"])
#@35 yank-pop command for arabic-mode.
(defalias 'arabic-yank-pop #[(arg) "À	!ˆ`ÂÃ!Æ ˆ\fbˆÆ ˆbˆÇ \fp“ˆ*È‡" [visual-yank-pop arg mark t p2 p1 arabic-make-connection mark-marker nil] 3 (#$ . 20634) "*p"])
#@32 Display keymap in Arabic-mode.
(defalias 'arabic-help #[nil "ÀÁ!‰qˆÃ ˆ\fcˆebˆÅp!)‡" [get-buffer-create "*Help*" arabic-help-buffer erase-buffer arabic-help-string display-buffer] 3 (#$ . 20841) nil])
#@67 Kill N (1st arg; integer) characters on the left of visual point.
(defalias 'arabic-delete-left-char #[(arg) "ƒ Á\n!‡Ã\n!‡" [display-direction arabic-delete-char arg arabic-backward-delete-char] 2 (#$ . 21048) "*p"])
#@68 Kill N (1st arg; integer) characters on the right of visual point.
(defalias 'arabic-delete-right-char #[(arg) "ƒ Á\n!‡Ã\n!‡" [display-direction arabic-backward-delete-char arg arabic-delete-char] 2 (#$ . 21273) "*p"])
#@62 Kill N (1st arg; integer) words on the left of visual point.
(defalias 'arabic-kill-left-word #[(arg) "ƒ Á\n!‡Ã\n!‡" [display-direction arabic-kill-word arg arabic-backward-kill-word] 2 (#$ . 21500) "*p"])
#@63 Kill N (1st arg; integer) words on the right of visual point.
(defalias 'arabic-kill-right-word #[(arg) "ƒ Á\n!‡Ã\n!‡" [display-direction arabic-backward-kill-word arg arabic-kill-word] 2 (#$ . 21714) "*p"])
(provide (quote arabic))