;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:49:50 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/double.el ;;; in Emacs version 23.4.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'double nil "Remap keyboard, but get original by typing the same key twice." :group 'i18n) #@254 Alist of key translations activated by double mode. Each entry is a list with three elements: 1. The key activating the translation. 2. The string to be inserted when the key is pressed once. 3. The string to be inserted when the key is pressed twice. (custom-declare-variable 'double-map ''((59 "\346" ";") (39 "\370" "'") (91 "\345" "[") (58 "\306" ":") (34 "\330" "\"") (123 "\305" "{")) '(#$ . 650) :group 'double :type '(repeat (list (character :tag "Key") (string :tag "Once") (string :tag "Twice")))) #@197 Non-nil means that Double mode mapping only works for prefix keys. That is, for any key `X' in `double-map', `X' alone will be mapped but not `C-u X' or `ESC X' since the X is not the prefix key. (custom-declare-variable 'double-prefix-only 't '(#$ . 1166) :group 'double :type 'boolean) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list double-last-event default-boundp set-default nil] 3) (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\201 \203\307 G\310V\203\306 !\202\201 \311=\203\\\312\f!\313 \"\314\315 !\210 =\203S\316\317A@GS\320\"\3218\322#\306\320!\202XC\323*\202\201 \324=\203f\325\202\201\313 \"A@ \316\310\326O\327\"\306\330H!))\207" [last-input-event key unread-command-events double-prefix-only prompt double-last-event vector this-command-keys 1 magic-start double-read-event assoc force-window-update selected-window append make-list 127 2 (magic-end) [ignore] magic-end [ignore] nil (magic-start) 0 double-map entry new exp] 4]) #@91 Non-nil if Double mode is enabled. Use the command `double-mode' to change this variable. (defvar double-mode nil (#$ . 2636)) (make-variable-buffer-local 'double-mode) #@235 Toggle Double mode. With prefix argument ARG, turn Double mode on if ARG is positive, otherwise turn it off. When Double mode is on, some keys will insert different strings when pressed twice. See variable `double-map' for details. (defalias 'double-mode #[(&optional arg) "\306  \307=\203\n?\202( \203\310 !\311V\202(\n\204\"\312\202(\313\314\302\"\210\315\316\304!\210\n\203e\317\304!\210\320 \321 \f\"\210 \322 \323\"\315!\211\"\203d\"@!\324 \325!@!\326#\210\"A\211\"\204L+\327\330\n\203o\331\202p\332\"\210\333\334!\203\221\306 \203\204\306 \232\203\221\313\335\n\203\216\336\202\217\337\"\210)\340 \210\n\207" [#1=#:last-message arg double-mode map key-translation-map double-map current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil 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 "Double mode %sabled" "en" "dis" force-mode-line-update entry #2=#:--cl-dolist-temp--] 5 (#$ . 2812) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n#\210\305\306!\207" [double-mode-map add-minor-mode double-mode " Double" boundp provide double] 5)