%PDF- %PDF-
Direktori : /usr/local/share/emacs/27.2/lisp/vc/ |
Current File : //usr/local/share/emacs/27.2/lisp/vc/pcvs-util.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defalias 'cvs-car #[(x) ":\203 @\207\207" [x] 1]) (byte-code "\300\301\302\303#\210\304\305\306\"\207" [put cvs-car byte-optimizer byte-compile-inline-expand defalias cvs-cdr cdr-safe] 4) (defalias 'cvs-append #[(&rest xs) "\301\302\303\304\"\"\207" [xs apply append mapcar #[(x) "<\203 \207C\207" [x] 1]] 5]) (put 'cvs-append 'byte-optimizer 'byte-compile-inline-expand) (defalias 'cvs-every #[(-cvs-every-f -cvs-every-l) ":\203 \211A\242!\204 \302\211\202 ?\207" [-cvs-every-l -cvs-every-f t] 4]) (put 'cvs-every 'byte-optimizer 'byte-compile-inline-expand) (defalias 'cvs-union #[(xs ys) "\n\305\211\203 \f@\211\235\204 B\fA\211\204\n \305 +\207" [ys zs xs x --dolist-tail-- nil] 3]) (defalias 'cvs-map #[(-cvs-map-f &rest -cvs-map-ls) "\305\306 \n:\203 \n\211A\242!\204 \307\211\202 \n*\2032 \310\f\311\312 \"\"B\311\313 \"\202 \237)\207" [accum -cvs-map-ls -cvs-every-l -cvs-every-f -cvs-map-f nil null t apply mapcar car cdr] 5]) (defalias 'cvs-first #[(l &optional n) "\204 @\207 \2052 \211A\242C\211 \2030 \304V\2030 \n \211A\242C\241\210\nAS\202 *\207" [n l nl ret 1] 4]) #@240 Partition a list L into two lists based on predicate P. The function returns a `cons' cell where the `car' contains elements of L for which P is true while the `cdr' contains the other elements. The ordering among elements is maintained. (defalias 'cvs-partition #[(p l) "\306\211\n\306\211\203' \f@ !\203 B\202 B\fA\211\204\f * \237\237*B\207" [cdr car l x --dolist-tail-- p nil] 3 (#$ . 1550)]) #@169 Pop to BUF like `pop-to-buffer' but staying on the same frame. If `pop-to-buffer' would have opened a new frame, this function would try to split a new window instead. (defalias 'cvs-pop-to-buffer-same-frame #[(buf) "\206 \303\304\n!\211\205 \305\n!)\2069 \2036 \3061' \305\307 !0\202+ \210\2026 \2036 \310\n\303\311#\2069 \312p!*\207" [pop-up-windows pop-up-frames buf nil get-buffer-window select-window (error) split-window-below switch-to-buffer force-same-window pop-to-buffer] 5 (#$ . 1971)]) #@123 Hide the buffer BUF that was temporarily popped up. BUF is assumed to be a temporary buffer used from the buffer MAINBUF. (defalias 'cvs-bury-buffer #[(buf &optional mainbuf) "r\304 =\203 \305 \202 \306\307\"\211\203. \310 !\203. \3111' \312 !0\202- \210\313\314 !!\210)rq\210\315\304 =\205>