;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May  2 20:22:23 1995
;;; from file /gd/gnu/emacs/19.0/lisp/double.el
;;; emacs version 19.28.90.69.
;;; 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"))


#@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.
(defvar double-map (quote ((59 "æ" ";") (39 "ø" "'") (91 "å" "[") (58 "Æ" ":") (34 "Ø" "\"") (123 "Å" "{"))) (#$ . 482))
#@199 *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.
(defvar double-prefix-only t (#$ . -863))
(byte-code "ÀÁ!„ ÂÁBÂ‡" [boundp double-last-event nil current-load-list] 2)
(defalias 'double-read-event #[(prompt) "ƒ Á ˆ\nƒ ÃÄ\n#ˆÆ ÃÇ!ˆ‡Æ ‡" [isearch-mode isearch-update prompt message "%s%c" double-last-event read-event ""] 4])
(byte-code "ÀÁÂ\"ˆÃÄ!„ ÅÆ!ˆÇ\fÈÉ#‡" [global-set-key [ignore] (lambda nil (interactive)) boundp isearch-mode-map load-library "isearch" define-key [ignore] #[nil "À ‡" [isearch-update] 1 nil nil]] 4)
(defalias '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])
#@151 Key translation you want to have effect, regardless of Double mode.
This defaults to the value of `key-translation-map' when double was
first loaded.
(defvar default-key-translation-map (byte-code "† Á ‡" [key-translation-map make-sparse-keymap] 1) (#$ . 1997))
(make-variable-buffer-local (quote 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])
(byte-code "ÀÁ!„ ÂÁBÄÁ!ˆÁž„ ÆBÂ‡" [boundp double-mode nil current-load-list make-variable-buffer-local minor-mode-alist (double-mode " Double")] 2)
#@204 Toggle Double mode.
With prefix arg, turn Double mode on iff arg is positive.

When Double mode is on, some keys will insert different strings
when pressed twice.  See variable `double-map' for details.
(defalias 'double-mode #[(arg) "„ 	„ Â!ÃXƒ 	…+ ÄÆ ˆ)ÄÇ ‡	?…+ Æ ˆÈÇ ‡" [arg double-mode prefix-numeric-value 0 nil double-map double-setup force-mode-line-update t] 2 (#$ . 2740) "P"])
(provide (quote double))