;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. #@56 Return a list of ordered windows on the current frame. (defalias 'wn--window-list #[0 "\300\301 \302\303 #\207" [window-list selected-frame t minibuffer-window] 4 (#$ . 87)]) #@50 Select window number N in current frame. (fn N) (defalias 'wn-select-nth #[257 "\211\300 8\211\204\f\301\302!\207\303U\203\304 \204\301\305!\207\306!\207" [wn--window-list message "No such window." 0 active-minibuffer-window "Minibuffer is inactive." select-window] 4 (#$ . 268) "nWindow number: "]) #@42 Return the number of the selected window (defalias 'wn--selected-window-number #[0 "\300 \301\302 !>GS\207" [selected-window reverse wn--window-list] 3 (#$ . 582)]) #@52 Return the string for the current window modeline. (defalias 'wn--selected-window-modeline #[0 "\300\301\302\303 \"\304\305#\207" [propertize format " #%s" wn--selected-window-number face wn-modeline-face] 4 (#$ . 753)]) #@183 Define how the numeric keybindings should be set up. By default we use M-0, M-1, ..., M-9, M-# which has the advantage of being convenient but overrides built-in Emacs keybindings. (defvar wn-keybinding-format "M-%s" (#$ . 981)) #@60 Used by `wn--setup-keymap' to clear previous key bindings. (defvar wn--previous-keybinding-format wn-keybinding-format (#$ . 1217)) #@75 Define or undefine wn-mode's key bindings. (fn KEYMAP FORMAT-STRING SET) (defalias 'wn--define-keys #[771 "\300\301\211W\203&\211\302\303\304\"!\205\305\306\"#\266\211T\262\202\266\302\303\304\307\"!\2055\310#\210\207" [10 0 define-key kbd format make-closure #[0 "\301\300!\207" [V0 wn-select-nth] 2 nil nil] "#" wn-select-nth] 12 (#$ . 1355)]) #@94 Clear `keymap' and define new key bindings according to `wn-keybinding-format'. (fn KEYMAP) (defalias 'wn--setup-keymap #[257 "\302\303#\210 \302 \304#\207" [wn--previous-keybinding-format wn-keybinding-format wn--define-keys nil t] 5 (#$ . 1730)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable wn-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Wn mode is enabled.\nSee the `wn-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `wn-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group windows] 12) #@610 A minor mode that enables quick selection of windows. This is a minor mode. If called interactively, toggle the `Wn 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 `(default-value 'wn-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'wn-mode #[256 "\302 \303\304\305=\203\306\304!?\202!\247\203 \307W\203 \310\202!\311\"\210\312\300!\2038\313\304\"\306\304!\2038\304B\314 !\210\315\316\306\304!\203H\317\202I\320\"\210\321\322!\203q\323\304!\210\302 \203a\211\302 \232\203q\324\325\306\304!\203m\326\202n\327\330#\210\210\331 \210\306\304!\207" [global-minor-modes wn-mode-map current-message set-default wn-mode toggle default-value 1 nil t boundp delq wn--setup-keymap run-hooks wn-mode-hook wn-mode-on-hook wn-mode-off-hook called-interactively-p any customize-mark-as-set message "Wn mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 2490) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar wn-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\302\300\304\305#\210\302\300\306\307C#\207" [wn-mode-hook variable-documentation put "Hook run after entering or leaving `wn-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] 4) #@23 Keymap for `wn-mode'. (defvar wn-mode-map (byte-code "\300\301 !\302!\203 \207\211<\203\303!\207\304\305\"\207" [wn--setup-keymap make-sparse-keymap keymapp easy-mmode-define-keymap error "Invalid keymap %S"] 4) (#$ . 4233)) (byte-code "\301\302\303\304\211%\210\305\306\307\310\311\312%\210\313\302!\207" [wn-mode-map add-minor-mode wn-mode (:eval (wn--selected-window-modeline)) nil custom-declare-face wn-modeline-face ((t nil)) "wn-mode modeline face." :group faces provide] 6)