HOME

Mini Shell 1.0
DIR:/usr/share/emacs/26.1/lisp/international/
Current File : //usr/share/emacs/26.1/lisp/international/robin.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@661 List of robin packages.
A robin package is of the form (NAME DOCSTRING &rest RULES).
NAME is a string specifying a particular robin package.
DOCSTRING is a documentation string for the robin package.

RULE is of the form (KEY OUTPUT &rest rules).
KEY is a string.
OUTPUT is a character or a string.
For example, if you evaluate the following,

(robin-define-package "test" "Uppercase input characters"
  ("a" "A")
  ("ab" "AB")
  ("ac" "AC")
  ("acd" "ACD")
  ("ace" "ACE")
  ("b" "B"))

this robin package will be the following.

  ("test" "Uppercase input characters"
   (?a "A"
       (?b "AB")
       (?c "AC"
	   (?d "ACD")
	   (?e "ACE")))
   (?b "B"))

(defvar robin-package-alist nil (#$ . 409))
#@360 Define a robin package.

NAME is the string of this robin package.
DOCSTRING is the documentation string of this robin package.
Each RULE is of the form (INPUT OUTPUT) where INPUT is a string and
OUTPUT is either a character or a string.  RULES are not evaluated.

If there already exists a robin package whose name is NAME, the new
one replaces the old one.
(defalias 'robin-define-package '(macro . #[(name docstring &rest rules) "\306!\307D\310\211\211\310\211\203^@\211@A@\311\f\n$\210;\204;\312\313\"\210\202U\314\n!\203J\nB	B\202U\n;\204U\312\315\"\210A\211\204*\fA\240\210\316\317\320\321BBD\322\323\fDD\324\323
DD\325\323	DDF-\326BB\207" [name pairs output input new iname intern "" nil robin-add-rule error "Bad input sequence %S" characterp "Bad output pattern %S" let slot assoc (robin-package-alist) newdef quote prop lst ((if slot (setcdr slot (cdr newdef)) (setq robin-package-alist (cons newdef robin-package-alist))) (dolist (l lst) (put-char-code-property (cdr l) prop (car l)))) rules r --dolist-tail-- docstring] 8 (#$ . 1120)]))
#@210 Change a rule in an already defined robin package.

NAME is the string specifying a robin package.
INPUT is a string that specifies the input pattern.
OUTPUT is either a character or a string to be generated.
(defalias 'robin-modify-package #[(name input output) "\306	\"\307\211\204\310\311!\210\2025A@A\312\240\210\313\f
$\210A\n\240\210\314
!\2035\315
\316!\f#\210*
\207" [name robin-package-alist docstring tree input output assoc nil error "No such robin package" "" robin-add-rule characterp put-char-code-property intern] 6 (#$ . 2221)])
#@84 Add translation rule (INPUT OUTPUT) to TREE whose name is NAME.
Internal use only.
(defalias 'robin-add-rule #[(name tree input output) "\306H\307	\n\"\nA@G\310U\203*\203A
\240\202Q\311\n!	
DC\241\202Q\204G\312\f!\2038\313\f!	\f\313	!PD\311\n!C\241\210\314\310\315O
$+\207" [input head tree branch sofar output 0 assoc 1 last characterp char-to-string robin-add-rule nil name] 6 (#$ . 2786)])
#@45 If non-nil, `robin-input-method' is active.
(defvar robin-mode nil (#$ . 3207))
(make-variable-buffer-local 'robin-mode)
#@102 String representing the name of the current robin package.
A nil value means no package is selected.
(defvar robin-current-package-name nil (#$ . 3335))
(make-variable-buffer-local 'robin-current-package-name)
#@52 Start using robin package NAME, which is a string.
(defalias 'robin-use-package #[(name) "\304	\"\211\204
\305\306!\210\307 )\207" [name robin-package-alist package robin-current-package-name assoc error "No such robin package" robin-activate] 4 (#$ . 3551)])
#@32 Deactivate robin input method.
(defalias 'robin-deactivate #[nil "\300\301!\207" [robin-activate -1] 2 (#$ . 3822) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias robin-inactivate robin-deactivate nil make-obsolete "24.3"] 4)
#@221 Activate robin input method.

With ARG, activate robin input method if and only if ARG is positive.

While this input method is active, the variable
`input-method-function' is bound to the function `robin-input-method'.
(defalias 'robin-activate #[(&optional arg) "\203\305!\306W\203\307\216\310\211\311\312!)\207\313\314\315\316 \317 =\203*\320\321\322\"\210\311\323\324\"\210\325\304!\210\326\211\207" [arg robin-mode describe-current-input-method-function deactivate-current-input-method-function input-method-function prefix-numeric-value 0 #[nil "\300\301!\207" [kill-local-variable input-method-function] 2] nil run-hooks robin-deactivate-hook t robin-help robin-deactivate selected-window minibuffer-window add-hook minibuffer-exit-hook robin-exit-from-minibuffer input-method-activate-hook robin-activate-hook make-local-variable robin-input-method] 4 (#$ . 4079)])
(byte-code "\302\303\304\305#\210\306\305\211\203,	@\303N\203%\304N\204%\307\304\303N#\210	A\211\204*\310\303\304\311#\207" [prop --dolist-tail-- defvaralias robin-inactivate-hook robin-deactivate-hook nil (saved-value saved-variable-comment) put make-obsolete-variable "24.3"] 6)
(defalias 'robin-exit-from-minibuffer #[nil "\300 \210\301 \302X\205\303\304\305\"\207" [deactivate-input-method minibuffer-depth 1 remove-hook minibuffer-exit-hook robin-exit-from-minibuffer] 3])
#@54 Interpret typed key sequence and insert into buffer.
(defalias 'robin-input-method #[(key) "\204\f	\204\f\n\203C\207\306\307`\310\f
\"AA\307\211\f

\236\211\f\203U`|\210\fA@\211c\210\fAA\211
\203O\311 \211\202'\307\211\202'\204_C\202\202`|\210\203nB;\203\312\307\"\262\202\202C.\207" [buffer-read-only overriding-terminal-local-map overriding-local-map key robin-current-package-name robin-package-alist 0 nil assoc read-event append output branch tree start input-method-function echo-keystrokes unread-command-events] 7 (#$ . 5465)])
#@53 Display the docstring of the current robin package.
(defalias 'robin-help #[nil "\304\305!\306	\"A@\211q\210\307 \210\nc\210eb\210\310!*\207" [robin-current-package-name robin-package-alist doc buf get-buffer-create "*Robin Help*" assoc erase-buffer display-buffer] 5 (#$ . 6065) nil])
#@199 Convert the content of current buffer using a robin package.
NAME, if given, is a string specifying a robin package.  If NAME
is not given or nil, the value of `robin-current-package-name' is
used.
(defalias 'robin-convert-buffer #[(&optional name) "\301ed#\207" [name robin-convert-region] 4 (#$ . 6362) "*"])
#@180 Convert the region using a robin package.
NAME, if given, is a string specifying a robin package.  If NAME
is not given or nil, the value of `robin-current-package-name' is
used.
(defalias 'robin-convert-region #[(begin end &optional name) "\204	\211\204\306\307!\210\310\n\"\211\204\306\311!\210\212\214\f
}\210eb\210m?\2050\312!\210\202$+\207" [name robin-current-package-name robin-package-alist tree begin end error "No robin package specified" assoc "No such robin package" robin-convert-region-internal] 4 (#$ . 6681) "*r"])
#@105 Apply a robin rule defined in TREE to the current point.
Use the longest match method to select a rule.
(defalias 'robin-convert-region-internal #[(tree) "`\304\211g\236\211\203\305u\210\202`\n	U\203#\305u\2020\nb\210A@c\210\306	\nZ!+\207" [branch end begin tree nil 1 delete-char] 3 (#$ . 7232)])
(byte-code "\300\301M\210\302\303M\207" [robin-transliterate-region robin-convert-region robin-transliterate-buffer robin-convert-buffer] 2)
#@197 Apply reverse conversion to the content of current buffer.
NAME, if given, is a string specifying a robin package.  If NAME
is not given or nil, the value of `robin-current-package-name' is
used.
(defalias 'robin-invert-buffer #[(&optional name) "\301ed#\207" [name robin-invert-region] 4 (#$ . 7693) "*"])
#@178 Apply reverse conversion to the region.
NAME, if given, is a string specifying a robin package.  If NAME
is not given or nil, the value of `robin-current-package-name' is
used.
(defalias 'robin-invert-region #[(begin end &optional name) "\204	\211\204\305\306!\210\307!\310\214\f}\210eb\210m?\205:\311g\"\211\2040\312u\210\202\nc\210\313\312!\210\202*\207" [name robin-current-package-name str begin end error "No robin package specified" intern nil get-char-code-property 1 delete-char] 3 (#$ . 8008) "*r"])
(provide 'robin)