Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
vc /
Delete
Unzip
Name
Size
Permission
Date
Action
add-log.elc
35.97
KB
-rw-r--r--
2023-06-07 04:15
compare-w.elc
9.89
KB
-rw-r--r--
2023-06-07 04:15
cvs-status.elc
21.51
KB
-rw-r--r--
2023-06-07 04:15
diff-mode.elc
63.77
KB
-rw-r--r--
2023-06-07 04:15
diff.elc
5.9
KB
-rw-r--r--
2023-06-07 04:15
ediff-diff.elc
35.48
KB
-rw-r--r--
2023-06-07 04:15
ediff-help.elc
11.36
KB
-rw-r--r--
2023-06-07 04:15
ediff-hook.elc
6.49
KB
-rw-r--r--
2023-06-07 04:19
ediff-init.elc
58.7
KB
-rw-r--r--
2023-06-07 04:15
ediff-merg.elc
9.68
KB
-rw-r--r--
2023-06-07 04:15
ediff-mult.elc
60.23
KB
-rw-r--r--
2023-06-07 04:15
ediff-ptch.elc
19.55
KB
-rw-r--r--
2023-06-07 04:15
ediff-util.elc
119.83
KB
-rw-r--r--
2023-06-07 04:15
ediff-vers.elc
5
KB
-rw-r--r--
2023-06-07 04:15
ediff-wind.elc
30.84
KB
-rw-r--r--
2023-06-07 04:15
ediff.elc
38.37
KB
-rw-r--r--
2023-06-07 04:15
emerge.elc
76.85
KB
-rw-r--r--
2023-06-07 04:15
log-edit.elc
32.25
KB
-rw-r--r--
2023-06-07 04:15
log-view.elc
18.21
KB
-rw-r--r--
2023-06-07 04:15
pcvs-defs.elc
15.6
KB
-rw-r--r--
2023-06-07 04:15
pcvs-info.elc
23.49
KB
-rw-r--r--
2023-06-07 04:15
pcvs-parse.elc
15.33
KB
-rw-r--r--
2023-06-07 04:15
pcvs-util.elc
24.08
KB
-rw-r--r--
2023-06-07 04:15
pcvs.elc
85.47
KB
-rw-r--r--
2023-06-07 04:15
smerge-mode.elc
37.72
KB
-rw-r--r--
2023-06-07 04:15
vc-annotate.elc
25.01
KB
-rw-r--r--
2023-06-07 04:15
vc-arch.elc
18.12
KB
-rw-r--r--
2023-06-07 04:15
vc-bzr.elc
41.49
KB
-rw-r--r--
2023-06-07 04:15
vc-cvs.elc
33.48
KB
-rw-r--r--
2023-06-07 04:15
vc-dav.elc
5.25
KB
-rw-r--r--
2023-06-07 04:15
vc-dir.elc
40.26
KB
-rw-r--r--
2023-06-07 04:15
vc-dispatcher.elc
16.33
KB
-rw-r--r--
2023-06-07 04:15
vc-git.elc
46.72
KB
-rw-r--r--
2023-06-07 04:15
vc-hg.elc
25.34
KB
-rw-r--r--
2023-06-07 04:15
vc-hooks.elc
31.95
KB
-rw-r--r--
2023-06-07 04:19
vc-mtn.elc
13.72
KB
-rw-r--r--
2023-06-07 04:15
vc-rcs.elc
35.34
KB
-rw-r--r--
2023-06-07 04:15
vc-sccs.elc
15.26
KB
-rw-r--r--
2023-06-07 04:15
vc-svn.elc
21.91
KB
-rw-r--r--
2023-06-07 04:15
vc.elc
68.74
KB
-rw-r--r--
2023-06-07 04:15
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:15:34 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/vc/vc-arch.el ;;; in Emacs version 24.3.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 'vc-arch-revision-granularity #[0 "\300\207" [repository] 1 "\n\n(fn)"]) (defalias 'vc-arch-checkout-model #[257 "\300\207" [implicit] 2 "\n\n(fn FILES)"]) (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317\304\320\306\301& \210\321\322\323\302#\210\324\211\203D \211@\322N\203= \323N\204= \325\323\322N#\210A\266\202\202# \210\326\322\323\320#\210\310\323\312\313\327DD\330\316\331\306\301&\210\325\332\333\302#\207" [custom-declare-group vc-arch nil "VC Arch backend." :version "24.1" :group vc custom-declare-variable vc-arch-diff-switches funcall function #[0 "\300\207" [t] 1 "\n\n(fn)"] "String or list of strings specifying switches for Arch diff under VC.\nIf nil, use the value of `vc-diff-switches'. If t, use no switches." :type (choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value ("") string)) "23.1" defvaralias vc-arch-command vc-arch-program (saved-value saved-variable-comment) put make-obsolete-variable #[0 "\300\211\203 \301@!\204 \211A\262\202 \211@\206 \302\207" [("tla" "baz") executable-find "tla"] 3 "\n\n(fn)"] "Name of the Arch executable." string Arch vc-functions] 10) #@57 Add an `arch-tag' to the end of the current file. (fn) (defalias 'vc-arch-add-tagline #[0 "\301 \210db\210\302\303!\210\304\305w\210n\204 \306c\210\202$ `SSf\307=\204$ \310c\210`\2054 \311\312\313!\314Q\315!\"\316c\210\211\203O \317!\203O \320!\210\321y\210\322!\210\202\\ \323\324\325D\326\324\327\323EDC\217\210\330`\"\207" [buffer-file-name comment-normalize-vars forward-comment -1 " \n" nil "\n\n" 10 "\n" expand-file-name ".arch-ids/" file-name-nondirectory ".id" file-name-directory "arch-tag: " file-exists-p insert-file-contents 1 delete-file #1=#:err funcall #[0 "\300\301\302\303#\207" [call-process "uuidgen" nil t] 4 "\n\n(fn)"] file-error #[257 "\301\302\303 \304\305 8\306 \\$c\207" [user-mail-address format "%s <%s> %s" current-time-string 2 current-time buffer-size] 7 "\n\n(fn IGNORED)"] comment-region] 8 (#$ . 1780) nil]) (defconst vc-arch-tagline-re "^\\W*arch-tag:[ ]*\\(.*[^ \n]\\)") (defalias 'vc-with-current-file-buffer '(macro . #[385 "\300\301\302DD\303\304\305\306\307B\310BBFE\207" [let (-kill-buf- nil) -file- with-current-buffer (or (find-buffer-visiting -file-) (setq -kill-buf- (generate-new-buffer " temp"))) (if -kill-buf- (insert-file-contents -file-)) unwind-protect progn ((if (buffer-live-p -kill-buf-) (kill-buffer -kill-buf-)))] 10 "\n\n(fn FILE &rest BODY)"])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put vc-with-current-file-buffer lisp-indent-function 2 edebug-form-spec t] 4) #@99 Can return nil, `maybe' or a non-nil value. Only the value `maybe' can be trusted :-(. (fn FILE) (defalias 'vc-arch-file-source-p #[257 "\301\302\303!\"?\205\240 \301\304\305\306!\"\"\206\240 \307\310\311\303!\312Q\313!\"!\206\240 \314Cr\315!\2065 \316\317!\240q\210@\203@ \320!\210\321\322\323\324\325\326!\327\"\330\331%DC\216\212db\210\332`\333Z\334#\206i eb\210\335`\333\\\334#+\266\202\206\240 r\336\310\337\306!\"!q\210\334\212eb\210\335\340\314\334#\203\213 \330\225\262\335\341\314\334#\203\227 \330\225\262)\211\205\235 \342\262)\207" [vc-arch-tagline-re string-match "\\`[,+]" file-name-nondirectory "\\`{arch}/" file-relative-name vc-arch-root file-exists-p expand-file-name ".arch-ids/" ".id" file-name-directory nil find-buffer-visiting generate-new-buffer " temp" insert-file-contents funcall make-byte-code 0 "\301\300@!\205 \302\300@!\207" vconcat vector [buffer-live-p kill-buffer] 2 "\n\n(fn)" re-search-backward 1000 t re-search-forward find-file-noselect "{arch}/=tagging-method" "^[ ]*\\(\\(tagline\\|implicit\\|names\\)\\|explicit\\)" "^[ ]*untagged-source[ ]+\\(\\(source\\)\\|precious\\|backup\\|junk\\|unrecognized\\)" maybe] 10 (#$ . 3242)]) (defalias 'vc-arch-file-id #[257 "\301\302\303!\304Q\305!\"\306!\203: \307\310!r\211q\210\311\312\313\314\315\316!\317\"\320\321%DC\216\322!\210\323\324!\210\325\313!*\262\202j r\326!q\210\212db\210\327`\330Z\331#\204[ eb\210\332`\330\\\331#\203a \325\333!\202i \334\335\336!\"P*\207" [vc-arch-tagline-re expand-file-name ".arch-ids/" file-name-nondirectory ".id" file-name-directory file-exists-p generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" insert-file-contents looking-at ".*[^ \n ]" match-string find-file-noselect re-search-backward 1000 t re-search-forward 1 "./" file-relative-name vc-arch-root] 10 "\n\n(fn FILE)"]) (defalias 'vc-arch-tagging-method #[257 "r\300\301\302\303!\"!q\210\212eb\210\304\305\306\307#\203 \310\311\312!!\202 \313*\207" [find-file-noselect expand-file-name "{arch}/=tagging-method" vc-arch-root re-search-forward "^[ ]*\\(tagline\\|implicit\\|names\\|explicit\\)" nil t intern match-string 1 names] 6 "\n\n(fn FILE)"]) #@66 Return the root directory of an Arch project, if any. (fn FILE) (defalias 'vc-arch-root #[257 "\300\301\"\206 \302\303\"\211\205 \304\301#\262\207" [vc-file-getprop arch-root vc-find-root "{arch}/=tagging-method" vc-file-setprop] 6 (#$ . 5502)]) (defalias 'vc-arch-register #[769 "\203 \301\302!\210\211\203< \211@\303!\211\304>\2034 \2034 r\305!q\210\306 \203- \301\307\310 \"\210\311 \210\312 \210)\210A\266\202\202 \210\313\314\315\316$\207" [comment-start error "Explicit initial revision not supported for Arch" vc-arch-tagging-method (tagline implicit) find-file-noselect buffer-modified-p "Save %s first" buffer-name vc-arch-add-tagline save-buffer vc-arch-command nil 0 "add"] 9 "\n\n(fn FILES &optional REV COMMENT)"]) (defalias 'vc-arch-registered #[257 "\300!\205 \301!\207" [vc-arch-root vc-arch-file-source-p] 3 "\n\n(fn FILE)"]) (defalias 'vc-arch-default-version #[257 "\300\301!\302\"\206? \301!\303\304\"\305!\205= \306\302\307\310!r\211q\210\311\312\313\314\315\316!\317\"\320\321%DC\216\322!\210edS{*\262#\266\202\207" [vc-file-getprop vc-arch-root arch-default-version expand-file-name "{arch}/++default-version" file-readable-p vc-file-setprop generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" insert-file-contents] 14 "\n\n(fn FILE)"]) #@81 Stub: arch workfiles are always considered to be in a changed state, (fn FILE) (defalias 'vc-arch-workfile-unchanged-p #[257 "\300\207" [nil] 2 (#$ . 6885)]) (defalias 'vc-arch-state #[257 "\300!\301!\302\303\304\305#P\306\307\306\310\"\"\311\312!\205! \313\314#\211\203< \211@\2032 \315\"\2035 \211\262A\266\202\202! \210\211\204E \316\202\311 \317!\320\321\322#\262r\323!q\210eb\210\324\311\325#\203z \212\326\224\327Zb\210n\206o \330\331!?\206v \330\332!)\204Y m\203\225 \333!\303\304\305\334 !#\232\203\221 \335\202\306 \316\202\306 \336\337\340 \314#\204\242 \316\202\306 \341!\3428\343\344\327!!=\203\303 \345\346\3478\"\344\350!\232\203\303 \351\202\304 \316\262)\262\207" [vc-arch-root vc-arch-default-version "\\`" subst-char-in-string 47 37 expand-file-name ",,inode-sigs/" "{arch}" nil file-directory-p directory-files t file-newer-than-file-p edited vc-arch-file-id replace-regexp-in-string "[ ]" "_" find-file-noselect search-forward move 0 2 looking-at "\n?" "E_" file-name-nondirectory vc-arch-working-revision added re-search-forward " .*mtime=\\([0-9]+\\):size=\\([0-9]+\\)" line-end-position file-attributes 7 string-to-number match-string format-time-string "%s" 5 1 up-to-date] 13 "\n\n(fn FILE)"]) #@151 Run 'tla inventory' for DIR and pass results to CALLBACK. CALLBACK expects (ENTRIES &optional MORE-TO-COME); see `vc-dir-refresh'. (fn DIR CALLBACK) (defalias 'vc-arch-dir-status #[514 "\301\302\303\304\305$\210)\306\307\310DD!\207" [default-directory vc-arch-command t async nil "changes" vc-exec-after vc-arch-after-dir-status quote] 7 (#$ . 8140)]) (defalias 'vc-arch-after-dir-status #[257 "\300\301\302\303\"\304\"\305\306Q\307eb\210\310\307\304#\203. \311\312!\313\"A\311\314!\211DB\266\204\202 \307\"\207" [(("M " . edited) ("Mb" . edited) ("D " . removed) ("D/" . removed) ("A " . added) ("A/" . added) ("=>" . renamed) ("/>" . renamed) ("lf" . symlink-to-file) ("fl" . file-to-symlink) ("--" . permissions-changed) ("-/" . permissions-changed)) regexp-opt mapcar car t "^" " \\(.*\\)$" nil re-search-forward match-string 1 assoc 2] 10 "\n\n(fn CALLBACK)"]) (defalias 'vc-arch-working-revision #[257 "\300\301\302!\"\303!\211\205\256 \304\305\"\205\256 \306\307\"\306\310\"\306\311\"\306\312\"\313\314\313\211\211\300\f\"\262\300\"\262\300\"\262\300 \"\262\300\315\"\262\316!\205U \317!\211\203\242 \211@\211\314H\320=\203n \204n \321\262\314\262\304\322\"\203\233 \323\306\307\"!\211\262\203\233 \203\216 \211\314H\320=\203\233 Y\203\233 \262\211\262A\266\202\202U \210 \324\206\253 \325Q\266\211\207" [expand-file-name "{arch}" vc-arch-root vc-arch-default-version string-match "\\`\\(.+@[^/\n]+\\)/\\(\\(\\(.*?\\)\\(?:--.*\\)?\\)--.*\\)\\'" match-string 1 4 3 2 nil 0 "patch-log" file-directory-p directory-files 118 t "-\\([0-9]+\\)\\'" string-to-number "--" "none-000"] 18 "\n\n(fn FILE)"]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable vc-arch-mode-line-rewrite funcall function #[0 "\300\207" [(("\\`.*--\\(.*--.*\\)--\\(v?\\).*-\\([0-9]+\\)\\'" . "\\2\\3[\\1]"))] 1 "\n\n(fn)"] "Rewrite rules to shorten Arch's revision names on the mode-line." :type (repeat (cons regexp string)) :group vc-arch] 8) #@81 Return a string for `vc-mode-line' to put in the mode line for FILE. (fn FILE) (defalias 'vc-arch-mode-line-string #[257 "\301!\211\203# \211@\302@\"\203 \303A\304\305$\262A\266\202\202 \210\306\307\310!\211\311>\2033 \312\202> \211\313=\203= \314\202> \315\262#\207" [vc-arch-mode-line-rewrite vc-working-revision string-match replace-match t nil format "Arch%c%s" vc-state (up-to-date needs-update) 45 added 64 58] 9 (#$ . 10162)]) (defalias 'vc-arch-diff3-rej-p #[257 "\300!\211\2054 \3018\302W\2054 \303\304!r\211q\210\305\306\307\310\311\312!\313\"\314\315%DC\216\316!\210eb\210\317\320!*\262\207" [file-attributes 7 60 generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" insert-file-contents looking-at "Conflicts occurred, diff3 conflict markers left in file\\."] 10 "\n\n(fn REJ)"]) #@37 For use in `after-save-hook'. (fn) (defalias 'vc-arch-delete-rej-if-obsolete #[0 "\212\301P\2055 \302!\2055 \303\304\305\306#?\2055 \307\310\311\312\313\314\315!\316\"\317\320%D\321\310\322\307EDC\217\210\323\324\325\306#\262)\207" [buffer-file-name ".rej" vc-arch-diff3-rej-p re-search-forward "^<<<<<<< " nil t #1=#:err funcall make-byte-code 0 "\301\300!\207" vconcat vector [delete-file] 2 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] remove-hook after-save-hook vc-arch-delete-rej-if-obsolete] 9 (#$ . 11068)]) (defalias 'vc-arch-find-file-hook #[0 "\301P\205R \302!\205R \303!\203L \212eb\210\304\305\306\307#\204: \310\311\312\313\314\315\316!\317\"\320\321%D\322\311\323\310EDC\217\202H \324\325!\210\326\327\330\306\307$\210\331\332!)\202R \331\333\334!\"\207" [buffer-file-name ".rej" file-exists-p vc-arch-diff3-rej-p re-search-forward "^<<<<<<< " nil t #1=#:err funcall make-byte-code 0 "\301\300!\207" vconcat vector [delete-file] 2 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] smerge-mode 1 add-hook after-save-hook vc-arch-delete-rej-if-obsolete message "There are unresolved conflicts in this file" "There are unresolved conflicts in %s" file-name-nondirectory] 9 "\n\n(fn)"]) (defalias 'vc-arch-checkin #[771 "\203 \300\301!\210\302@\303@!\"\304\305\"\204 \304\306\"\203+ \307\310\"\262\311\225\312O\262\313\312\311\314\315\316 \317\320\321\322\"&\n\207" [error "Committing to a specific revision is unsupported" file-relative-name vc-arch-root string-match "\\`Summary:[ ]*\\(.*[^ \n]\\)\\([ ]*\n\\)*" "\\`[ ]*\\(.*[^ \n]\\)[ ]*\\(\n?\\'\\|\n\\([ ]*\n\\)+\\)" match-string 1 0 nil vc-arch-command "commit" "-s" "-L" "--" vc-switches Arch checkin] 17 "\n\n(fn FILES REV COMMENT)"]) #@112 Get a difference report using Arch between two versions of FILES. (fn FILES &optional OLDVERS NEWVERS BUFFER) (defalias 'vc-arch-diff #[1025 "@\203 \211\304!)\305=\203 \306!\232\203 \307\262\203& \310\311!\202b \307\n?\312!\313\2064 \314\203< \315\202= \316\307\317\320\321\322\"\323! \306\n!\232?\205T &\203^ \316\202_ \211*\266\202\207" [file process-file-side-effects vc-disable-async-diff default-directory vc-state up-to-date vc-working-revision nil error "Diffing specific revisions not implemented" vc-arch-root vc-arch-command "*vc-diff*" async 1 "file-diffs" vc-switches Arch diff file-relative-name] 16 (#$ . 12845)]) (defalias 'vc-arch-delete-file #[257 "\300\301\302\303$\207" [vc-arch-command nil 0 "rm"] 6 "\n\n(fn FILE)"]) (defalias 'vc-arch-rename-file #[514 "\300\301\302\303\304!%\207" [vc-arch-command nil 0 "mv" file-relative-name] 9 "\n\n(fn OLD NEW)"]) (defalias 'vc-arch-responsible-p 'vc-arch-root) #@96 A wrapper around `vc-do-command' for use in vc-arch.el. (fn BUFFER OKSTATUS FILE &rest FLAGS) (defalias 'vc-arch-command #[899 "\301\302\206 \303&\207" [vc-arch-program apply vc-do-command "*vc*"] 11 (#$ . 13803)]) (defalias 'vc-arch-init-revision #[0 "\300\207" [nil] 1 "\n\n(fn)"]) (defalias 'vc-arch--version-completion-table #[514 "\301\302\303\304\305\306\307\310\"\203! \311\225\302O\312\311\211\224OQ\202% \312P\313Q!)\"\"\207" [default-directory delq nil mapcar #[257 "\300\301\"\205 \302\303\"\304\302\305\"Q\207" [string-match "/\\([^/]+\\)/\\([^/]+\\)\\'" match-string 2 "/" 1] 6 "\n\n(fn D)"] file-expand-wildcards "*/*/" string-match "/" 0 "*/" "*"] 13 "\n\n(fn ROOT STRING)"]) (defalias 'vc-arch-revision-completion-table #[257 "\300\301\302\303\304!\305\"\306\307%\207" [make-byte-code 771 "\301\302\303\300@!\"\304\"\305$\207" vconcat vector [expand-file-name "{arch}" vc-arch-root vc-arch--version-completion-table complete-with-action] 10 "\n\n(fn STRING PRED ACTION)"] 7 "\n\n(fn FILES)"]) (defalias 'vc-arch-trim-find-least-useful-rev #[257 "\211A\262@C\211A\262@C\211A\262@C\300\301!@\206 @@\\\302@$\203k @\240\210@\240\210\211A\262\n@\240\210$W\203. @\262$\262\202. \207" [100.0 last #[1028 "@@@@Z@@Z\245\207" [] 7 "\n\n(fn FIRST SECOND THIRD MAX)"]] 13 "\n\n(fn REVS)"]) (defalias 'vc-arch-trim-make-sentinel #[257 "\211\204 \300\207\301\302\303\304\305!\306\"\307\310%\207" [#[514 "\300\301!\207" [message "VC-Arch trimming ... done"] 4 "\n\n(fn PROC MSG)"] make-byte-code 514 "\301\302\303\300@!\"\210\304\300@\300@\305P\"\210\306\307\310\311\312\300@\305P%\313\314\300A!\"\207" vconcat vector [message "VC-Arch trimming %s..." file-name-nondirectory rename-file "*rm*" start-process "vc-arch-trim" nil "rm" "-rf" set-process-sentinel vc-arch-trim-make-sentinel] 9 "\n\n(fn PROC MSG)"] 7 "\n\n(fn REVS)"]) #@65 Delete half of the revisions in the revision library. (fn DIR) (defalias 'vc-arch-trim-one-revlib #[257 "\301\302\303\304$\211\203 \305!\306\211\"\210\210\307\310\306\311\312\301\306\211\304$\"\"\313\"\306\211AA)\205g G\314\245\315\211W\203P \211\316!\310\"\262\211B\262\266\211T\262\2021 \266\305\311\317\320\321\322\323 !\324\"\325\326%\"!\306\211\"\207" [x directory-files full "\\`,," nosort vc-arch-trim-make-sentinel nil sort delq mapcar #[257 "\300\301\"\205 \302\303\304\"!B\207" [string-match "-\\([0-9]+\\)\\'" string-to-number match-string 1] 5 "\n\n(fn F)"] car-less-than-car 2 0 vc-arch-trim-find-least-useful-rev make-byte-code 257 "\301A\300\"\207" vconcat vector [expand-file-name] 4 "\n\n(fn X)"] 12 (#$ . 15733) "Ddirectory: "]) #@61 Delete half of the revisions in the revision library. (fn) (defalias 'vc-arch-trim-revlib #[0 "\302\303\304!!\305\306DC\216\307 \310\310\311%\210)rq\210\312 +\313\314\"\203B \315\316\"\317!\2038 \320!\2038 \211\202= \321\225\310O\266\202\202 \320!\204L \322\323!\210\324\325\"\210\326\327\330#\331\332\333\334\"\"\331\332\333\335\"\"\331\332\333\336\"\"\337\340\"\266\204\207" [standard-output vc-arch-program get-buffer-create generate-new-buffer-name " *string-output*" funcall #[0 "\301!\207" [standard-output kill-buffer] 2 "\n\n(fn)"] call-process nil "my-revision-library" buffer-string string-match "\\(.*\\)\n" match-string 1 file-directory-p file-writable-p 0 error "No writable revlib directory found" message "Revlib at %s" directory-files full "[^.]\\|..." apply append mapcar #[257 "\300!\205 \301\302\303#\207" [file-directory-p directory-files full "[^.]\\|..."] 5 "\n\n(fn DIR)"] #[257 "\300!\205 \301\302\303#\207" [file-directory-p directory-files full "[^.]\\|..."] 5 "\n\n(fn DIR)"] #[257 "\300!\205 \301\302\303#\207" [file-directory-p directory-files full "--.*--"] 5 "\n\n(fn DIR)"] mapc vc-arch-trim-one-revlib] 9 (#$ . 16513) nil]) (defvar vc-arch-extra-menu-map (byte-code "\300 \301\302\303#\210\211\207" [make-sparse-keymap define-key [add-tagline] (menu-item "Add tagline" vc-arch-add-tagline)] 5)) (defalias 'vc-arch-extra-menu #[0 "\207" [vc-arch-extra-menu-map] 1 "\n\n(fn)"]) (defalias 'vc-arch-find-revision #[771 "\300\301!\302\303\304\305\306\307!\310\"\311\312%DC\216\313\314!r\211q\210\302\303\304\315\306\307!\316\"\311\312%DC\216\317p\320\321\322 &\210\323ed\324\321\211\211\325\326\n&\n\210*\210rq\210\327!*\207" [make-temp-file "vc-out" funcall make-byte-code 0 "\301\300!\207" vconcat vector [delete-file] 2 "\n\n(fn)" generate-new-buffer " *temp*" "\301\300!\205 \302\300!\207" [buffer-name kill-buffer] vc-arch-command 1 nil "file-diffs" call-process-region "patch" "-R" "-o" insert-file-contents] 16 "\n\n(fn FILE REV BUFFER)"]) (provide 'vc-arch)