;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\207" [require dash custom-declare-group tab-jump-out nil "Custom group for `tab-jump-out-mode'." :group editing :prefix "tab-jump-out-"] 8) #@57 The delimiters indicate `tab-jump-out' should jump out. (defvar tab-jump-out-delimiters '(";" ")" "]" "}" "|" "'" "\"" "`") (#$ . 287)) (make-variable-buffer-local 'tab-jump-out-delimiters) #@38 Fallback behavior of `tab-jump-out'. (defalias 'tab-jump-out-fallback #[nil "\301 \211\205\n\302!)\207" [fallback-behavior tab-jump-out-original-keybinding call-interactively] 3 (#$ . 483)]) #@63 Get current keys' binding as if `tab-jump-out-' didn't exist. (defalias 'tab-jump-out-original-keybinding #[nil "\302\303 \304 \305\"\206\304\306 !\305\"*\207" [tab-jump-out-mode keys nil this-single-command-keys key-binding t tab-jump-out--fallback-translate-input] 3 (#$ . 683)]) #@173 Emulate `read-key-sequence', at least what I think it does. Keys should be an untranslated key vector. Returns a translated vector of keys. FIXME not thoroughly tested. (defalias 'tab-jump-out--fallback-translate-input #[(keys) "\306\307\nGW\203U \211\nGW\2032\f\2032\310\f!\2032\311\n H\312\313\f\"\"A T\211\202\314 \f9\203?\315\f!\202M\316\f!\203I\f\202M\n O\" *\202 *\207" [i retval keys local-function-key-map translated j [] 0 keymapp assoc remove keymap vconcat vector vectorp] 6 (#$ . 976)]) #@22 Use tab to jump out. (defalias 'tab-jump-out #[(arg) "\302f\203\303\304\302f!\"\203 u\207\305 \207" [tab-jump-out-delimiters arg nil -contains\? char-to-string tab-jump-out-fallback] 4 (#$ . 1507) "P"]) #@33 Keymap for `tab-jump-out-mode'. (defvar tab-jump-out-mode-map (byte-code "\301 \302\303\304#\210)\207" [map make-sparse-keymap define-key [tab] tab-jump-out] 4) (#$ . 1721)) #@103 Non-nil if Tab-Jump-Out mode is enabled. Use the command `tab-jump-out-mode' to change this variable. (defvar tab-jump-out-mode nil (#$ . 1905)) (make-variable-buffer-local 'tab-jump-out-mode) #@590 A minor mode that allows you to jump out with tab. This is a minor mode. If called interactively, toggle the `Tab-Jump-Out 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 `tab-jump-out-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (defalias 'tab-jump-out-mode #[(&optional arg) "\305  \306=\203\n?\202 \247\203 \307W\203\310\202\311\312\303!\2032\313\302 \"\n\2032\302 B\314\315\n\203<\316\202=\317\"\210\320\321!\203b\305 \203Q\305 \232\203b\322\323\324\n\203]\325\202^\326\f#\210))\327 \210\n\207" [#1=#:last-message arg tab-jump-out-mode local-minor-modes local current-message toggle 1 nil t boundp delq run-hooks tab-jump-out-mode-hook tab-jump-out-mode-on-hook tab-jump-out-mode-off-hook called-interactively-p any " in current buffer" message "Tab-Jump-Out mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 2105) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar tab-jump-out-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\310\310\211%\210\313\314!\207" [tab-jump-out-mode-map tab-jump-out-mode-hook variable-documentation put "Hook run after entering or leaving `tab-jump-out-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 tab-jump-out-mode provide tab-jump-out] 6)