;ELC   
;;; compiled by roland@geech.gnu.ai.mit.edu on Wed Jun 22 21:22:41 1994
;;; from file /gd/gnu/emacs/19.0/lisp/double.el
;;; emacs version 19.25.12.
;;; 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")))
    (error "`/gd/gnu/emacs/19.0/lisp/double.el' was compiled for Emacs 19"))

(defvar double-map (quote ((59 "æ" ";") (39 "ø" "'") (91 "å" "[") (58 "Æ" ":") (34 "Ø" "\"") (123 "Å" "{"))) "\
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.")
(defvar double-prefix-only t "\
*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.")
(byte-code "ÀÁ!„ ÂÃÄÅ\"ˆÆÇÈ\"ˆÀÉ!„ ÊË!ˆÌ	ÍÎ#ˆÃÏÐ\"‡" [boundp double-last-event nil defalias double-read-event #[(prompt) "ƒ Á ˆ\nƒ ÃÄ\n#ˆÆ ÃÇ!ˆ‡Æ ‡" [isearch-mode isearch-update prompt message "%s%c" double-last-event read-event ""] 4] global-set-key [ignore] (lambda nil (interactive)) isearch-mode-map load-library "isearch" define-key [ignore] #[nil "À ‡" [isearch-update] 1 nil nil] double-translate-key #[(prompt) "\nƒ\f Ã	!‚ \fƒ Å GÆVƒ Ã	!‚ 	Ç=ƒY È	!Ê\f\"‰=ƒP ÏÐA@GSÑ\"Ò8Ó#ÃÑ!‚U CÔ*‚ 	Õ=ƒc Ö‚ Ê	\f\"A@	ÏÆØOÙ\"ÃÚH!))‡" [last-input-char key unread-command-events vector double-prefix-only this-command-keys 1 magic-start double-read-event prompt assoc double-last-event double-map entry new append make-list 127 2 (magic-end) [ignore] magic-end [ignore] exp nil (magic-start) 0] 5]] 4)
(defvar default-key-translation-map (byte-code "† Á ‡" [key-translation-map make-sparse-keymap] 1) "\
Key translation you want to have effect, regardless of double mode.
This will default to the value of `key-translation-map' when double was
first loaded.")
(byte-code "ÀÁ!ˆÂÃÄ\"ˆÅÆ!„ ÇÀÆ!ˆÆž„# ÉBÅÊ!„, Ë\nÀÊ!‡" [make-variable-buffer-local key-translation-map defalias double-setup #[nil "À	!ÃÄÅÇ\"\"‡" [copy-keymap default-key-translation-map key-translation-map mapcar #[(entry) "À	Â@!Ä#‡" [define-key key-translation-map vector entry double-translate-key] 4] append double-map ((magic-start) (magic-end))] 5] boundp double-mode nil minor-mode-alist (double-mode (" " double-mode-name)) double-mode-name "Double"] 3)
(defalias 'double-mode #[(arg) "„ 	„ Â!ÃXƒ! 	…/ ÄÆ ˆ)ÄÇÈ !‡	?…/ Æ ˆÉÇÈ !‡" [arg double-mode prefix-numeric-value 0 nil double-map double-setup set-buffer-modified-p buffer-modified-p t] 2 "\
Toggle double mode.
With prefix arg, turn double mode on iff arg is positive.

When double mode is on, some keys will insert will insert different
strings when pressed twice.  See variable `double-map' for details." "P"])
(provide (quote double))