;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315%\210\306\316\310\311\317DD\320\314\321%\207" [custom-declare-group double nil "Remap keyboard, but get original by typing the same key twice." :group i18n custom-declare-variable double-map funcall function #[0 "\300\207" [((59 "\346" ";") (39 "\370" "'") (91 "\345" "[") (58 "\306" ":") (34 "\330" "\"") (123 "\305" "{"))] 1 #1=""] "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 #[0 "\300\207" [t] 1 #1#] "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] 6) (defvar double-last-event nil) #@15 (fn PROMPT) (defalias 'double-read-event #[257 "\203\302 \210\211\203\303\304 #\210\305 \303\306!\210\207\305 \207" [isearch-mode double-last-event isearch-update message "%s%c" read-event ""] 5 (#$ . 1129)]) (byte-code "\301\302\303\"\210\304\305!\210\306\307\310#\207" [isearch-mode-map global-set-key [ignore] ignore require isearch define-key [ignore] #[0 "\300 \207" [isearch-update] 1 nil nil]] 4) #@15 (fn PROMPT) (defalias 'double-translate-key #[257 " \203 \305!\207\n\203\306 G\307V\203\305!\207\211\310\267\202O\311!\312 \f\"\313\314 !\210 =\203E\315\316A@GS\317\"\3208\321 $\305\317!\207 B\266\322\207\323\207\312\f\"A@\315\307\324O\325 #\305\326H!\207" [last-input-event unread-command-events double-prefix-only double-last-event double-map 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 31 magic-end 77)) double-read-event assoc force-window-update selected-window append make-list 127 2 (magic-end) [ignore] [ignore] nil (magic-start) 0] 9 (#$ . 1548)]) #@91 Non-nil if Double mode is enabled. Use the command `double-mode' to change this variable. (defvar double-mode nil (#$ . 2218)) (make-variable-buffer-local 'double-mode) #@730 Toggle special insertion on double keypresses (Double mode). This is a minor mode. If called interactively, toggle the `Double mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `double-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. When Double mode is enabled, some keys will insert different strings when pressed twice. See `double-map' for details. (fn &optional ARG) (defalias 'double-mode #[256 "\304 \305=\203 ?\202\247\203\306W\203\307\202\310\311\301!\2031\312\300 \"\2031\300 B\313\302!\210\203b\314\302!\210\315 \316\n\"\210\211\317 \320\"\211\203`\211@\321\322@!\323#\210A\266\202\202J\266\324\325\203l\326\202m\327\"\210\330\331!\203\217\304 \203\201\211\304 \232\203\217\332\333\203\213\334\202\214\335\336#\210\210\337 \210\207" [double-mode local-minor-modes key-translation-map double-map current-message toggle 1 nil t boundp delq kill-local-variable make-local-variable make-sparse-keymap set-keymap-parent append ((magic-start) (magic-end)) define-key vector double-translate-key run-hooks double-mode-hook double-mode-on-hook double-mode-off-hook called-interactively-p any message "Double mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 9 (#$ . 2394) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar double-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\211%\210\315\316!\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.)" custom-type hook standard-value nil add-minor-mode double-mode " Double" boundp provide double] 6)