Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
vc /
[ HOME SHELL ]
Name
Size
Permission
Action
add-log.elc
37.32
KB
-rw-r--r--
compare-w.elc
11.43
KB
-rw-r--r--
cvs-status.elc
20.93
KB
-rw-r--r--
diff-mode.elc
79.3
KB
-rw-r--r--
diff.elc
8.12
KB
-rw-r--r--
ediff-diff.elc
35.59
KB
-rw-r--r--
ediff-help.elc
11.75
KB
-rw-r--r--
ediff-hook.elc
6.46
KB
-rw-r--r--
ediff-init.elc
61.37
KB
-rw-r--r--
ediff-merg.elc
9.59
KB
-rw-r--r--
ediff-mult.elc
62.71
KB
-rw-r--r--
ediff-ptch.elc
20.25
KB
-rw-r--r--
ediff-util.elc
119.86
KB
-rw-r--r--
ediff-vers.elc
5.25
KB
-rw-r--r--
ediff-wind.elc
28.56
KB
-rw-r--r--
ediff.elc
41.19
KB
-rw-r--r--
emerge.elc
78.92
KB
-rw-r--r--
log-edit.elc
36.48
KB
-rw-r--r--
log-view.elc
18.74
KB
-rw-r--r--
pcvs-defs.elc
15.37
KB
-rw-r--r--
pcvs-info.elc
22.11
KB
-rw-r--r--
pcvs-parse.elc
14.9
KB
-rw-r--r--
pcvs-util.elc
21.53
KB
-rw-r--r--
pcvs.elc
85.67
KB
-rw-r--r--
smerge-mode.elc
39.76
KB
-rw-r--r--
vc-annotate.elc
26.25
KB
-rw-r--r--
vc-bzr.elc
41.48
KB
-rw-r--r--
vc-cvs.elc
36.24
KB
-rw-r--r--
vc-dav.elc
4.49
KB
-rw-r--r--
vc-dir.elc
43.58
KB
-rw-r--r--
vc-dispatcher.elc
17.4
KB
-rw-r--r--
vc-filewise.elc
1.91
KB
-rw-r--r--
vc-git.elc
74.65
KB
-rw-r--r--
vc-hg.elc
58.67
KB
-rw-r--r--
vc-hooks.elc
30.18
KB
-rw-r--r--
vc-mtn.elc
14.04
KB
-rw-r--r--
vc-rcs.elc
34.65
KB
-rw-r--r--
vc-sccs.elc
14.63
KB
-rw-r--r--
vc-src.elc
7.25
KB
-rw-r--r--
vc-svn.elc
23.45
KB
-rw-r--r--
vc.elc
75.95
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : pcvs-util.elc
;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; 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> \310 ??\205C !\210)\n\205] \306\n!\206T \306\n\316\"\211\205\\ \317 !))\207" [buf win mainbuf mainwin window-buffer selected-window get-buffer-window t window-dedicated-p (error) delete-window iconify-frame window-frame bury-buffer visible select-window] 4 (#$ . 2485) (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) "\305!\204 \203 \306!\202 \307!\206Q \204G \3102D \311 \312\211\205B @r\nq\210\f\232\2039 \313\310\n\"\210) A\211\204' \312*0\206Q r\314!q\210p)\207" [name noreuse buf --dolist-tail-- list-buffers-directory file-name-absolute-p generate-new-buffer get-buffer-create --cl-block-nil-- buffer-list nil throw create-file-buffer] 4 (#$ . 3088)]) #@106 Insert a list of STRINGS into the current buffer. Uses columns to keep the listing readable but compact. (defalias 'cvs-insert-strings #[(strings) ":\205_ \306\307\310\301\"\"\311 S\312\n\312 \\\245]\313G\312\245]^\n \245\211 \314 \211 \205] @n\204O \315c\210\n\fG]i\\W\203O \316\317!\210\320c\210c\210A\211\2040 \314.\207" [strings length wwidth columns colwidth tab-width apply max mapcar window-width 2 1 nil " " delete-char -2 "\n" str --dolist-tail--] 6 (#$ . 3912)]) #@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) "\3041: \305\306!rq\210\307\216 \203$ \310\311\n\312\313\312 <\205 &\210\202( \314\n!\210eb\210` \2035 \315 \2026 d{+0\207\210\312\207" [#1=#:temp-buffer args file oneline (file-error) generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] apply call-process nil t insert-file-contents line-end-position] 7 (#$ . 4416)]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias cvs-string-prefix-p string-prefix-p nil make-obsolete "24.3"] 4) (defalias 'cvs-expand-dir-name #[(d) "\301\302!!\207" [d file-name-as-directory expand-file-name] 3]) (put 'cvs-expand-dir-name 'byte-optimizer 'byte-compile-inline-expand) #@48 compiler-macro for inlining `cvs-qtypedesc-p'. (defalias 'cvs-qtypedesc-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-qtypedesc-p (and (memq (type-of cl-x) cl-struct-cvs-qtypedesc-tags) t)) nil] 7 (#$ . 5395)]) (put 'cvs-qtypedesc-p 'compiler-macro 'cvs-qtypedesc-p--cmacro) (defalias 'cvs-qtypedesc-p #[(cl-x) "\302! >\205 \303\207" [cl-x cl-struct-cvs-qtypedesc-tags type-of t] 2]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put cvs-qtypedesc-p side-effect-free error-free put cvs-qtypedesc cl-deftype-satisfies] 5) #@54 compiler-macro for inlining `cvs-qtypedesc-str2obj'. (defalias 'cvs-qtypedesc-str2obj--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-qtypedesc-str2obj (progn (or (cvs-qtypedesc-p cl-x) (signal 'wrong-type-argument (list 'cvs-qtypedesc cl-x))) (aref cl-x 1))) nil] 7 (#$ . 6008)]) (put 'cvs-qtypedesc-str2obj 'compiler-macro 'cvs-qtypedesc-str2obj--cmacro) #@55 Access slot "str2obj" of `cvs-qtypedesc' struct CL-X. (defalias 'cvs-qtypedesc-str2obj #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-qtypedesc-tags type-of signal wrong-type-argument cvs-qtypedesc 1] 4 (#$ . 6435)]) (byte-code "\300\301\302\303#\300\207" [function-put cvs-qtypedesc-str2obj side-effect-free t] 4) #@54 compiler-macro for inlining `cvs-qtypedesc-obj2str'. (defalias 'cvs-qtypedesc-obj2str--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-qtypedesc-obj2str (progn (or (cvs-qtypedesc-p cl-x) (signal 'wrong-type-argument (list 'cvs-qtypedesc cl-x))) (aref cl-x 2))) nil] 7 (#$ . 6785)]) (put 'cvs-qtypedesc-obj2str 'compiler-macro 'cvs-qtypedesc-obj2str--cmacro) #@55 Access slot "obj2str" of `cvs-qtypedesc' struct CL-X. (defalias 'cvs-qtypedesc-obj2str #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-qtypedesc-tags type-of signal wrong-type-argument cvs-qtypedesc 2] 4 (#$ . 7212)]) (byte-code "\300\301\302\303#\300\207" [function-put cvs-qtypedesc-obj2str side-effect-free t] 4) #@55 compiler-macro for inlining `cvs-qtypedesc-hist-sym'. (defalias 'cvs-qtypedesc-hist-sym--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-qtypedesc-hist-sym (progn (or (cvs-qtypedesc-p cl-x) (signal 'wrong-type-argument (list 'cvs-qtypedesc cl-x))) (aref cl-x 3))) nil] 7 (#$ . 7562)]) (put 'cvs-qtypedesc-hist-sym 'compiler-macro 'cvs-qtypedesc-hist-sym--cmacro) #@56 Access slot "hist-sym" of `cvs-qtypedesc' struct CL-X. (defalias 'cvs-qtypedesc-hist-sym #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-qtypedesc-tags type-of signal wrong-type-argument cvs-qtypedesc 3] 4 (#$ . 7994)]) (byte-code "\300\301\302\303#\300\207" [function-put cvs-qtypedesc-hist-sym side-effect-free t] 4) #@55 compiler-macro for inlining `cvs-qtypedesc-complete'. (defalias 'cvs-qtypedesc-complete--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-qtypedesc-complete (progn (or (cvs-qtypedesc-p cl-x) (signal 'wrong-type-argument (list 'cvs-qtypedesc cl-x))) (aref cl-x 4))) nil] 7 (#$ . 8347)]) (put 'cvs-qtypedesc-complete 'compiler-macro 'cvs-qtypedesc-complete--cmacro) #@56 Access slot "complete" of `cvs-qtypedesc' struct CL-X. (defalias 'cvs-qtypedesc-complete #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-qtypedesc-tags type-of signal wrong-type-argument cvs-qtypedesc 4] 4 (#$ . 8779)]) (byte-code "\300\301\302\303#\300\207" [function-put cvs-qtypedesc-complete side-effect-free t] 4) #@54 compiler-macro for inlining `cvs-qtypedesc-require'. (defalias 'cvs-qtypedesc-require--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-qtypedesc-require (progn (or (cvs-qtypedesc-p cl-x) (signal 'wrong-type-argument (list 'cvs-qtypedesc cl-x))) (aref cl-x 5))) nil] 7 (#$ . 9132)]) (put 'cvs-qtypedesc-require 'compiler-macro 'cvs-qtypedesc-require--cmacro) #@55 Access slot "require" of `cvs-qtypedesc' struct CL-X. (defalias 'cvs-qtypedesc-require #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-qtypedesc-tags type-of signal wrong-type-argument cvs-qtypedesc 5] 4 (#$ . 9559)]) (byte-code "\300\301\302\303#\300\207" [function-put cvs-qtypedesc-require side-effect-free t] 4) #@53 compiler-macro for inlining `cvs-qtypedesc-create'. (defalias 'cvs-qtypedesc-create--cmacro #[(_cl-whole-arg str2obj obj2str &optional complete hist-sym require) "\305\306\307\310\211\211 \n \f&\n\207" [str2obj obj2str complete hist-sym require cl--defsubst-expand (str2obj obj2str complete hist-sym require) (cl-block cvs-qtypedesc-create (record 'cvs-qtypedesc str2obj obj2str hist-sym complete require)) nil] 11 (#$ . 9909)]) (put 'cvs-qtypedesc-create 'compiler-macro 'cvs-qtypedesc-create--cmacro) #@50 Constructor for objects of type `cvs-qtypedesc'. (defalias 'cvs-qtypedesc-create #[(str2obj obj2str &optional complete hist-sym require) "\305\306 \n \f&\207" [str2obj obj2str hist-sym complete require record cvs-qtypedesc] 7 (#$ . 10419)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put cvs-qtypedesc-create side-effect-free t cl-struct-define cvs-qtypedesc nil cl-structure-object record ((cl-tag-slot) (str2obj) (obj2str) (hist-sym) (complete) (require)) cl-struct-cvs-qtypedesc-tags] 11) (defconst cvs-qtypedesc-string1 (byte-code "\300\301\302\211\303\304\303&\207" [record cvs-qtypedesc identity nil t] 7)) (defconst cvs-qtypedesc-string (byte-code "\300\301\302\211\303\211\211&\207" [record cvs-qtypedesc identity nil] 7)) (defconst cvs-qtypedesc-strings (byte-code "\300\301\302\303\304\211\211&\207" [record cvs-qtypedesc split-string-and-unquote combine-and-quote-strings nil] 7)) (defalias 'cvs-query-read #[(default prompt qtypedesc &optional hist-sym) "\206 \n\206 \306! >\204 \307\310\311D\"\210\312H\306! >\204, \307\310\311D\"\210\313H \314\f!\2058 \f \306! >\204H \307\310\311D\"\210\315H! \306! >\204_ \307\310\311D\"\210\316H\f\204p \317\n#\202\227 \314\f!\203\225 \320 \321\306! >\204\212 \307\310\311D\"\210\322H\n&\202\227 !-\207" [qtypedesc cvs-qtypedesc-strings hist-sym cl-struct-cvs-qtypedesc-tags complete completions type-of signal wrong-type-argument cvs-qtypedesc 3 4 functionp 2 1 read-string completing-read nil 5 default initval prompt] 9]) #@44 compiler-macro for inlining `cvs-flags-p'. (defalias 'cvs-flags-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-flags-p (and (memq (type-of cl-x) cl-struct-cvs-flags-tags) t)) nil] 7 (#$ . 11986)]) (put 'cvs-flags-p 'compiler-macro 'cvs-flags-p--cmacro) (defalias 'cvs-flags-p #[(cl-x) "\302! >\205 \303\207" [cl-x cl-struct-cvs-flags-tags type-of t] 2]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put cvs-flags-p side-effect-free error-free put cvs-flags cl-deftype-satisfies] 5) #@51 compiler-macro for inlining `cvs-flags-defaults'. (defalias 'cvs-flags-defaults--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-flags-defaults (progn (or (cvs-flags-p cl-x) (signal 'wrong-type-argument (list 'cvs-flags cl-x))) (aref cl-x 1))) nil] 7 (#$ . 12560)]) (put 'cvs-flags-defaults 'compiler-macro 'cvs-flags-defaults--cmacro) #@52 Access slot "defaults" of `cvs-flags' struct CL-X. (defalias 'cvs-flags-defaults #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-flags-tags type-of signal wrong-type-argument cvs-flags 1] 4 (#$ . 12965)]) (byte-code "\300\301\302\303#\300\207" [function-put cvs-flags-defaults side-effect-free t] 4) #@50 compiler-macro for inlining `cvs-flags-persist'. (defalias 'cvs-flags-persist--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-flags-persist (progn (or (cvs-flags-p cl-x) (signal 'wrong-type-argument (list 'cvs-flags cl-x))) (aref cl-x 2))) nil] 7 (#$ . 13299)]) (put 'cvs-flags-persist 'compiler-macro 'cvs-flags-persist--cmacro) #@51 Access slot "persist" of `cvs-flags' struct CL-X. (defalias 'cvs-flags-persist #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-flags-tags type-of signal wrong-type-argument cvs-flags 2] 4 (#$ . 13699)]) (byte-code "\300\301\302\303#\300\207" [function-put cvs-flags-persist side-effect-free t] 4) #@47 compiler-macro for inlining `cvs-flags-desc'. (defalias 'cvs-flags-desc--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-flags-desc (progn (or (cvs-flags-p cl-x) (signal 'wrong-type-argument (list 'cvs-flags cl-x))) (aref cl-x 3))) nil] 7 (#$ . 14030)]) (put 'cvs-flags-desc 'compiler-macro 'cvs-flags-desc--cmacro) #@48 Access slot "desc" of `cvs-flags' struct CL-X. (defalias 'cvs-flags-desc #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-flags-tags type-of signal wrong-type-argument cvs-flags 3] 4 (#$ . 14415)]) (byte-code "\300\301\302\303#\300\207" [function-put cvs-flags-desc side-effect-free t] 4) #@52 compiler-macro for inlining `cvs-flags-qtypedesc'. (defalias 'cvs-flags-qtypedesc--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-flags-qtypedesc (progn (or (cvs-flags-p cl-x) (signal 'wrong-type-argument (list 'cvs-flags cl-x))) (aref cl-x 4))) nil] 7 (#$ . 14737)]) (put 'cvs-flags-qtypedesc 'compiler-macro 'cvs-flags-qtypedesc--cmacro) #@53 Access slot "qtypedesc" of `cvs-flags' struct CL-X. (defalias 'cvs-flags-qtypedesc #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-flags-tags type-of signal wrong-type-argument cvs-flags 4] 4 (#$ . 15147)]) (byte-code "\300\301\302\303#\300\207" [function-put cvs-flags-qtypedesc side-effect-free t] 4) #@51 compiler-macro for inlining `cvs-flags-hist-sym'. (defalias 'cvs-flags-hist-sym--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-flags-hist-sym (progn (or (cvs-flags-p cl-x) (signal 'wrong-type-argument (list 'cvs-flags cl-x))) (aref cl-x 5))) nil] 7 (#$ . 15484)]) (put 'cvs-flags-hist-sym 'compiler-macro 'cvs-flags-hist-sym--cmacro) #@52 Access slot "hist-sym" of `cvs-flags' struct CL-X. (defalias 'cvs-flags-hist-sym #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-flags-tags type-of signal wrong-type-argument cvs-flags 5] 4 (#$ . 15889)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put cvs-flags-hist-sym side-effect-free t defalias copy-cvs-flags copy-sequence] 4) #@48 compiler-macro for inlining `-cvs-flags-make'. (defalias '-cvs-flags-make--cmacro #[(_cl-whole-arg desc defaults &optional qtypedesc hist-sym) "\304\305\306\307\211\211 \n & \207" [desc defaults qtypedesc hist-sym cl--defsubst-expand (desc defaults qtypedesc hist-sym) (cl-block -cvs-flags-make (record 'cvs-flags defaults nil desc qtypedesc hist-sym)) nil] 10 (#$ . 16271)]) (put '-cvs-flags-make 'compiler-macro '-cvs-flags-make--cmacro) #@46 Constructor for objects of type `cvs-flags'. (defalias '-cvs-flags-make #[(desc defaults &optional qtypedesc hist-sym) "\304\305\306 \n &\207" [defaults desc qtypedesc hist-sym record cvs-flags nil] 7 (#$ . 16718)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put -cvs-flags-make side-effect-free t cl-struct-define cvs-flags nil cl-structure-object record ((cl-tag-slot) (defaults) (persist) (desc) (qtypedesc) (hist-sym)) cl-struct-cvs-flags-tags] 11) (defalias 'cvs-flags-define '(macro . #[(sym defaults &optional desc qtypedesc hist-sym docstring) "\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)] 16])) #@515 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) "J\n\206 \306 ! >\204 \307\310\311 D\"\210 \312H\306 ! >\204) \307\310\311 D\"\210 \313H \306 ! >\204< \307\310\311 D\"\210 \314H \315=\203K \316\202V \206V \206V \316 \317! \306 ! >\204m \307\310\311 D\"\210 \320H \316W\205 \321\322 [\" :\203\230 \313V\203\222 \323\202\223 \324 \316 \325 ! GW\204\253 \326\327\325 !\"\210 \203\321\330\n # \331 [\306 ! >\204\313 \307\310\311 D\"\210 \320H8 \f $ \324\232\204\373 [\306 ! >\204\357 \307\310\311 D\"\210 \320H\233\211 ! \240\210) *\202 8.\207" [sym flags desc cl-struct-cvs-flags-tags qtypedesc hist-sym type-of signal wrong-type-argument cvs-flags 3 4 5 noquery 0 prefix-numeric-value 1 format " (%sth default)" " (permanent)" "" abs error "There is no %sth default" "%s%s: " cvs-query-read arg current-prefix-arg numarg defaults permstr prompt fs #1=#:c] 7 (#$ . 17587)]) #@37 Set SYM's INDEXth setting to VALUE. (defalias 'cvs-flags-set #[(sym index value) "\305 J!\n>\204 \306\307\310 JD\"\210 J\311H\233\211\f\240)\207" [index sym cl-struct-cvs-flags-tags #1=#:c value type-of signal wrong-type-argument cvs-flags 1] 6 (#$ . 19034)]) (put 'cvs-flags-set 'byte-optimizer 'byte-compile-inline-expand) (defconst cvs-prefix-number 10) (defalias 'cvs-prefix-sym #[(sym) "\301\302!\303P!\207" [sym intern symbol-name "-cps"] 3]) (put 'cvs-prefix-sym 'byte-optimizer 'byte-compile-inline-expand) (defalias 'cvs-prefix-define '(macro . #[(sym docstring desc defaults &optional qtypedesc hist-sym) "\306\307!\310P!)\311\312\313\n\206 \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] 12])) (defalias 'cvs-prefix-make-local #[(sym) "\302\303!\304P!)\305!\210\305 !\306 J!L)\207" [sym cps intern symbol-name "-cps" make-local-variable copy-cvs-flags] 3]) #@458 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 -ARGth 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) "\306\307!\310P!)J\n\250\203 \n\202 \311\312\n!\313V\203; \314 !\f>\204. \315\316\317 D\"\210 \211 \320\321I\210)\322 \323\"\n\204t \314 !\f>\204O \315\316\317 D\"\210 \211 \320\324I\210)J?\205 \314 !\f>\204m \315\316\317 D\"\210 \325H@\202 \n:\204 \311W\203\354 [\314 !\f>\204\220 \315\316\317 D\"\210 \325H\233\211 \326 [\314 !\f>\204\251 \315\316\317 D\"\210 \325H8\327\330\314 !\f>\204\276 \315\316\317 D\"\210 \331H\"\314 !\f>\204\321 \315\316\317 D\"\210 \332H\314 !\f>\204\343 \315\316\317 D\"\210 \333H$\240)\202 \314 !\f>\204\374 \315\316\317 D\"\210 \325H8L\210\334 *\207" [sym prefix arg numarg cl-struct-cvs-flags-tags #1=#:v intern symbol-name "-cps" 0 prefix-numeric-value 9 type-of signal wrong-type-argument cvs-flags 2 t mod 10 nil 1 cvs-query-read format "%s: " 3 4 5 force-mode-line-update #2=#:v #3=#:c] 11 (#$ . 20255)]) #@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) "J \204/ \304\305!\306P!)J\307\n! >\204! \310\311\312\nD\"\210\n\313H)\204/ \314L\210\315 \210\207" [sym read-only cl-x cl-struct-cvs-flags-tags intern symbol-name "-cps" type-of signal wrong-type-argument cvs-flags 2 nil force-mode-line-update] 5 (#$ . 21617)]) (provide 'pcvs-util)
Close
