;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307%\210\310\311\312\313\314\315\306\303&\210\310\316\317\320\314\315\306\303&\210\310\321\322\323\314\315\306\303&\210\310\324\325\326\314\315\306\303&\210\327\330\304\331#\207" [require cl custom-declare-group window-number nil "Window number group" :group convenience custom-declare-variable window-number-active-foreground "black" "The foreground color when window number active." :type string window-number-active-background "gold" "The background color when window number active." window-number-inactive-foreground "white" "The foreground color when window number inactive." window-number-inactive-background "darkred" "The background color when window number inactive." custom-declare-face window-number-face "The face used for the window number in the mode-line."] 8) #@84 Set this variable to true (for example, in a mode hook) to not number this window. (defvar window-number-skip nil (#$ . 913)) (make-variable-buffer-local 'window-number-skip) #@93 Returns a list of the windows, in fixed order and the minibuffer (even if not active) last. (defalias 'window-number-list #[nil "\305\306\307 \310\"\306\307 \311\"\"@\211\312\313 \310\"\314 !\211\203(r q\210\f)\204, \nB) =\203\315\n@\nAB!+\207" [walk-windows-start walk-windows-current list b window-number-skip set-difference window-list selected-frame t 1 nil next-window window-buffer reverse] 6 (#$ . 1094)]) #@98 Call `other-window' when just two windows. Prompt user input window number if have more windows. (defalias 'window-number-switch #[nil "\306 G\307W\203\310\311!\210\202W\312 \210\313\216\314\315\306 G\"\316\317\320 \"\316\321\"\322\323 \320 \"T\211\306 GU\203:\315\202< T\324\325\326\f\"\n\"\327 \330\230\203P\f\202S\331 !!\210.\332 \207" [window-numbers window-buffer-names completing-list current-window-index next-window-index select-index-string window-list 3 call-interactively other-window window-number-set-active-color #[nil "\300 \207" [window-number-set-inactive-color] 1] number-sequence 1 mapcar #[(x) "\301\302!!\207" [x buffer-name window-buffer] 3] window-number-list #[(x) "\302!\303 S\234\304RD\207" [x window-buffer-names number-to-string " <" ">"] 4] position selected-window completing-read format "Window number (%s): " window-number-select "" string-to-number window-number-set-inactive-color] 5 (#$ . 1524) nil]) #@25 Selects the nth window. (defalias 'window-number-select #[(number) "\250\205%S\302 8\211\203!\303 !\203\304 !\203!\305 !\202$\306\307!)\207" [number window window-number-list window-minibuffer-p minibuffer-window-active-p select-window error "No such window."] 3 (#$ . 2485) "P"]) (defalias 'window-number-set-inactive-color #[nil "\302\303\"\210\304\303 \"\210\305 \207" [window-number-inactive-foreground window-number-inactive-background set-face-foreground window-number-face set-face-background force-mode-line-update] 3]) (defalias 'window-number-set-active-color #[nil "\302\303\"\210\304\303 \"\210\305 \207" [window-number-active-foreground window-number-active-background set-face-foreground window-number-face set-face-background force-mode-line-update] 3]) #@47 Returns the the number of the current window. (defalias 'window-number #[nil "\300 \301 \237>G\207" [selected-window window-number-list] 2 (#$ . 3271)]) #@64 Returns the string containing the number of the current window (defalias 'window-number-string #[nil "\301 \211\302U\203 \303\202\304\305\306!\307Q\310\311#)\207" [n window-number 0 "" propertize " [" number-to-string "] " face window-number-face] 5 (#$ . 3430)]) #@36 Keymap for the window number mode. (defvar window-number-mode-map nil (#$ . 3705)) #@41 Keymap for the window number meta mode. (defvar window-number-meta-mode-map nil (#$ . 3794)) (defalias 'window-number-define-keys '(macro . #[(mode-map prefix) "\304\305\306\307X\2030\310\n\311 \312\307Y\203\313\202!PD\314\306\315\316DFF BT\211\202 \237*B\207" [number #1=#:--cl-var-- mode-map prefix progn 1 nil 10 define-key kbd number-to-string 0 lambda (interactive) window-number-select] 10])) (byte-code "\204C\302 \303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\303\324\325#\210\303\326\327#\210 \204\206\302 \303 \330\331#\210\303 \332\333#\210\303 \334\335#\210\303 \336\337#\210\303 \340\341#\210\303 \342\343#\210\303 \344\345#\210\303 \346\347#\210\303 \350\351#\210\303 \352\353#\210\354\355\356\357\360\361\362\363\364\365& \210\366\355\367\"\210\370\356!\210\371\372N\204\250\373\371\372\374#\210\373\371\375\376#\210\373\371\377\356C#\210\201@\355\201A\201B\300!\205\305\356\211%\210\354\201C\356\201D\360\361\362\363\364\365& \207" [window-number-mode-map window-number-meta-mode-map make-sparse-keymap define-key "\n1" #[nil "\300\301!\207" [window-number-select 1] 2 nil nil] "\n2" #[nil "\300\301!\207" [window-number-select 2] 2 nil nil] "\n3" #[nil "\300\301!\207" [window-number-select 3] 2 nil nil] "\n4" #[nil "\300\301!\207" [window-number-select 4] 2 nil nil] "\n5" #[nil "\300\301!\207" [window-number-select 5] 2 nil nil] "\n6" #[nil "\300\301!\207" [window-number-select 6] 2 nil nil] "\n7" #[nil "\300\301!\207" [window-number-select 7] 2 nil nil] "\n8" #[nil "\300\301!\207" [window-number-select 8] 2 nil nil] "\n9" #[nil "\300\301!\207" [window-number-select 9] 2 nil nil] "\n0" #[nil "\300\301!\207" [window-number-select 10] 2 nil nil] [134217777] #[nil "\300\301!\207" [window-number-select 1] 2 nil nil] [134217778] #[nil "\300\301!\207" [window-number-select 2] 2 nil nil] [134217779] #[nil "\300\301!\207" [window-number-select 3] 2 nil nil] [134217780] #[nil "\300\301!\207" [window-number-select 4] 2 nil nil] [134217781] #[nil "\300\301!\207" [window-number-select 5] 2 nil nil] [134217782] #[nil "\300\301!\207" [window-number-select 6] 2 nil nil] [134217783] #[nil "\300\301!\207" [window-number-select 7] 2 nil nil] [134217784] #[nil "\300\301!\207" [window-number-select 8] 2 nil nil] [134217785] #[nil "\300\301!\207" [window-number-select 9] 2 nil nil] [134217776] #[nil "\300\301!\207" [window-number-select 10] 2 nil nil] custom-declare-variable window-number-mode nil "Non-nil if Window-Number mode is enabled.\nSee the `window-number-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 `window-number-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean defalias #[(&optional arg) "\304 \305\306 \307=\203\310\306!?\202\" \247\203! \311W\203!\312\202\"\313\"\210\314\302!\2039\315\306\n\"\310\306!\2039\306\nB\316 \210\317\320\310\306!\203H\321\202I\322\"\210\323\324!\203t\325\306!\210\304 \203a\304 \232\203t\326\327\330\310\306!\203o\331\202p\332 #\210))\333 \210\310\306!\207" [#:last-message arg global-minor-modes local current-message set-default window-number-mode toggle default-value 1 nil t boundp delq window-number-set-inactive-color run-hooks window-number-mode-hook window-number-mode-on-hook window-number-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Window-Number mode %sabled%s" "en" "dis" force-mode-line-update] 4 "A global minor mode that enables selection of windows\naccording to numbers with the C-x C-j prefix. Another mode,\n`window-number-meta-mode' enables the use of the M- prefix.\n\nThis is a minor mode. If called interactively, toggle the\n`Window-Number mode' mode. If the prefix argument is positive,\nenable the mode, and if it is zero or negative, disable the mode.\n\nIf called from Lisp, toggle the mode if ARG is `toggle'. Enable\nthe mode if ARG is nil, omitted, or is a positive number.\nDisable the mode if ARG is a negative number.\n\nTo check whether the minor mode is enabled in the current buffer,\nevaluate `(default-value 'window-number-mode)'.\n\nThe mode's hook is called both when the mode is enabled and when\nit is disabled." (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))] (lambda (def-tmp-var) (defvar window-number-mode-hook def-tmp-var)) window-number-mode-hook variable-documentation put "Hook run after entering or leaving `window-number-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 add-minor-mode (:eval (window-number-string)) boundp window-number-meta-mode "Non-nil if Window-Number-Meta mode is enabled.\nSee the `window-number-meta-mode' command\nfor a description of this minor mode."] 10) #@714 A global minor mode that enables use of the M- prefix to select windows, use `window-number-mode' to display the window numbers in the mode-line. This is a minor mode. If called interactively, toggle the `Window-Number-Meta 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 'window-number-meta-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (defalias 'window-number-meta-mode #[(&optional arg) "\304 \305\306 \307=\203\310\306!?\202\" \247\203! \311W\203!\312\202\"\313\"\210\314\302!\2039\315\306\n\"\310\306!\2039\306\nB\316\317\310\306!\203E\320\202F\321\"\210\322\323!\203q\324\306!\210\304 \203^\304 \232\203q\325\326\327\310\306!\203l\330\202m\331 #\210))\332 \210\310\306!\207" [#1=#:last-message arg global-minor-modes local current-message set-default window-number-meta-mode toggle default-value 1 nil t boundp delq run-hooks window-number-meta-mode-hook window-number-meta-mode-on-hook window-number-meta-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Window-Number-Meta mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 8831) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar window-number-meta-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\313\300!\205#\310\211%\210\314\315!\207" [window-number-meta-mode-map window-number-meta-mode-hook variable-documentation put "Hook run after entering or leaving `window-number-meta-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 window-number-meta-mode boundp provide window-number] 6)