Current File : //usr/local/share/emacs/27.2/lisp/double.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\304\301\312\313&\210\306\314\315\316\304\301\312\317&\207" [custom-declare-group double nil "Remap keyboard, but get original by typing the same key twice." :group i18n custom-declare-variable double-map '((59 "\346" ";") (39 "\370" "'") (91 "\345" "[") (58 "\306" ":") (34 "\330" "\"") (123 "\305" "{")) "Alist of key translations activated by double mode.\n\nEach entry is a list with three elements:\n1. The key activating the translation.\n2. The string to be inserted when the key is pressed once.\n3. The string to be inserted when the key is pressed twice." :type (repeat (list (character :tag "Key") (string :tag "Once") (string :tag "Twice"))) double-prefix-only t "Non-nil means that Double mode mapping only works for prefix keys.\nThat is, for any key `X' in `double-map', `X' alone will be mapped\nbut not `C-u X' or `ESC X' since the X is not the prefix key." boolean] 8)
(defvar double-last-event nil)
(defalias 'double-read-event #[(prompt) "\203 \303 \210 \203 \304\305 \n#\210\306 \304\307!\210\207\306 \207" [isearch-mode prompt double-last-event isearch-update message "%s%c" read-event ""] 4])
(byte-code "\301\302\303\"\210\304\300!\204 \305\306!\210\307\310\311#\207" [isearch-mode-map global-set-key [ignore] ignore boundp load-library "isearch" define-key [ignore] #[nil "\300 \207" [isearch-update] 1 nil nil]] 4)
(defalias 'double-translate-key #[(prompt) "\n\203\f \306 !\202~ \203 \307 G\310V\203 \306 !\202~ \311\267\202b \312\f!\313
\" \314\315 !\210
=\203T \316\317A@GS\320\"\3218\322\n$\306\320!\202Z \nB\323*\202~ \324\202~ \313 \"A@ \316\325\310\"\326\n#\306\327H!))\207" [last-input-event key unread-command-events double-prefix-only prompt double-last-event vector this-command-keys 1 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (magic-start 36 magic-end 94)) double-read-event assoc force-window-update selected-window append make-list 127 2 (magic-end) [ignore] [ignore] substring (magic-start) 0 double-map entry new exp] 5])
#@91 Non-nil if Double mode is enabled.
Use the command `double-mode' to change this variable.
(defvar double-mode nil (#$ . 2511))
(make-variable-buffer-local 'double-mode)
#@422 Toggle special insertion on double keypresses (Double mode).
If called interactively, enable Double mode if ARG is positive, and
disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
When Double mode is enabled, some keys will insert different
strings when pressed twice. See `double-map' for details.
(defalias 'double-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V\312\304!\210\n\203P \313\304!\210\314 \315 \f\"\210 \316
\317\"\320 \211 !\203O !@ \321 \322 @!\323#\210!A\211!\2047 +\324\325\n\203Z \326\202[ \327\"\210\330\331!\203\202 \306 \203o \306 \232\203\202 \332 \"\333\334\n\203| \335\202} \336\"#\210))\337 \210\n\207" [#1=#:last-message arg double-mode map key-translation-map double-map current-message toggle prefix-numeric-value 0 kill-local-variable make-local-variable make-sparse-keymap set-keymap-parent append ((magic-start) (magic-end)) nil define-key vector double-translate-key run-hooks double-mode-hook double-mode-on-hook double-mode-off-hook called-interactively-p any " in current buffer" message "Double mode %sabled%s" "en" "dis" force-mode-line-update entry --dolist-tail-- local] 5 (#$ . 2687) (list (or current-prefix-arg 'toggle))])
(defvar double-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\210\312\313!\207" [double-mode-map double-mode-hook variable-documentation put "Hook run after entering or leaving `double-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode double-mode " Double" boundp nil provide double] 6)
Mini Shell