;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:49:24 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/pcvs-util.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; Function definitions are lazy-loaded. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`pcvs-util.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defalias 'cvs-car #[(x) #@32 (":\2030@\207\207" . [x])(#$ . 687) nil 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) #@94 ("\301\302\303\304\"\"\207" . [xs apply append mapcar #[(x) "<\2030\207C\207" [x] 1]])(#$ . 915) nil 5]) (put 'cvs-append 'byte-optimizer 'byte-compile-inline-expand) (defalias 'cvs-every #[(-cvs-every-f -cvs-every-l) #@88 (":\2030 \211A@!\20400\302\211\2020?\207" . [-cvs-every-l -cvs-every-f t])(#$ . 1145) nil 4]) (put 'cvs-every 'byte-optimizer 'byte-compile-inline-expand) (defalias 'cvs-union #[(xs ys) #@123 ("\n\305\211\2030\f@\211\235\2040 B\fA\211\204\n0\305 +\207" . [ys zs xs x #1=#:--dolist-temp--97269 nil])(#$ . 1350) nil 3]) (defalias 'cvs-map #[(-cvs-map-f &rest -cvs-map-ls) #@200 ("\304 :\2030\n \211A@!\2040\305\211\2020 *??\20500\306 \307\310\"\"\306\311 \307\312\"#B\207" . [-cvs-map-ls -cvs-every-l -cvs-every-f -cvs-map-f null t apply mapcar car cvs-map cdr])(#$ . 1550) nil 7]) (defalias 'cvs-first #[(l &optional n) #@120 ("\2040 @\207 \20520 \211A@C\211 \20300\304V\20300\n \211A@C\241\210\nAS\2020 *\207" . [n l nl ret 1])(#$ . 1814) nil 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) #@145 ("\306\211\n\306\211\203'0\f@ !\2030 B\202 0 B\fA\211\204\f0* \237\237*B\207" . [cdr car l x #1=#:--dolist-temp--97270 p nil])(#$ . 2238) nil 3 (#$ . 1959)]) #@58 Returns a copy of LIST with the last N elements removed. (defalias 'cvs-butlast #[(x &optional n) #@88 ("\203\f0\302X\203\f0 \207\303\304 !\"\207" . [n x 0 cvs-nbutlast copy-sequence])(#$ . 2523) nil 3 (#$ . 2419)]) #@46 Modifies LIST to remove the last N elements. (defalias 'cvs-nbutlast #[(x &optional n) #@95 ("G\n\204 0\303\n W\205_0\n\304V\2030 S\nZ\233\305\241\210)\207" . [x m n 1 0 nil])(#$ . 2740) nil 2 (#$ . 2647)]) #@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) #@308 ("\2060 \303\304\n!\211\2050\305\n!)\206+0\203(0\306\307\310\217\203(0\311\n!\206+0\312p!*\207" . [pop-up-windows pop-up-frames buf nil get-buffer-window select-window #1=#:G97271 (byte-code "\300\301 !\207" [select-window split-window-vertically] 2) ((error)) switch-to-buffer pop-to-buffer])(#$ . 3095) nil 4 (#$ . 2872)]) #@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) #@467 ("r\304\305 !=\2030\305 \2020\306\307\"\211\203.0\310 !\203&0\311\312\313\217\210\202.0\n\203.0\306\n!\210)rq\210\314\304\305 !=\205B0\310\305 !??\205G0!\210)\n\205a0\306\n!\206X0\306\n\315\"\211\205`0\316 !))\207" . [buf win mainbuf mainwin window-buffer selected-window get-buffer-window t window-dedicated-p nil (delete-window win) ((error (byte-code "\301\302!!\207" [win iconify-frame window-frame] 3))) bury-buffer visible select-window])(#$ . 3622) nil 5 (#$ . 3440) (list (current-buffer))]) #@400 Create a buffer NAME unless such a buffer already exists. If the NAME looks like an absolute file name, the buffer will be created with `create-file-buffer' and will probably get another name than NAME. In such a case, the search for another buffer with the same name doesn't use the buffer name but the buffer's `list-buffers-directory' variable. If NOREUSE is non-nil, always return a new buffer. (defalias 'cvs-get-buffer-create #[(name &optional noreuse) #@429 ("\302!\204\f0\303!\206$0 \2040\304\305\215\206$0r\306!q\210\307\310!L\210p)\207" . [name noreuse file-name-absolute-p get-buffer-create --cl-block-nil-- (byte-code "\304 \305\211\203#0 @rq\210\n \232\2030\306\307\"\210) A\211\204 0*\305\207" [buf #1=#:--dolist-temp--97272 name list-buffers-directory buffer-list nil throw --cl-block-nil--] 4) create-file-buffer make-local-variable list-buffers-directory])(#$ . 4616) nil 2 (#$ . 4150)]) #@106 Insert a list of STRINGS into the current buffer. Uses columns to keep the listing readable but compact. (defalias 'cvs-insert-strings #[(strings) #@355 (":\205_0\306\307\310\301\"\"\311 S\312\n \312\\\245]\313G\312\245]^\n \245\211\314\211\203\\0@n\204<0\315c\210\n\fG]i\\W\203O0\316\317!\210\320c\210c\210A\211\20400.\314\207" . [strings length wwidth columns colwidth tab-width apply max mapcar window-width 2 1 nil " " delete-char -2 "\n" str #1=#:--dolist-temp--97273])(#$ . 5236) nil 6 (#$ . 5082)]) #@242 Read the content of FILE and return it as a string. If ONELINE is t, only the first line (no \n) will be returned. If ARGS is non-nil, the file will be executed with ARGS as its arguments. If ARGS is not a list, no argument will be passed. (defalias 'cvs-file-to-string #[(file &optional oneline args) #@415 ("\301\302\303!!\304\216rq\210\305\306\307\217+\207" . [#1=#:temp-buffer get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n0\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) nil (byte-code "\2030\303\304 \305\306\305<\2050&\210\2020\307 !\210e\n\203)0eb\210\305\210`\202*0d{\207" [args file oneline apply call-process nil t insert-file-contents] 7) ((file-error))])(#$ . 5938) nil 3 (#$ . 5628)]) #@40 Tell whether STR1 is a prefix of STR2. (defalias 'cvs-string-prefix-p #[(str1 str2) #@63 ("G\nG Y\2050\n\303 O\230)\207" . [str1 length1 str2 0])(#$ . 6479) nil 4 (#$ . 6389)]) #@222 Concatenate the STRINGS, adding the SEPARATOR (default " "). This tries to quote the strings to avoid ambiguity such that (cvs-string->strings (cvs-strings->string strs)) == strs Only some SEPARATOR will work properly. (defalias 'cvs-strings->string #[(strings &optional separator) #@208 ("\2060\303\304\305\n #)\207" . [separator sep strings " " mapconcat #[(str) "\301\302\"\2030\303\304\302\305#\303Q\207\207" [str string-match "[\\\"]" "\"" replace-regexp-in-string "\\\\\\&"] 5]])(#$ . 6870) nil 4 (#$ . 6579)]) #@201 Split the STRING into a list of strings. It understands elisp style quoting within STRING such that (cvs-string->strings (cvs-strings->string strs)) == strs The SEPARATOR regexp defaults to "\s-+". (defalias 'cvs-string->strings #[(string &optional separator) #@251 ("\2060\305\306\307 \"\n\2040\310 \"\20270\311\n\312=?\205%0\310 \312\nO \"\313 \n\"\211@\314 \fA\315O \")B\"*\207" . [separator string i sep rfs "\\s-+" string-match "[\"]" split-string append 0 read-from-string cvs-string->strings nil])(#$ . 7384) nil 8 (#$ . 7115)]) (defalias 'cvs-expand-dir-name #[(d) #@67 ("\301\302!!\207" . [d file-name-as-directory expand-file-name])(#$ . 7708) nil 3]) (byte-code "\301\302\303\304#\210\305B\301\306\307\310#\210\306\311N\204\301\306\311\312#\210\301\207" [current-load-list put cvs-expand-dir-name byte-optimizer byte-compile-inline-expand cl-struct-cvs-qtypedesc-tags cvs-qtypedesc-str2obj cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-qtypedesc-str2obj (or (and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) (error "cvs-qtypedesc-str2obj accessing a non-cvs-qtypedesc" cl-x)) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-qtypedesc-str2obj #[(cl-x) #@148 ("\302H >\204 0\303\304\"\210\305H\207" . [cl-x cl-struct-cvs-qtypedesc-tags 0 error "cvs-qtypedesc-str2obj accessing a non-cvs-qtypedesc" 1])(#$ . 8415) nil 3]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put cvs-qtypedesc-str2obj setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander cvs-qtypedesc cvs-qtypedesc-str2obj (and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) 1] 6] cvs-qtypedesc-obj2str cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-qtypedesc-obj2str (or (and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) (error "cvs-qtypedesc-obj2str accessing a non-cvs-qtypedesc" cl-x)) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-qtypedesc-obj2str #[(cl-x) #@148 ("\302H >\204 0\303\304\"\210\305H\207" . [cl-x cl-struct-cvs-qtypedesc-tags 0 error "cvs-qtypedesc-obj2str accessing a non-cvs-qtypedesc" 2])(#$ . 9287) nil 3]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put cvs-qtypedesc-obj2str setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander cvs-qtypedesc cvs-qtypedesc-obj2str (and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) 2] 6] cvs-qtypedesc-hist-sym cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-qtypedesc-hist-sym (or (and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) (error "cvs-qtypedesc-hist-sym accessing a non-cvs-qtypedesc" cl-x)) (aref cl-x 3)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-qtypedesc-hist-sym #[(cl-x) #@149 ("\302H >\204 0\303\304\"\210\305H\207" . [cl-x cl-struct-cvs-qtypedesc-tags 0 error "cvs-qtypedesc-hist-sym accessing a non-cvs-qtypedesc" 3])(#$ . 10163) nil 3]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put cvs-qtypedesc-hist-sym setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander cvs-qtypedesc cvs-qtypedesc-hist-sym (and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) 3] 6] cvs-qtypedesc-complete cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-qtypedesc-complete (or (and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) (error "cvs-qtypedesc-complete accessing a non-cvs-qtypedesc" cl-x)) (aref cl-x 4)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-qtypedesc-complete #[(cl-x) #@149 ("\302H >\204 0\303\304\"\210\305H\207" . [cl-x cl-struct-cvs-qtypedesc-tags 0 error "cvs-qtypedesc-complete accessing a non-cvs-qtypedesc" 4])(#$ . 11043) nil 3]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put cvs-qtypedesc-complete setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander cvs-qtypedesc cvs-qtypedesc-complete (and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) 4] 6] cvs-qtypedesc-require cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-qtypedesc-require (or (and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) (error "cvs-qtypedesc-require accessing a non-cvs-qtypedesc" cl-x)) (aref cl-x 5)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-qtypedesc-require #[(cl-x) #@148 ("\302H >\204 0\303\304\"\210\305H\207" . [cl-x cl-struct-cvs-qtypedesc-tags 0 error "cvs-qtypedesc-require accessing a non-cvs-qtypedesc" 5])(#$ . 11919) nil 3]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put cvs-qtypedesc-require setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander cvs-qtypedesc cvs-qtypedesc-require (and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) 5] 6] cvs-qtypedesc-p cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-qtypedesc-p (and (vectorp cl-x) (>= (length cl-x) 6) (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags) t)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-qtypedesc-p #[(cl-x) #@108 ("\302!\2050G\303Y\2050\304H >\2050\305\207" . [cl-x cl-struct-cvs-qtypedesc-tags vectorp 6 0 t])(#$ . 12726) nil 2]) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\207" [put cvs-qtypedesc-create cl-compiler-macro #[(cl-whole str2obj obj2str &rest #1=#:--rest--97274) "\211A@\211A@\211A@\203 \306\307\310G\311\\D\"\210\312\313\314\315\211\211\f \n &\n+\207" [#1# complete hist-sym require str2obj obj2str signal wrong-number-of-arguments cvs-qtypedesc-create 6 cl-defsubst-expand (str2obj obj2str complete hist-sym require) (block cvs-qtypedesc-create (vector 'cl-struct-cvs-qtypedesc str2obj obj2str hist-sym complete require)) nil] 11] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-qtypedesc-create #[(str2obj obj2str &rest #1=#:--rest--97275) #@227 ("\211A@\211A@\211A@\203 0\306\307\310G\311\\D\"\210\312\313\f \n &+\207" . [#1# complete hist-sym require str2obj obj2str signal wrong-number-of-arguments cvs-qtypedesc-create 5 vector cl-struct-cvs-qtypedesc])(#$ . 13545) nil 7]) (byte-code "\306B\307C\310\311\312\313#\210\310\311\314\315#\210\310\311\316\317#\210\310\311\320\321#\210\310\322\323\321#\210\310\324\323\325#\210\310\326\323\321#\210\310\327\323\321#\210\310\330\323\321#\210\310\331\323\321#\210\310\332\323\321#\210\303\nB\333\307\334\211\317\321\317&\304\nB\333\307\334\211\317\211\211&\305\nB\333\307\335\336\317\211\211&\317\207" [custom-print-functions cl-struct-cvs-qtypedesc-tags current-load-list cvs-qtypedesc-string1 cvs-qtypedesc-string cvs-qtypedesc-strings #[(cl-x cl-s cl-n) "\303!\205\235G\304Y\205\235\305H >\205\235\306\307\n\"\210\306\310\n\"\210\311\305H >\204-\312\313\"\210\314H\n\"\210\306\315\n\"\210\311\305H >\204F\312\316\"\210\317H\n\"\210\306\320\n\"\210\311\305H >\204_\312\321\"\210\322H\n\"\210\306\323\n\"\210\311\305H >\204x\312\324\"\210\325H\n\"\210\306\326\n\"\210\311\305H >\204\221\312\327\"\210\330H\n\"\210\306\331\n\"\210\332\207" [cl-x cl-struct-cvs-qtypedesc-tags cl-s vectorp 6 0 princ "#S(cvs-qtypedesc" " str2obj" prin1 error "cvs-qtypedesc-str2obj accessing a non-cvs-qtypedesc" 1 " obj2str" "cvs-qtypedesc-obj2str accessing a non-cvs-qtypedesc" 2 " hist-sym" "cvs-qtypedesc-hist-sym accessing a non-cvs-qtypedesc" 3 " complete" "cvs-qtypedesc-complete accessing a non-cvs-qtypedesc" 4 " require" "cvs-qtypedesc-require accessing a non-cvs-qtypedesc" 5 ")" t] 4] cl-struct-cvs-qtypedesc put cvs-qtypedesc cl-struct-slots ((cl-tag-slot) (str2obj) (obj2str) (hist-sym) (complete) (require)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t cvs-qtypedesc-create side-effect-free cvs-qtypedesc-p error-free cvs-qtypedesc-require cvs-qtypedesc-complete cvs-qtypedesc-hist-sym cvs-qtypedesc-obj2str cvs-qtypedesc-str2obj vector identity cvs-string->strings cvs-strings->string] 7) (defalias 'cvs-query-read #[(default prompt qtypedesc &optional hist-sym) #@765 ("\2060 \n\2060\306H >\2040\307\310\"\210\311H\306H >\204(0\307\312\"\210\313H\314\f!\20540\f \306H >\204B0\307\315\"\210\316H!\306H >\204W0\307\317\"\210\320H\f\204h0\321\n#\202\2150\314\f!\203\2130\322 \323\306H >\204\2000\307\324\"\210\325H\n&\202\2150!-\207" . [qtypedesc cvs-qtypedesc-strings hist-sym cl-struct-cvs-qtypedesc-tags complete completions 0 error "cvs-qtypedesc-hist-sym accessing a non-cvs-qtypedesc" 3 "cvs-qtypedesc-complete accessing a non-cvs-qtypedesc" 4 functionp "cvs-qtypedesc-obj2str accessing a non-cvs-qtypedesc" 2 "cvs-qtypedesc-str2obj accessing a non-cvs-qtypedesc" 1 read-string completing-read nil "cvs-qtypedesc-require accessing a non-cvs-qtypedesc" 5 default initval prompt])(#$ . 15688) nil 8]) (byte-code "\301B\302\303\304\305#\210\303\306N\204\302\303\306\307#\210\301\207" [current-load-list cl-struct-cvs-flags-tags put cvs-flags-defaults cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-flags-defaults (or (and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) (error "cvs-flags-defaults accessing a non-cvs-flags" cl-x)) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-flags-defaults #[(cl-x) #@137 ("\302H >\204 0\303\304\"\210\305H\207" . [cl-x cl-struct-cvs-flags-tags 0 error "cvs-flags-defaults accessing a non-cvs-flags" 1])(#$ . 16987) nil 3]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put cvs-flags-defaults setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander cvs-flags cvs-flags-defaults (and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) 1] 6] cvs-flags-persist cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-flags-persist (or (and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) (error "cvs-flags-persist accessing a non-cvs-flags" cl-x)) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-flags-persist #[(cl-x) #@136 ("\302H >\204 0\303\304\"\210\305H\207" . [cl-x cl-struct-cvs-flags-tags 0 error "cvs-flags-persist accessing a non-cvs-flags" 2])(#$ . 17811) nil 3]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put cvs-flags-persist setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander cvs-flags cvs-flags-persist (and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) 2] 6] cvs-flags-desc cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-flags-desc (or (and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) (error "cvs-flags-desc accessing a non-cvs-flags" cl-x)) (aref cl-x 3)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-flags-desc #[(cl-x) #@133 ("\302H >\204 0\303\304\"\210\305H\207" . [cl-x cl-struct-cvs-flags-tags 0 error "cvs-flags-desc accessing a non-cvs-flags" 3])(#$ . 18620) nil 3]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put cvs-flags-desc setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander cvs-flags cvs-flags-desc (and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) 3] 6] cvs-flags-qtypedesc cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-flags-qtypedesc (or (and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) (error "cvs-flags-qtypedesc accessing a non-cvs-flags" cl-x)) (aref cl-x 4)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-flags-qtypedesc #[(cl-x) #@138 ("\302H >\204 0\303\304\"\210\305H\207" . [cl-x cl-struct-cvs-flags-tags 0 error "cvs-flags-qtypedesc accessing a non-cvs-flags" 4])(#$ . 19440) nil 3]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put cvs-flags-qtypedesc setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander cvs-flags cvs-flags-qtypedesc (and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) 4] 6] cvs-flags-hist-sym cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-flags-hist-sym (or (and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) (error "cvs-flags-hist-sym accessing a non-cvs-flags" cl-x)) (aref cl-x 5)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-flags-hist-sym #[(cl-x) #@137 ("\302H >\204 0\303\304\"\210\305H\207" . [cl-x cl-struct-cvs-flags-tags 0 error "cvs-flags-hist-sym accessing a non-cvs-flags" 5])(#$ . 20271) nil 3]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put cvs-flags-hist-sym setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander cvs-flags cvs-flags-hist-sym (and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) 5] 6] cvs-flags-p cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-flags-p (and (vectorp cl-x) (>= (length cl-x) 6) (memq (aref cl-x 0) cl-struct-cvs-flags-tags) t)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-flags-p #[(cl-x) #@104 ("\302!\2050G\303Y\2050\304H >\2050\305\207" . [cl-x cl-struct-cvs-flags-tags vectorp 6 0 t])(#$ . 21037) nil 2]) (defalias 'copy-cvs-flags #[(x) #@36 ("\301!\207" . [x copy-sequence])(#$ . 21198) nil 2]) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\207" [put -cvs-flags-make cl-compiler-macro #[(cl-whole desc defaults &rest #1=#:--rest--97276) "\211A@\211A@\203\305\306\307G\310\\D\"\210\311\312\313\314\211\211 \f \n& *\207" [#1# qtypedesc hist-sym desc defaults signal wrong-number-of-arguments -cvs-flags-make 5 cl-defsubst-expand (desc defaults qtypedesc hist-sym) (block -cvs-flags-make (vector 'cl-struct-cvs-flags defaults nil desc qtypedesc hist-sym)) nil] 10] byte-compile cl-byte-compile-compiler-macro] 4) (defalias '-cvs-flags-make #[(desc defaults &rest #1=#:--rest--97277) #@207 ("\211A@\211A@\2030\305\306\307G\310\\D\"\210\311\312 \313\f \n&*\207" . [#1# qtypedesc hist-sym defaults desc signal wrong-number-of-arguments -cvs-flags-make 4 vector cl-struct-cvs-flags nil])(#$ . 21883) nil 7]) (byte-code "\302B\303C\304\305\306\307#\210\304\305\310\311#\210\304\305\312\313#\210\304\305\314\315#\210\304\316\317\315#\210\304\320\317\315#\210\304\321\317\322#\210\304\323\317\315#\210\304\324\317\315#\210\304\325\317\315#\210\304\326\317\315#\210\304\327\317\315#\207" [custom-print-functions cl-struct-cvs-flags-tags #[(cl-x cl-s cl-n) "\303!\205\235G\304Y\205\235\305H >\205\235\306\307\n\"\210\306\310\n\"\210\311\305H >\204-\312\313\"\210\314H\n\"\210\306\315\n\"\210\311\305H >\204F\312\316\"\210\317H\n\"\210\306\320\n\"\210\311\305H >\204_\312\321\"\210\322H\n\"\210\306\323\n\"\210\311\305H >\204x\312\324\"\210\325H\n\"\210\306\326\n\"\210\311\305H >\204\221\312\327\"\210\330H\n\"\210\306\331\n\"\210\332\207" [cl-x cl-struct-cvs-flags-tags cl-s vectorp 6 0 princ "#S(cvs-flags" " defaults" prin1 error "cvs-flags-defaults accessing a non-cvs-flags" 1 " persist" "cvs-flags-persist accessing a non-cvs-flags" 2 " desc" "cvs-flags-desc accessing a non-cvs-flags" 3 " qtypedesc" "cvs-flags-qtypedesc accessing a non-cvs-flags" 4 " hist-sym" "cvs-flags-hist-sym accessing a non-cvs-flags" 5 ")" t] 4] cl-struct-cvs-flags put cvs-flags cl-struct-slots ((cl-tag-slot) (defaults) (persist) (desc) (qtypedesc) (hist-sym)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t -cvs-flags-make side-effect-free copy-cvs-flags cvs-flags-p error-free cvs-flags-hist-sym cvs-flags-qtypedesc cvs-flags-desc cvs-flags-persist cvs-flags-defaults] 4) (defalias 'cvs-flags-define '(macro . #[(sym defaults &optional desc qtypedesc hist-sym docstring) #@263 ("\306\307\310\311\312DDDC\313\314\310\315DE\307\301 DC\316\n\313\310\317\320BB\321BBB \f\257EFE F\207" . [sym defaults desc qtypedesc hist-sym docstring defconst let bound boundp quote if and cvs-flags-p -cvs-flags-make cons ((cdr defaults)) (defaults)])(#$ . 23710) nil 16])) #@513 Query flags based on SYM. Optional argument DESC will be used for the prompt If ARG (or a prefix argument) is nil, just use the 0th default. If it is a non-negative integer, use the corresponding default. If it is a negative integer query for a new value of the corresponding default and return that new value. If it is \[universal-argument], just query and return a value without altering the defaults. If it is \[universal-argument] \[universal-argument], behave just as if a negative zero was provided. (defalias 'cvs-flags-query #[(sym &optional desc arg) #@984 ("J\n\2060 \306H >\2040\307\310 \"\210 \311H \306H >\204%0\307\312 \"\210 \313H \306H >\20460\307\314 \"\210 \315H\316=\203E0\306\202P0\206P0\206P0\306\317! \306H >\204e0\307\320 \"\210 \321H\306W\205w0\322\323[\":\203\2200\313V\203\2120\324\202\2130\325\306\326!GW\204\2430\307\327\326!\"\210\203\3610\322\330\n#_\331[ \306H >\204\3010\307\320 \"\210 \321H8_\f $ \325\232\204\3530[ \306H >\204\3430\307\320 \"\210 \321H\233 \240\210 *\202\36608.\207" . [sym flags desc cl-struct-cvs-flags-tags qtypedesc hist-sym 0 error "cvs-flags-desc accessing a non-cvs-flags" 3 "cvs-flags-qtypedesc accessing a non-cvs-flags" 4 "cvs-flags-hist-sym accessing a non-cvs-flags" 5 noquery prefix-numeric-value "cvs-flags-defaults accessing a non-cvs-flags" 1 format " (%sth default)" " (permanent)" "" abs "There is no %sth default" "%s%s: " cvs-query-read arg current-prefix-arg numarg defaults permstr prompt fs])(#$ . 24574) nil 5 (#$ . 24001)]) #@38 Set SYM's INDEX'th setting to VALUE. (defalias 'cvs-flags-set #[(sym index value) #@162 (" J\304H\n>\2040\305\306 J\"\210 J\307H\233 \240\207" . [index sym cl-struct-cvs-flags-tags value 0 error "cvs-flags-defaults accessing a non-cvs-flags" 1])(#$ . 25685) nil 4 (#$ . 25596)]) (byte-code "\302\303\304\305#\210\301B\306\302\207" [current-load-list cvs-prefix-number put cvs-flags-set byte-optimizer byte-compile-inline-expand 10] 4) (defalias 'cvs-prefix-sym #[(sym) #@60 ("\301\302!\303P!\207" . [sym intern symbol-name "-cps"])(#$ . 26078) nil 3]) (put 'cvs-prefix-sym 'byte-optimizer 'byte-compile-inline-expand) (defalias 'cvs-prefix-define '(macro . #[(sym docstring desc defaults &optional qtypedesc hist-sym) #@436 ("\306\307!\310P!)\311\312\313\n\2060\314\315PF\316 \317\303 DC\320\321\f\303 \257FEE)\207" . [sym cps docstring defaults desc qtypedesc intern symbol-name "-cps" progn defvar nil "" "\nSee `cvs-prefix-set' for further description of the behavior." defconst let (unless (>= (length defaults) cvs-prefix-number) (setq defaults (append defaults (make-list (1- cvs-prefix-number) (nth 0 defaults))))) -cvs-flags-make hist-sym])(#$ . 26330) nil 12])) (defalias 'cvs-prefix-make-local #[(sym) #@128 ("\302\303!\304P!)\305!\210\305 !\306 J!L)\207" . [sym cps intern symbol-name "-cps" make-local-variable copy-cvs-flags])(#$ . 26835) nil 3]) #@459 Set the cvs-prefix contained in SYM. If ARG is between 0 and 9, it selects the corresponding default. If ARG is negative (or \[universal-argument] which corresponds to negative 0), it queries the user and sets the -ARG'th default. If ARG is greater than 9 (or \[universal-argument] \[universal-argument]), the (ARG mod 10)'th prefix is made persistent. If ARG is NIL toggle the PREFIX's value between its 0th default and NIL and reset the persistence. (defalias 'cvs-prefix-set #[(sym arg) #@1025 ("\306\307!\310P!)J\n\250\2030\n\2020\311 \311H\f>\204$0\312\313 \"\210 \314H\315\n!\316V\203G0 \311H\f>\204=0\312\317 \"\210 \320\321I\210\322 \323\"\n\204x0 \311H\f>\204Y0\312\317 \"\210 \320\324I\210J?\205\3640 \311H\f>\204q0\312\313 \"\210 \314H@\202\3640\n:\204\2030 \311W\203\3420 [ \311H\f>\204\2220\312\313 \"\210 \314H\233\325 [ \311H\f>\204\2460\312\313 \"\210 \314H8\326\327 \311H\f>\204\2710\312\330 \"\210 \331H\" \311H\f>\204\3120\312\332 \"\210 \333H \311H\f>\204\3320\312\334 \"\210 \335H$\240\202\3640 \311H\f>\204\3600\312\313 \"\210 \314H8L\210\336 +\207" . [sym prefix arg numarg cl-struct-cvs-flags-tags defs intern symbol-name "-cps" 0 error "cvs-flags-defaults accessing a non-cvs-flags" 1 prefix-numeric-value 9 "cvs-flags-persist storing a non-cvs-flags" 2 t mod 10 nil cvs-query-read format "%s: " "cvs-flags-desc accessing a non-cvs-flags" 3 "cvs-flags-qtypedesc accessing a non-cvs-flags" 4 "cvs-flags-hist-sym accessing a non-cvs-flags" 5 force-mode-line-update])(#$ . 27493) nil 9 (#$ . 26989)]) #@87 Return the current value of the prefix SYM. and reset it unless READ-ONLY is non-nil. (defalias 'cvs-prefix-get #[(sym &optional read-only) #@267 ("J \204-0\304\305!\306P!)J\211\307H >\204_0\310\311\n\"\210\n\312H)\204-0\313L\210\314 \210\207" . [sym read-only cl-x cl-struct-cvs-flags-tags intern symbol-name "-cps" 0 error "cvs-flags-persist accessing a non-cvs-flags" 2 nil force-mode-line-update])(#$ . 28703) nil 5 (#$ . 28556)]) (provide 'pcvs-util)