Current File : //usr/local/share/emacs/27.2/lisp/windmove.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305\306\307\310\311\310\312& \210\313\314\315\316\317DD\320\321\322\310\301&\210\313\323\315\316\324DD\325\321\322\310\301\306\326& \210\313\327\315\316\330DD\331\321\332\310\301&\210\333\327\334\326#\207" [custom-declare-group windmove nil "Directional selection of windows in a frame." :prefix "windmove-" :version "21.1" :group windows convenience custom-declare-variable windmove-wrap-around funcall function #[0 "\300\207" [nil] 1] "Whether movement off the edge of the frame wraps around.\nIf this variable is set to t, moving left from the leftmost window in\na frame will find the rightmost one, and similarly for the other\ndirections. The minibuffer is skipped over in up/down movements if it\nis inactive." :type boolean windmove-create-window #[0 "\300\207" [nil] 1] "Whether movement off the edge of the frame creates a new window.\nIf this variable is set to t, moving left from the leftmost window in\na frame will create a new window on the left, and similarly for the other\ndirections." "27.1" windmove-window-distance-delta #[0 "\300\207" [1] 1] "How far away from the current window to look for an adjacent window.\nMeasured in characters either horizontally or vertically; setting this\nto a value larger than 1 may be useful in getting around window-\nplacement bugs in old versions of Emacs." number make-obsolete-variable "no longer used."] 12)
#@156 Add the two coordinates.
Both COORD1 and COORD2 are coordinate cons pairs, (HPOS . VPOS). The
result is another coordinate cons pair.
(fn COORD1 COORD2)
(defalias 'windmove-coord-add #[514 "@@\\AA\\B\207" [] 5 (#$ . 1814)])
(make-obsolete 'windmove-coord-add "no longer used." "27.1")
#@165 Ensure that N is between MIN-N and MAX-N inclusive by constraining.
If N is less than MIN-N, return MIN-N; if greater than MAX-N, return
MAX-N.
(fn N MIN-N MAX-N)
(defalias 'windmove-constrain-to-range #[771 "^]\207" [] 6 (#$ . 2112)])
(make-obsolete 'windmove-constrain-to-range "no longer used." "27.1")
#@161 Ensure that N is between MIN-N and MAX-N inclusive by wrapping.
If N is less than MIN-N, return MAX-N; if greater than MAX-N, return
MIN-N.
(fn N MIN-N MAX-N)
(defalias 'windmove-constrain-around-range #[771 "W\203 \207V\203 \207\207" [] 5 (#$ . 2429)])
(make-obsolete 'windmove-constrain-around-range "no longer used." "27.1")
#@434 Return (X-MIN Y-MIN X-MAX Y-MAX) for the frame containing WINDOW.
If WINDOW is nil, return the edges for the selected frame.
(X-MIN, Y-MIN) is the zero-based coordinate of the top-left corner
of the frame; (X-MAX, Y-MAX) is the zero-based coordinate of the
bottom-right corner of the frame.
For example, if a frame has 76 rows and 181 columns, the return value
from `windmove-frame-edges' will be the list (0 0 180 75).
(fn WINDOW)
(defalias 'windmove-frame-edges #[257 "\300\301!!\207" [window-edges frame-root-window] 4 (#$ . 2773)])
(make-obsolete 'windmove-frame-edges "no longer used." "27.1")
#@614 Constrain COORD so that it is reasonable for the given movement.
This involves two things: first, make sure that the "off" coordinate
-- the one not being moved on, e.g., y for horizontal movement -- is
within frame boundaries; second, if the movement is down and we're not
moving from the minibuffer, make sure that the y coordinate does not
exceed the frame max-y, so that we don't overshoot the minibuffer
accidentally. WINDOW is the window that movement is relative to; DIR
is the direction of the movement, one of `left', `up', `right',
or `down'.
Returns the constrained coordinate.
(fn COORD WINDOW DIR)
(defalias 'windmove-constrain-loc-for-movement #[771 "\300!\301!@A@\3028\3038\304>\203\" \305 @#\202% @\306>\2047 \307=\203A \204A \305\nA#\202D AB\266\202\266\204\207" [windmove-frame-edges window-minibuffer-p 2 3 (up down) windmove-constrain-to-range (left right) down] 14 (#$ . 3381)])
(make-obsolete 'windmove-constrain-loc-for-movement "no longer used." "27.1")
#@367 Takes the constrained COORD and wraps it around for the movement.
This makes an out-of-range x or y coordinate and wraps it around the
frame, giving a coordinate (hopefully) in the window on the other edge
of the frame. WINDOW is the window that movement is relative to (nil
means the currently selected window). Returns the wrapped coordinate.
(fn COORD WINDOW)
(defalias 'windmove-wrap-loc-for-movement #[514 "\300!\301\203 \302!\202 \303 !\304!@A@\3058\204, \3068\307!Z\2020 \3068\310 @#\310\nA#B\266\204\207" [windmove-frame-edges minibuffer-window window-frame selected-frame minibuffer-window-active-p 2 3 window-height windmove-constrain-around-range] 14 (#$ . 4393)])
(make-obsolete 'windmove-wrap-loc-for-movement "no longer used." "27.1")
#@432 Return the reference location for directional window selection.
Return a coordinate (HPOS . VPOS) that is frame-based. If ARG is nil
or not supplied, the reference point is the buffer's point in the
currently-selected window, or WINDOW if supplied; otherwise, it is the
top-left or bottom-right corner of the selected window, or WINDOW if
supplied, if ARG is greater or smaller than zero, respectively.
(fn &optional ARG WINDOW)
(defalias 'windmove-reference-loc #[512 "\204 \300\202 \301!\302!\211@A@B\3038S\3048SB\300V\203' \202D \300W\2031 \211\202D \300U\205D \305\306\307\310 ! \"!\"\266\202\207" [0 prefix-numeric-value window-inside-edges 2 3 windmove-coord-add posn-col-row posn-at-point window-point] 12 (#$ . 5174)])
(make-obsolete 'windmove-reference-loc "no longer used." "27.1")
#@314 Return a location in the window to be moved to.
Return value is a frame-based (HPOS . VPOS) value that should be moved
to. DIR is one of `left', `up', `right', or `down'; an optional ARG
is handled as by `windmove-reference-loc'; WINDOW is the window that
movement is relative to.
(fn DIR &optional ARG WINDOW)
(defalias 'windmove-other-window-loc #[769 "\301!\302\"\303\267\202: @ZAB\202? \211@A@ZB\202? \3048S\\AB\202? \211@\3058S\\B\202? \306\307\"\207" [windmove-window-distance-delta window-edges windmove-reference-loc #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (left 13 up 23 right 34 down 46)) 2 3 error "Invalid direction of movement: %s"] 8 (#$ . 5990)])
(make-obsolete 'windmove-other-window-loc "no longer used." "27.1")
#@399 Return the window object in direction DIR as seen from WINDOW.
DIR is one of `left', `up', `right', or `down'.
WINDOW must be a live window and defaults to the selected one.
Optional ARG, if negative, means to use the right or bottom edge of
WINDOW as reference position, instead of `window-point'; if positive,
use the left or top edge of WINDOW as reference point.
(fn DIR &optional ARG WINDOW)
(defalias 'windmove-find-other-window #[769 "\301\302\303&\207" [windmove-wrap-around window-in-direction nil t] 10 (#$ . 6790)])
#@307 Move to the window at direction DIR as seen from WINDOW.
DIR, ARG, and WINDOW are handled as by `windmove-find-other-window'.
If no window is at direction DIR, an error is signaled.
If `windmove-create-window' is non-nil, try to create a new window
in direction DIR instead.
(fn DIR &optional ARG WINDOW)
(defalias 'windmove-do-window-select #[769 "\301#\203! \211\203 \302!\203! \303!\204! \304\305#\262\211\204, \306\307\"\202A \302!\203> \303!\204> \306\310!\202A \311!\207" [windmove-create-window windmove-find-other-window window-minibuffer-p minibuffer-window-active-p split-window nil user-error "No window %s from selected window" "Minibuffer is inactive" select-window] 8 (#$ . 7330)])
#@449 Select the window to the left of the current one.
With no prefix argument, or with prefix argument equal to zero,
"left" is relative to the position of point in the window; otherwise
it is relative to the top edge (for positive ARG) or the bottom edge
(for negative ARG) of the current window.
If no window is at the desired location, an error is signaled
unless `windmove-create-window' is non-nil and a new window is created.
(fn &optional ARG)
(defalias 'windmove-left #[256 "\300\301\205 \302!\"\207" [windmove-do-window-select left prefix-numeric-value] 5 (#$ . 8049) "P"])
#@438 Select the window above the current one.
With no prefix argument, or with prefix argument equal to zero, "up"
is relative to the position of point in the window; otherwise it is
relative to the left edge (for positive ARG) or the right edge (for
negative ARG) of the current window.
If no window is at the desired location, an error is signaled
unless `windmove-create-window' is non-nil and a new window is created.
(fn &optional ARG)
(defalias 'windmove-up #[256 "\300\301\205 \302!\"\207" [windmove-do-window-select up prefix-numeric-value] 5 (#$ . 8639) "P"])
#@451 Select the window to the right of the current one.
With no prefix argument, or with prefix argument equal to zero,
"right" is relative to the position of point in the window;
otherwise it is relative to the top edge (for positive ARG) or the
bottom edge (for negative ARG) of the current window.
If no window is at the desired location, an error is signaled
unless `windmove-create-window' is non-nil and a new window is created.
(fn &optional ARG)
(defalias 'windmove-right #[256 "\300\301\205 \302!\"\207" [windmove-do-window-select right prefix-numeric-value] 5 (#$ . 9214) "P"])
#@440 Select the window below the current one.
With no prefix argument, or with prefix argument equal to zero,
"down" is relative to the position of point in the window; otherwise
it is relative to the left edge (for positive ARG) or the right edge
(for negative ARG) of the current window.
If no window is at the desired location, an error is signaled
unless `windmove-create-window' is non-nil and a new window is created.
(fn &optional ARG)
(defalias 'windmove-down #[256 "\300\301\205 \302!\"\207" [windmove-do-window-select down prefix-numeric-value] 5 (#$ . 9808) "P"])
#@229 Set up keybindings for `windmove'.
Keybindings are of the form MODIFIERS-{left,right,up,down},
where MODIFIERS is either a list of modifiers or a single modifier.
Default value of MODIFIERS is `shift'.
(fn &optional MODIFIERS)
(defalias 'windmove-default-keybindings #[256 "\211\204 \300\262\211<\204 \211C\262\301\302\303\304\"!\305\"\210\301\302\303\306\"!\307\"\210\301\302\303\310\"!\311\"\210\301\302\303\312\"!\313\"\207" [shift global-set-key vector append (left) windmove-left (right) windmove-right (up) windmove-up (down) windmove-down] 6 (#$ . 10389) nil])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable windmove-display-no-select funcall function #[0 "\300\207" [nil] 1] "Whether the window should be selected after displaying the buffer in it." :type boolean :group windmove :version "27.1"] 10)
#@664 Display the next buffer in the window at direction DIR.
The next buffer is the buffer displayed by the next command invoked
immediately after this command (ignoring reading from the minibuffer).
Create a new window if there is no window in that direction.
By default, select the window with a displayed buffer.
If prefix ARG is `C-u', reselect a previously selected window.
If `windmove-display-no-select' is non-nil, this command doesn't
select the window with a displayed buffer, and the meaning of
the prefix argument is reversed.
When `switch-to-buffer-obey-display-actions' is non-nil,
`switch-to-buffer' commands are also supported.
(fn DIR &optional ARG)
(defalias 'windmove-display-in-direction #[513 "\211:\204\f \262\202 \211?\205 \266\202\303 \206 \304 \305C\306 \307\310\311\312\313\n\n$\314\"\315\316% \317\320!\307\321\322\312\313 \n %\323\"\324$\307\321\325\312\313\n #\326\"\327$M\210\330\331\"\210\nB\332\333 \"\207" [windmove-display-no-select this-command display-buffer-overriding-action minibuffer-selected-window selected-window nil minibuffer-depth make-byte-code 514 "\306 \303V?\205K \300\307=\203 \310 \311 \210)\312 \2021 \300\313=\203$ \312 \2021 \314\300\315\211\301\205/ \316\301!
%\317\204@ \320\315\211\300#\262\321\262\302\322$\240\266\202\207" vconcat vector [tab-bar-new-tab-choice windmove-wrap-around minibuffer-depth new-tab t tab-bar-new-tab selected-window same-window window-in-direction nil prefix-numeric-value reuse split-window window window--display-buffer] 10 "\n\n(fn BUFFER ALIST)" make-symbol "clear-display-buffer-overriding-action" 0 "\306\303
\"\307\300\203 \301\202 \302\242!\203! \310\300\203 \301\202 \302\242!\210\311\312\304\"\207" [display-buffer-overriding-action delq window-live-p select-window remove-hook post-command-hook] 3 "\304 \300V\206\n \301=?\205 \302 \207" [this-command minibuffer-depth] 2 add-hook post-command-hook message "[display-%s]"] 19 (#$ . 11262)])
#@155 Display the next buffer in window to the left of the current one.
See the logic of the prefix ARG in `windmove-display-in-direction'.
(fn &optional ARG)
(defalias 'windmove-display-left #[256 "\300\301\"\207" [windmove-display-in-direction left] 4 (#$ . 13248) "P"])
#@146 Display the next buffer in window above the current one.
See the logic of the prefix ARG in `windmove-display-in-direction'.
(fn &optional ARG)
(defalias 'windmove-display-up #[256 "\300\301\"\207" [windmove-display-in-direction up] 4 (#$ . 13524) "P"])
#@156 Display the next buffer in window to the right of the current one.
See the logic of the prefix ARG in `windmove-display-in-direction'.
(fn &optional ARG)
(defalias 'windmove-display-right #[256 "\300\301\"\207" [windmove-display-in-direction right] 4 (#$ . 13787) "P"])
#@146 Display the next buffer in window below the current one.
See the logic of the prefix ARG in `windmove-display-in-direction'.
(fn &optional ARG)
(defalias 'windmove-display-down #[256 "\300\301\"\207" [windmove-display-in-direction down] 4 (#$ . 14066) "P"])
#@65 Display the next buffer in the same window.
(fn &optional ARG)
(defalias 'windmove-display-same-window #[256 "\300\301\"\207" [windmove-display-in-direction same-window] 4 (#$ . 14332) "P"])
#@59 Display the next buffer in a new tab.
(fn &optional ARG)
(defalias 'windmove-display-new-tab #[256 "\300\301\"\207" [windmove-display-in-direction new-tab] 4 (#$ . 14531) "P"])
#@335 Set up keybindings for directional buffer display.
Keys are bound to commands that display the next buffer in the specified
direction. Keybindings are of the form MODIFIERS-{left,right,up,down},
where MODIFIERS is either a list of modifiers or a single modifier.
Default value of MODIFIERS is `shift-meta'.
(fn &optional MODIFIERS)
(defalias 'windmove-display-default-keybindings #[256 "\211\204 \300\262\211<\204 \211C\262\301\302\303\304\"!\305\"\210\301\302\303\306\"!\307\"\210\301\302\303\310\"!\311\"\210\301\302\303\312\"!\313\"\210\301\302\303\314\"!\315\"\210\301\302\303\316\"!\317\"\207" [(shift meta) global-set-key vector append (left) windmove-display-left (right) windmove-display-right (up) windmove-display-up (down) windmove-display-down (48) windmove-display-same-window (116) windmove-display-new-tab] 6 (#$ . 14717) nil])
#@320 Delete the window at direction DIR.
If prefix ARG is `\[universal-argument]', also kill the buffer in that window.
With `M-0' prefix, delete the selected window and
select the window at direction DIR.
When `windmove-wrap-around' is non-nil, takes the window
from the opposite side of the frame.
(fn DIR &optional ARG)
(defalias 'windmove-delete-in-direction #[513 "\301\302\211\303&\211\204 \304\305\"\2024 \306\232\203 \307\310!!\210\311\232\204, \312!\2024 \312\313 !\210\314!\207" [windmove-wrap-around window-in-direction nil t user-error "No window %s from selected window" (4) kill-buffer window-buffer 0 delete-window selected-window select-window] 9 (#$ . 15579)])
#@185 Delete the window to the left of the current one.
If prefix ARG is `C-u', delete the selected window and
select the window that was to the left of the current one.
(fn &optional ARG)
(defalias 'windmove-delete-left #[256 "\300\301\"\207" [windmove-delete-in-direction left] 4 (#$ . 16272) "P"])
#@167 Delete the window above the current one.
If prefix ARG is `C-u', delete the selected window and
select the window that was above the current one.
(fn &optional ARG)
(defalias 'windmove-delete-up #[256 "\300\301\"\207" [windmove-delete-in-direction up] 4 (#$ . 16576) "P"])
#@187 Delete the window to the right of the current one.
If prefix ARG is `C-u', delete the selected window and
select the window that was to the right of the current one.
(fn &optional ARG)
(defalias 'windmove-delete-right #[256 "\300\301\"\207" [windmove-delete-in-direction right] 4 (#$ . 16858) "P"])
#@167 Delete the window below the current one.
If prefix ARG is `C-u', delete the selected window and
select the window that was below the current one.
(fn &optional ARG)
(defalias 'windmove-delete-down #[256 "\300\301\"\207" [windmove-delete-in-direction down] 4 (#$ . 17166) "P"])
#@384 Set up keybindings for directional window deletion.
Keys are bound to commands that delete windows in the specified
direction. Keybindings are of the form PREFIX MODIFIERS-{left,right,up,down},
where PREFIX is a prefix key and MODIFIERS is either a list of modifiers or
a single modifier. Default value of PREFIX is `C-x' and MODIFIERS is `shift'.
(fn &optional PREFIX MODIFIERS)
(defalias 'windmove-delete-default-keybindings #[512 "\204 \300\262<\204 C\262\211\204 \301\262\211<\204 \211C\262\302\303\304\305\"\"\306\"\210\302\303\304\307\"\"\310\"\210\302\303\304\311\"\"\312\"\210\302\303\304\313\"\"\314\"\207" [(24) (shift) global-set-key vector append (left) windmove-delete-left (right) windmove-delete-right (up) windmove-delete-up (down) windmove-delete-down] 8 (#$ . 17452) nil])
#@177 Swap the states of the selected window and the window at direction DIR.
When `windmove-wrap-around' is non-nil, takes the window
from the opposite side of the frame.
(fn DIR)
(defalias 'windmove-swap-states-in-direction #[257 "\301\302\211\211\303&\211\203 \304!\203 \305\306\"\202 \307\302\"\207" [windmove-wrap-around window-in-direction nil t window-minibuffer-p user-error "No window %s from selected window" window-swap-states] 8 (#$ . 18272)])
#@67 Swap the states with the window on the left from the current one.
(defalias 'windmove-swap-states-left #[0 "\300\301!\207" [windmove-swap-states-in-direction left] 2 (#$ . 18738) nil])
#@61 Swap the states with the window above from the current one.
(defalias 'windmove-swap-states-up #[0 "\300\301!\207" [windmove-swap-states-in-direction up] 2 (#$ . 18929) nil])
#@61 Swap the states with the window below from the current one.
(defalias 'windmove-swap-states-down #[0 "\300\301!\207" [windmove-swap-states-in-direction down] 2 (#$ . 19110) nil])
#@68 Swap the states with the window on the right from the current one.
(defalias 'windmove-swap-states-right #[0 "\300\301!\207" [windmove-swap-states-in-direction right] 2 (#$ . 19295) nil])
#@372 Set up keybindings for directional window swap states.
Keys are bound to commands that swap the states of the selected window
with the window in the specified direction. Keybindings are of the form
MODIFIERS-{left,right,up,down}, where MODIFIERS is either a list of modifiers
or a single modifier. Default value of MODIFIERS is `shift-super'.
(fn &optional MODIFIERS)
(defalias 'windmove-swap-states-default-keybindings #[256 "\211\204 \300\262\211<\204 \211C\262\301\302\303\304\"!\305\"\210\301\302\303\306\"!\307\"\210\301\302\303\310\"!\311\"\210\301\302\303\312\"!\313\"\207" [(shift super) global-set-key vector append (left) windmove-swap-states-left (right) windmove-swap-states-right (up) windmove-swap-states-up (down) windmove-swap-states-down] 6 (#$ . 19490) nil])
(provide 'windmove)
Mini Shell