;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:21:03 2007 ;;; from file /home/cyd/emacs/lisp/pcvs-util.el ;;; in Emacs version 22.0.99 ;;; 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])(#$ . 632) 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]])(#$ . 860) 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])(#$ . 1090) nil 4]) (put 'cvs-every 'byte-optimizer 'byte-compile-inline-expand) (defalias 'cvs-union #[(xs ys) #@121 ("\n\305\211\2030\f@\211\235\2040 B\fA\211\204\n0\305 +\207" . [ys zs xs x #1=#:--cl-dolist-temp-- nil])(#$ . 1295) 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])(#$ . 1493) 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])(#$ . 1757) 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) #@143 ("\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=#:--cl-dolist-temp-- p nil])(#$ . 2181) nil 3 (#$ . 1902)]) #@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) #@296 ("\2060 \303\304\n!\211\2050\305\n!)\206+0\203(0\303\306\307\217\203(0\310\n!\206+0\311p!*\207" . [pop-up-windows pop-up-frames buf nil get-buffer-window select-window (byte-code "\300\301 !\207" [select-window split-window-vertically] 2) ((error)) switch-to-buffer pop-to-buffer])(#$ . 2584) nil 4 (#$ . 2361)]) #@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) #@440 ("r\304\305 !=\2030\305 \2020\306\307\"\211\203#0\310 !\203#0\311\312\313\217\210)rq\210\314\304\305 !=\20570\310\305 !??\205<0!\210)\n\205V0\306\n!\206M0\306\n\315\"\211\205U0\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])(#$ . 3099) nil 5 (#$ . 2917) (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) #@467 ("\303!\2040 \2030\304!\2020\305!\206.0 \204 0\306\307\215\206.0r\310!q\210\311\302!\210p)\207" . [name noreuse list-buffers-directory file-name-absolute-p generate-new-buffer 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=#:--cl-dolist-temp-- name list-buffers-directory buffer-list nil throw --cl-block-nil--] 4) create-file-buffer make-local-variable])(#$ . 4066) nil 2 (#$ . 3600)]) #@106 Insert a list of STRINGS into the current buffer. Uses columns to keep the listing readable but compact. (defalias 'cvs-insert-strings #[(strings) #@353 (":\205_0\306\307\310\301\"\"\311 S\312\n \312\\\245]\313G\312\245]^\n \245\211\314\211\203\\0@n\204O0\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=#:--cl-dolist-temp--])(#$ . 4724) nil 6 (#$ . 4570)]) #@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) #@401 ("\300\301\302\217\207" . [nil (byte-code "\304\305!\306\216rq\210 \203 0\307\310\n\311\312\311 <\2050 &\210\202$0\313\n!\210eb\210` \20310\314 \20220d{+\207" [#1=#:temp-buffer args file oneline generate-new-buffer " *temp*" ((byte-code "\301!\203\n0\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply call-process nil t insert-file-contents line-end-position] 7) ((file-error))])(#$ . 5424) nil 3 (#$ . 5114)]) #@40 Tell whether STR1 is a prefix of STR2. (defalias 'cvs-string-prefix-p #[(str1 str2) #@73 ("\302\303 G \303\211&\304=\207" . [str2 str1 compare-strings nil t])(#$ . 5951) nil 7 (#$ . 5861)]) #@223 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 SEPARATORs 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]])(#$ . 6353) nil 4 (#$ . 6061)]) #@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) #@259 ("\2060\305\306\307 \"\n\2040\310 \311#\20290\312\n\313=?\205'0\310 \313\nO \311#\314 \n\"\211@\315 \fA\316O \")B\"*\207" . [separator string i sep rfs "\\s-+" string-match "[\"]" split-string t append 0 read-from-string cvs-string->strings nil])(#$ . 6867) nil 8 (#$ . 6598)]) (defalias 'cvs-expand-dir-name #[(d) #@67 ("\301\302!!\207" . [d file-name-as-directory expand-file-name])(#$ . 7199) 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-expand-dir-name byte-optimizer byte-compile-inline-expand cvs-qtypedesc-str2obj cl-compiler-macro #[(--cl-whole-arg-- 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")) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-qtypedesc-str2obj #[(cl-x) #@147 ("\302H >\204\f0\303\304!\210\305H\207" . [cl-x cl-struct-cvs-qtypedesc-tags 0 error "cvs-qtypedesc-str2obj accessing a non-cvs-qtypedesc" 1])(#$ . 7855) nil 2]) (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 #1=(and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) 1] 6] cvs-qtypedesc-obj2str cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-qtypedesc-obj2str (or #1# (error "cvs-qtypedesc-obj2str accessing a non-cvs-qtypedesc")) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-qtypedesc-obj2str #[(cl-x) #@147 ("\302H >\204\f0\303\304!\210\305H\207" . [cl-x cl-struct-cvs-qtypedesc-tags 0 error "cvs-qtypedesc-obj2str accessing a non-cvs-qtypedesc" 2])(#$ . 8680) nil 2]) (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 #1=(and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) 2] 6] cvs-qtypedesc-hist-sym cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-qtypedesc-hist-sym (or #1# (error "cvs-qtypedesc-hist-sym accessing a non-cvs-qtypedesc")) (aref cl-x 3)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-qtypedesc-hist-sym #[(cl-x) #@148 ("\302H >\204\f0\303\304!\210\305H\207" . [cl-x cl-struct-cvs-qtypedesc-tags 0 error "cvs-qtypedesc-hist-sym accessing a non-cvs-qtypedesc" 3])(#$ . 9509) nil 2]) (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 #1=(and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) 3] 6] cvs-qtypedesc-complete cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-qtypedesc-complete (or #1# (error "cvs-qtypedesc-complete accessing a non-cvs-qtypedesc")) (aref cl-x 4)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-qtypedesc-complete #[(cl-x) #@148 ("\302H >\204\f0\303\304!\210\305H\207" . [cl-x cl-struct-cvs-qtypedesc-tags 0 error "cvs-qtypedesc-complete accessing a non-cvs-qtypedesc" 4])(#$ . 10341) nil 2]) (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 #1=(and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) 4] 6] cvs-qtypedesc-require cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-qtypedesc-require (or #1# (error "cvs-qtypedesc-require accessing a non-cvs-qtypedesc")) (aref cl-x 5)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-qtypedesc-require #[(cl-x) #@147 ("\302H >\204\f0\303\304!\210\305H\207" . [cl-x cl-struct-cvs-qtypedesc-tags 0 error "cvs-qtypedesc-require accessing a non-cvs-qtypedesc" 5])(#$ . 11170) nil 2]) (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 #1=(memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) 5] 6] cvs-qtypedesc-p cl-compiler-macro #[(--cl-whole-arg-- 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) #1# 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])(#$ . 11941) 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-arg-- str2obj obj2str &rest #1=#:--cl-rest--) "\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 "Not documented\n\n(fn --CL-WHOLE-ARG-- &cl-quote STR2OBJ OBJ2STR &optional COMPLETE HIST-SYM REQUIRE)"] byte-compile cl-byte-compile-compiler-macro] 4) #@74 Not documented (fn STR2OBJ OBJ2STR &optional COMPLETE HIST-SYM REQUIRE) (defalias 'cvs-qtypedesc-create #[(str2obj obj2str &rest #1=#:--cl-rest--) "\211A@\211A@\211A@\203 \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] 7 (#$ . 12792)]) (byte-code "\303B\304C\305\306\307\310#\210\305\306\311\312#\210\305\306\313\314#\210\305\306\315\316#\210\305\317\320\316#\210\305\321\320\322#\210\305\323\320\316#\210\305\324\320\316#\210\305\325\320\316#\210\305\326\320\316#\210\305\327\320\316#\210\330\nB\331\332\304\333\211\314\316\314&!\210\334\nB\335\332\304\333\211\314\211\211&!\210\336\nB\337\332\304\340\341\314\211\211&!\207" [custom-print-functions cl-struct-cvs-qtypedesc-tags current-load-list #[(cl-x cl-s cl-n) "\303!\205\230G\304Y\205\230\305H >\205\230\306\307\n\"\210\306\310\n\"\210\311\305H >\204,\312\313!\210\314H\n\"\210\306\315\n\"\210\311\305H >\204D\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 >\204t\312\324!\210\325H\n\"\210\306\326\n\"\210\311\305H >\204\214\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] 3] 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 cvs-qtypedesc-string1 (lambda (#1=#:defconst-tmp-var) (defconst cvs-qtypedesc-string1 #1#)) vector identity cvs-qtypedesc-string (lambda (#2=#:defconst-tmp-var) (defconst cvs-qtypedesc-string #2#)) cvs-qtypedesc-strings (lambda (#3=#:defconst-tmp-var) (defconst cvs-qtypedesc-strings #3#)) cvs-string->strings cvs-strings->string] 8) (defalias 'cvs-query-read #[(default prompt qtypedesc &optional hist-sym) #@752 ("\2060 \n\2060\306H >\2040\307\310!\210\311H\306H >\204&0\307\312!\210\313H\314\f!\20520\f \306H >\204?0\307\315!\210\316H!\306H >\204S0\307\317!\210\320H\f\204d0\321\n#\202\2100\314\f!\203\2060\322 \323\306H >\204{0\307\324!\210\325H\n&\202\2100!-\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])(#$ . 15291) nil 8]) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\207" [put cvs-flags-defaults cl-compiler-macro #[(--cl-whole-arg-- 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")) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-flags-defaults #[(cl-x) #@136 ("\302H >\204\f0\303\304!\210\305H\207" . [cl-x cl-struct-cvs-flags-tags 0 error "cvs-flags-defaults accessing a non-cvs-flags" 1])(#$ . 16530) nil 2]) (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 #1=(and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) 1] 6] cvs-flags-persist cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-flags-persist (or #1# (error "cvs-flags-persist accessing a non-cvs-flags")) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-flags-persist #[(cl-x) #@135 ("\302H >\204\f0\303\304!\210\305H\207" . [cl-x cl-struct-cvs-flags-tags 0 error "cvs-flags-persist accessing a non-cvs-flags" 2])(#$ . 17311) nil 2]) (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 #1=(and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) 2] 6] cvs-flags-desc cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-flags-desc (or #1# (error "cvs-flags-desc accessing a non-cvs-flags")) (aref cl-x 3)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-flags-desc #[(cl-x) #@132 ("\302H >\204\f0\303\304!\210\305H\207" . [cl-x cl-struct-cvs-flags-tags 0 error "cvs-flags-desc accessing a non-cvs-flags" 3])(#$ . 18077) nil 2]) (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 #1=(and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) 3] 6] cvs-flags-qtypedesc cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-flags-qtypedesc (or #1# (error "cvs-flags-qtypedesc accessing a non-cvs-flags")) (aref cl-x 4)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-flags-qtypedesc #[(cl-x) #@137 ("\302H >\204\f0\303\304!\210\305H\207" . [cl-x cl-struct-cvs-flags-tags 0 error "cvs-flags-qtypedesc accessing a non-cvs-flags" 4])(#$ . 18854) nil 2]) (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 #1=(and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) 4] 6] cvs-flags-hist-sym cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-flags-hist-sym (or #1# (error "cvs-flags-hist-sym accessing a non-cvs-flags")) (aref cl-x 5)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-flags-hist-sym #[(cl-x) #@136 ("\302H >\204\f0\303\304!\210\305H\207" . [cl-x cl-struct-cvs-flags-tags 0 error "cvs-flags-hist-sym accessing a non-cvs-flags" 5])(#$ . 19642) nil 2]) (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 #1=(memq (aref cl-x 0) cl-struct-cvs-flags-tags)) 5] 6] cvs-flags-p cl-compiler-macro #[(--cl-whole-arg-- 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) #1# 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])(#$ . 20376) nil 2]) (defalias 'copy-cvs-flags #[(x) #@36 ("\301!\207" . [x copy-sequence])(#$ . 20537) 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-arg-- desc defaults &rest #1=#:--cl-rest--) "\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 "Not documented\n\n(fn --CL-WHOLE-ARG-- &cl-quote DESC DEFAULTS &optional QTYPEDESC HIST-SYM)"] byte-compile cl-byte-compile-compiler-macro] 4) #@65 Not documented (fn DESC DEFAULTS &optional QTYPEDESC HIST-SYM) (defalias '-cvs-flags-make #[(desc defaults &rest #1=#:--cl-rest--) "\211A@\211A@\203\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] 7 (#$ . 21252)]) (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\230G\304Y\205\230\305H >\205\230\306\307\n\"\210\306\310\n\"\210\311\305H >\204,\312\313!\210\314H\n\"\210\306\315\n\"\210\311\305H >\204D\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 >\204t\312\324!\210\325H\n\"\210\306\326\n\"\210\311\305H >\204\214\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] 3] 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)])(#$ . 23194) nil 16])) #@514 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) #@972 ("J\n\2060 \306H >\2040\307\310!\210 \311H \306H >\204#0\307\312!\210 \313H \306H >\20430\307\314!\210 \315H\316=\203B0\306\202M0\206M0\206M0\306\317! \306H >\204a0\307\320!\210 \321H\306W\205s0\322\323[\":\203\2140\313V\203\2060\324\202\2070\325\306\326!GW\204\2370\307\327\326!\"\210\203\3530\322\330\n#_\331[ \306H >\204\2740\307\320!\210 \321H8_\f $ \325\232\204\3450[ \306H >\204\3350\307\320!\210 \321H\233 \240\210 *\202\36008.\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])(#$ . 24059) nil 5 (#$ . 23485)]) #@38 Set SYM's INDEX'th setting to VALUE. (defalias 'cvs-flags-set #[(sym index value) #@159 (" J\304H\n>\2040\305\306!\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])(#$ . 25158) nil 3 (#$ . 25069)]) (byte-code "\301\302\303\304#\210\305B\306\307!\207" [current-load-list put cvs-flags-set byte-optimizer byte-compile-inline-expand cvs-prefix-number (lambda (#1=#:defconst-tmp-var) (defconst cvs-prefix-number #1#)) 10] 4) (defalias 'cvs-prefix-sym #[(sym) #@60 ("\301\302!\303P!\207" . [sym intern symbol-name "-cps"])(#$ . 25614) 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) #@427 ("\306\307!\310P!)\311\312\313\n\2060\314\315PF\312 \316\303 DC\317\320\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." 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])(#$ . 25866) 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])(#$ . 26362) 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) #@958 ("\305\306!\307P!)J\n\250\2030\n\2020\310\311\n!\312V\20350 \310H\f>\204+0\313\314!\210 \315\316I\210\317 \320\"\n\204d0 \310H\f>\204F0\313\314!\210 \315\321I\210J?\205\3320 \310H\f>\204]0\313\322!\210 \323H@\202\3320\n:\204o0 \310W\203\3110 [ \310H\f>\204}0\313\322!\210 \323H\233\324 [ \310H\f>\204\2200\313\322!\210 \323H8\325\326 \310H\f>\204\2420\313\327!\210 \330H\" \310H\f>\204\2620\313\331!\210 \332H \310H\f>\204\3010\313\333!\210 \334H$\240\202\3320 \310H\f>\204\3260\313\322!\210 \323H8L\210\335 *\207" . [sym prefix arg numarg cl-struct-cvs-flags-tags intern symbol-name "-cps" 0 prefix-numeric-value 9 error "cvs-flags-persist storing a non-cvs-flags" 2 t mod 10 nil "cvs-flags-defaults accessing a non-cvs-flags" 1 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])(#$ . 27019) nil 8 (#$ . 26516)]) #@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) #@263 ("J \204,0\304\305!\306P!)J\211\307H >\2040\310\311!\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])(#$ . 28162) nil 5 (#$ . 28015)]) (provide 'pcvs-util)