| Server IP : 217.160.0.212 / Your IP : 216.73.217.5 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 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. #@1194 Make the current definition and/or comment visible. Further invocations move it to the top of the window or toggle the visibility of comments that precede it. Point is left unchanged unless prefix ARG is supplied. If the definition is fully onscreen, it is moved to the top of the window. If it is partly offscreen, the window is scrolled to get the definition (or as much as will fit) onscreen, unless point is in a comment which is also partly offscreen, in which case the scrolling attempts to get as much of the comment onscreen as possible. Initially `reposition-window' attempts to make both the definition and preceding comments visible. Further invocations toggle the visibility of the comment lines. If ARG is non-nil, point may move in order to make the whole defun visible (if only part could otherwise be made so), to make the defun line visible (if point is in code and it could not be made so, or if only comments, including the first comment line, are visible), or to make the first comment line visible (if point is in a comment). If INTERACTIVE is non-nil, as it is interactively, report errors as appropriate for this kind of usage. (fn &optional ARG INTERACTIVE) (defalias 'reposition-window #[512 "\211\203 \3001 \301\302\"0\207\303A@!\207`\304 \305Z\306\307 `\"\310\311\212m\204( \312u\210\313\314!\210\315\316\302\317#\2037 \314u\210`)\"]\311\212\313\312!\210\320\312!\210`)\"\306\212\313\312!\210`)\"X\205_ ZXU\204v U\203\223 V\203\223 \211\203\223 \203\215 TV\203\215 \313 \210\320 \210\321\310!\207\321\310]!\207U\204\253 \310U\204\253 W\203\336 \310W\203\336 U\203\301 \203\275 \313 \210\320 \210\321\310!\207\203\327 W\203\327 [y\210\322 \210\321\310!\207\321^!\207\\SV\203\370 \211\203\370 \321\310ZT]]!\207\203 W\203 [y\210\322 \210\301 \207\321^!\207" [(scan-error) reposition-window nil user-error window-height 2 repos-count-screen-lines window-start 0 repos-count-screen-lines-signed 1 end-of-defun -1 re-search-forward "[^ \n\f]" t beginning-of-defun recenter beginning-of-line] 13 (#$ . 86) "P\nd"]) #@18 (fn START END) (defalias 'repos-count-screen-lines #[514 "\212\214e}\210b\210\300deZ!*\207" [vertical-motion] 5 (#$ . 2201)]) #@18 (fn START END) (defalias 'repos-count-screen-lines-signed #[514 "\300\"W\203 \207\211[\207" [repos-count-screen-lines] 5 (#$ . 2337)]) (provide 'reposition)