| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (defalias 'internal--before-save-selected-window #[0 "\300 \301\302\303\304\305 \"\"B\207" [selected-window apply append mapcar #[257 "\300!\301!\302\203 \303\"B\262\211\203* \211@\211\304!BB\262A\266\202\202 \210\207" [frames-on-display-list tty-top-frame nil delq frame-selected-window] 9 "\n\n(fn TERMINAL)"] terminal-list] 6]) #@14 (fn STATE) (defalias 'internal--after-save-selected-window #[257 "\211A\211\203% \211@\300@!\203 \301A!\203 \302@A\303#\210A\266\202\202 \210\301@!\2052 \304@\303\"\207" [frame-live-p window-live-p set-frame-selected-window norecord select-window] 7 (#$ . 429)]) #@748 Execute BODY, then select the previously selected window. The value returned is the value of the last form in BODY. This macro saves and restores the selected window, as well as the selected window in each frame. If the previously selected window is no longer live, then whatever window is selected at the end of BODY remains selected. If the previously selected window of some frame is no longer live at the end of BODY, that frame's selected window is left alone. This macro saves and restores the current buffer, since otherwise its normal operation could make a different buffer current. The order of recently selected windows and the buffer list ordering are not altered by this macro (unless they are altered in BODY). (fn &rest BODY) (defalias 'save-selected-window '(macro . #[128 "\300\301\302\303\304B\305BBDE\207" [let ((save-selected-window--state (internal--before-save-selected-window))) save-current-buffer unwind-protect progn ((internal--after-save-selected-window save-selected-window--state))] 7 (#$ . 711)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put save-selected-window lisp-indent-function 0 put edebug-form-spec t] 5) #@156 Normal hook run by `with-temp-buffer-window' before buffer display. This hook is run by `with-temp-buffer-window' with the buffer to be displayed current. (defvar temp-buffer-window-setup-hook nil (#$ . 1891)) #@177 Normal hook run by `with-temp-buffer-window' after buffer display. This hook is run by `with-temp-buffer-window' with the buffer displayed and current and its window selected. (defvar temp-buffer-window-show-hook nil (#$ . 2108)) #@94 Set up temporary buffer specified by BUFFER-OR-NAME. Return the buffer. (fn BUFFER-OR-NAME) (defalias 'temp-buffer-window-setup #[257 "\306!r\211q\210\307 \210\310 \210\311\211\312\211\312\313 \210\314\315!\210+\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only get-buffer-create kill-all-local-variables delete-all-overlays nil t erase-buffer run-hooks temp-buffer-window-setup-hook] 6 (#$ . 2344)]) #@160 Show temporary buffer BUFFER in a window. Return the window showing BUFFER. Pass ACTION as action argument to `display-buffer'. (fn BUFFER &optional ACTION) (defalias 'temp-buffer-window-show #[513 "\304\211rq\210\305\304!\210\306eb\210 \307=\204 \310=\203# \n\203# \306\202$ \311\"\211\262)\205e \312!\262\211\313 =\204@ \314!\210\315\316\"\210\317!r\320\321\"\216\322@\323\"\210\324\325!\210\n\203b \326!\210*\210)\207" [buffer-read-only window-combination-limit temp-buffer-resize-mode minibuffer-scroll-window nil set-buffer-modified-p t temp-buffer temp-buffer-resize display-buffer window-frame selected-frame raise-frame set-window-hscroll 0 internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord run-hooks temp-buffer-window-show-hook resize-temp-buffer-window] 8 (#$ . 2832)]) #@1961 Bind `standard-output' to BUFFER-OR-NAME, eval BODY, show the buffer. BUFFER-OR-NAME must specify either a live buffer, or the name of a buffer (if it does not exist, this macro creates it). Make the buffer specified by BUFFER-OR-NAME empty before running BODY and bind `standard-output' to that buffer, so that output generated with `prin1' and similar functions in BODY goes into that buffer. Do not make that buffer current for running the forms in BODY. Use `with-current-buffer-window' instead if you need to run BODY with that buffer current. At the end of BODY, mark the specified buffer unmodified and read-only, and display it in a window (but do not select it). The display happens by calling `display-buffer' passing it the ACTION argument. If `temp-buffer-resize-mode' is enabled, the corresponding window may be resized automatically. Return the value returned by BODY, unless QUIT-FUNCTION specifies a function. In that case, run that function with two arguments - the window showing the specified buffer and the value returned by BODY - and return the value returned by that function. If the buffer is displayed on a new frame, the window manager may decide to select that frame. In that case, it's usually a good strategy if QUIT-FUNCTION selects the window showing the buffer before reading any value from the minibuffer; for example, when asking a `yes-or-no-p' question. This runs the hook `temp-buffer-window-setup-hook' before BODY, with the specified buffer temporarily current. It runs the hook `temp-buffer-window-show-hook' after displaying the buffer, with that buffer temporarily current, and the window that was used to display it temporarily selected. This construct is similar to `with-output-to-temp-buffer' but, neither runs `temp-buffer-setup-hook' which usually puts the buffer in Help mode, nor `temp-buffer-show-function' (the ACTION argument replaces this). (fn BUFFER-OR-NAME ACTION QUIT-FUNCTION &rest BODY) (defalias 'with-temp-buffer-window '(macro . #[899 "\300\301!\300\302!\300\303!\304!\203 \202 \300\305!\304!\203$ \202'