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:37 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/vc/vc-hg.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317\304\320\306\301& \210\310\321\312\313\322DD\323\316\324\304\325\306\301& \210\310\326\312\313\327DD\330\316\331\306\301&\210\310\332\312\313\333DD\334\316\335\306\301\304\305& \207" [custom-declare-group vc-hg nil "VC Mercurial (hg) backend." :version "24.1" :group vc custom-declare-variable vc-hg-global-switches funcall function #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Global switches to pass to any Hg command." :type (choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1="") string)) "22.2" vc-hg-diff-switches #[0 "\300\207" [t] 1 "\n\n(fn)"] "String or list of strings specifying switches for Hg diff under VC.\nIf nil, use the value of `vc-diff-switches'. If t, use no switches." (choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1#) string)) "23.1" vc-hg-program #[0 "\300\207" ["hg"] 1 "hg\n\n(fn)"] "Name of the Mercurial executable (excluding any arguments)." string vc-hg-root-log-format #[0 "\300\207" [("{rev}:{tags}: {author|person} {date|shortdate} {desc|firstline}\\n" "^\\([0-9]+\\):\\([^:]*\\): \\(.*?\\)[ ]+\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}\\)" ((1 'log-view-message-face) (2 'change-log-list) (3 'change-log-name) (4 'change-log-date)))] 1 "\n\n(fn)"] "Mercurial log template for `vc-print-root-log'.\nThis should be a list (TEMPLATE REGEXP KEYWORDS), where TEMPLATE\nis the \"--template\" argument string to pass to Mercurial,\nREGEXP is a regular expression matching the resulting Mercurial\noutput, and KEYWORDS is a list of `font-lock-keywords' for\nhighlighting the Log View buffer." (list string string (repeat sexp))] 10) (defvar vc-hg-history nil) (defalias 'vc-hg-revision-granularity #[0 "\300\207" [repository] 1 "\n\n(fn)"]) (defalias 'vc-hg-checkout-model #[257 "\300\207" [implicit] 2 "\n\n(fn FILES)"]) #@58 Return non-nil if FILE is registered with hg. (fn FILE) (defalias 'vc-hg-registered #[257 "\300!\205 \301!\211\205 \211\302>?\262\207" [vc-hg-root vc-hg-state (ignored unregistered)] 4 (#$ . 2510)]) #@47 Hg-specific version of `vc-state'. (fn FILE) (defalias 'vc-hg-state #[257 "\302\303!\304\305\306!!\307\310DC\216 r q\210\311\307\312\313\314\315\316!\317\"\320\321%D\322\307\323\311EDC\217\262*r q\210\324 +\313=\205\234 \325\326\"?\205\234 \211\313H\211\327=\203S \330\202\232 \211\331=\203] \332\202\232 \211\333=\203g \334\202\232 \211\335=\203q \336\202\232 \211\337=\203{ \340\202\232 \211\341=\203\205 \342\202\232 \211\343=\203\217 \344\202\232 \211\345=\203\231 \330\202\232 \330\262)\207" [default-directory standard-output nil file-name-directory get-buffer-create generate-new-buffer-name " *string-output*" funcall #[0 "\301!\207" [standard-output kill-buffer] 2 "\n\n(fn)"] #1=#:err make-byte-code 0 "\303\304\305D \"\306\n\307\310\307\311\312\311\313\314\315\316\300!& )\207" vconcat vector [process-environment vc-hg-program append "TERM=dumb" "LANGUAGE=C" process-file nil t "--config" "alias.status=status" "defaults.status=" "status" "-A" file-relative-name] 13 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] buffer-string string-match ".*: No such file or directory$" 61 up-to-date 65 added 77 edited 73 ignored 82 removed 33 missing 63 unregistered 67] 10 (#$ . 2721)]) #@58 Hg-specific version of `vc-working-revision'. (fn FILE) (defalias 'vc-hg-working-revision #[257 "\301!\203\f \302!\202 \303!\304\305\306\307\310\311\312!\313\"\314\315%D\316\305\317\304EDC\217)\207" [default-directory file-directory-p file-name-as-directory file-name-directory #1=#:err funcall make-byte-code 0 "\303\304\305!!\306\307DC\216 \310\n\311 \311\312\313\314\315\316\317\300!&\n\210)r q\210\320 +\207" vconcat vector [standard-output vc-hg-program get-buffer-create generate-new-buffer-name " *string-output*" funcall #[0 "\301!\207" [standard-output kill-buffer] 2 "\n\n(fn)"] process-file nil "log" "-l" "1" "--template" "{rev}" file-relative-name buffer-string] 12 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"]] 9 (#$ . 3944)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable vc-hg-log-switches funcall function #[0 "\300\207" [nil] 1 "\n\n(fn)"] "String or list of strings specifying switches for hg log under VC." :type (choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value ("") string)) :group vc-hg] 8) #@98 Get change log associated with FILES. (fn FILES BUFFER &optional SHORTLOG START-REVISION LIMIT) (defalias 'vc-hg-print-log #[1282 "\303!\210\304rq\210\305\306\307\310\205 \311\312 \"C\205( \313\311\314\n\"D\244 \2052 \315 @D\244\n\244&*\207" [inhibit-read-only vc-hg-root-log-format vc-hg-log-switches vc-setup-buffer t apply vc-hg-command 0 "log" format "-r%s:" "-l" "%s" "--template"] 16 (#$ . 5083)]) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [vc-hg-log-view-mode-hook variable-documentation put purecopy "Hook run when entering Hg-Log-View mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp vc-hg-log-view-mode-map definition-name vc-hg-log-view-mode] 5) (defvar vc-hg-log-view-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [vc-hg-log-view-mode-map variable-documentation put purecopy "Keymap for `vc-hg-log-view-mode'." boundp vc-hg-log-view-mode-syntax-table definition-name vc-hg-log-view-mode] 5) (defvar vc-hg-log-view-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [vc-hg-log-view-mode-syntax-table variable-documentation put purecopy "Syntax table for `vc-hg-log-view-mode'." vc-hg-log-view-mode-abbrev-table definition-name vc-hg-log-view-mode] 5) (defvar vc-hg-log-view-mode-abbrev-table (progn (define-abbrev-table 'vc-hg-log-view-mode-abbrev-table nil) vc-hg-log-view-mode-abbrev-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [vc-hg-log-view-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `vc-hg-log-view-mode'." vc-hg-log-view-mode derived-mode-parent log-view-mode] 5) #@520 Major mode derived from `log-view-mode' by `define-derived-mode'. It inherits all of the parent's attributes, but has its own keymap, abbrev table and syntax table: `vc-hg-log-view-mode-map', `vc-hg-log-view-mode-abbrev-table' and `vc-hg-log-view-mode-syntax-table' which more-or-less shadow log-view-mode's corresponding tables. In addition to any hooks its parent mode might have run, this mode runs the hook `vc-hg-log-view-mode-hook', as the final step during initialization. \{vc-hg-log-view-mode-map} (fn) (defalias 'vc-hg-log-view-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324 \325\"\204R *=\204R \326 \325*C#\210\327 !\210\330\f!\210 *\331\332!\210\306\333!\210\334\306\335!\210\336 \306\337!\210+\340=\203\205 ,\211 -A@)\202\206 \341 +\340=\203\231 \307.\306\342!\210\343\"\306\344!\210+\340=\203\261 ,A@\345,8BC\202\266 \346$\347\"$)\350\351!\207" [delay-mode-hooks major-mode mode-name vc-hg-log-view-mode-map vc-hg-log-view-mode-syntax-table vc-hg-log-view-mode-abbrev-table make-local-variable t log-view-mode vc-hg-log-view-mode "Hg-Log-View" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table require add-log log-view-file-re "\\`a\\`" log-view-per-file-logs nil log-view-message-re short "^changeset:[ ]*\\([0-9]+\\):\\(.+\\)" log-view-expanded-log-entry-function vc-hg-expanded-log-entry log-view-font-lock-keywords 2 append (("^user:[ ]+\\([^<(]+?\\)[ ]*[(<]\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)[>)]" (1 'change-log-name) (2 'change-log-email)) ("^user:[ ]+\\([A-Za-z0-9_.+-]+\\(?:@[A-Za-z0-9_.-]+\\)?\\)" (1 'change-log-email)) ("^date: \\(.+\\)" (1 'change-log-date)) ("^tag: +\\([^ ]+\\)$" (1 'highlight)) ("^summary:[ ]+\\(.+\\)" (1 'log-view-message))) run-mode-hooks vc-hg-log-view-mode-hook local-abbrev-table vc-log-view-type vc-hg-root-log-format x truncate-lines] 6 (#$ . 6954) nil]) #@111 Get a difference report using hg between two revisions of FILES. (fn FILES &optional OLDVERS NEWVERS BUFFER) (defalias 'vc-hg-diff #[1025 "@\211\205 \300!\232\203 \204 \301\262\204! \203! \211\262\302\303\206( \304\301 \305\306\307\310\311\"\f\205I \203E \312 \312F\202I \312 D\"&\207" [vc-working-revision nil apply vc-hg-command "*vc-diff*" "diff" append vc-switches hg diff "-r"] 18 (#$ . 9096)]) (defalias 'vc-hg-expanded-log-entry #[257 "\300\301!r\211q\210\302\303\304\305\306\307!\310\"\311\312%DC\216\313\314\315\211\316\317&\210eb\210m?\2056 \320ed\311#\210db\210\321 *\207" [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)" vc-hg-command t nil "log" "-r" indent-region buffer-string] 9 "\n\n(fn REVISION)"]) (defalias 'vc-hg-revision-table #[257 "\301@!\302\303!r\211q\210\304\305\306\307\310\311!\312\"\313\314%DC\216\315\316\317\320\321\322&\210\323\324ed\"!*\262)\207" [default-directory file-name-directory 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)" vc-hg-command t nil "log" "--template" "{rev} " split-string buffer-substring-no-properties] 9 "\n\n(fn FILES)"]) (defalias 'vc-hg-revision-completion-table #[257 "\300C\211\301\302\303\304\305\306\"\307\"\310\311%!\240\210\211@\207" [nil completion-table-dynamic make-byte-code 257 "\302\301@!\203 \301\303\304\305\306\307\300!\310\"\311\312% \240\210\301@\207" vconcat vector [functionp make-byte-code 0 "\301\300!\207" vconcat vector [vc-hg-revision-table] 2 "\n\n(fn)"] 8 "\n\n(fn STRING)"] 11 "\n\n(fn FILES)"]) #@157 Execute "hg annotate" on FILE, inserting the contents in BUFFER. Optional arg REVISION is a revision to annotate from. (fn FILE BUFFER &optional REVISION) (defalias 'vc-hg-annotate-command #[770 "\300\301\302\303\304\305\205 \306 P&\207" [vc-hg-command 0 "annotate" "-d" "-n" "--follow" "-r"] 13 (#$ . 10812)]) (defconst vc-hg-annotate-re "^[ ]*\\([0-9]+\\) \\(.\\{30\\}\\)\\(?:\\(: \\)\\|\\(?: +\\(.+\\): \\)\\)") (defalias 'vc-hg-annotate-time #[0 "\301!\205 \302\225b\210\303\304\305\306!!!\207" [vc-hg-annotate-re looking-at 0 vc-annotate-convert-time date-to-time match-string-no-properties 2] 4 "\n\n(fn)"]) (defalias 'vc-hg-annotate-extract-revision-at-line #[0 "\212\302 \210\303!\205! \304\224\203 \305\306!\202! \305\306!\307\305\310!\311 !\"B)\207" [vc-hg-annotate-re default-directory beginning-of-line looking-at 3 match-string-no-properties 1 expand-file-name 4 vc-hg-root] 5 "\n\n(fn)"]) (defalias 'vc-hg-previous-revision #[514 "\300!S\211\301Y\205 \302!\207" [string-to-number 0 number-to-string] 5 "\n\n(fn FILE REV)"]) (defalias 'vc-hg-next-revision #[514 "\300!T\301\302!r\211q\210\303\304\305\306\307\310!\311\"\312\313%DC\216\314\315\305\316\317$\210eb\210\320\321!\210\300\322\323!!*\262X\205; \324!\207" [string-to-number 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)" vc-hg-command t nil "tip" re-search-forward "^changeset:[ ]*\\([0-9]+\\):" match-string-no-properties 1 number-to-string] 11 "\n\n(fn FILE REV)"]) #@60 Delete FILE and delete it in the hg repository. (fn FILE) (defalias 'vc-hg-delete-file #[257 "\300\301\302\303\304\305\306!\307\"\310\311%D\312\301\313\300EDC\217\210\314\315\303\316\317\320&\207" [#1=#:err funcall make-byte-code 0 "\301\300!\207" vconcat vector [delete-file] 2 "\n\n(fn)" file-error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] vc-hg-command nil "remove" "--after" "--force"] 9 (#$ . 12375)]) #@58 Rename file from OLD to NEW using `hg mv'. (fn OLD NEW) (defalias 'vc-hg-rename-file #[514 "\300\301\302\303%\207" [vc-hg-command nil 0 "mv"] 8 (#$ . 12797)]) #@96 Register FILES under hg. REV is ignored. COMMENT is ignored. (fn FILES &optional REV COMMENT) (defalias 'vc-hg-register #[769 "\300\301\302\303$\207" [vc-hg-command nil 0 "add"] 8 (#$ . 12966)]) #@42 Create a new Mercurial repository. (fn) (defalias 'vc-hg-create-repo #[0 "\300\301\302\301\303$\207" [vc-hg-command nil 0 "init"] 5 (#$ . 13169)]) (defalias 'vc-hg-responsible-p 'vc-hg-root) #@65 Return non-nil if FILE could be registered under hg. (fn FILE) (defalias 'vc-hg-could-register #[257 "\300!\205 \301\302\303\304\305\306\307!\310\"\311\312%D\313\302\314\301EDC\217\207" [vc-hg-responsible-p #1=#:err funcall make-byte-code 0 "\301\302!r\211q\210\303\304\305\306\307\310!\311\"\312\313%DC\216\314\315\316\300\317\320%*\207" vconcat vector [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)" vc-hg-command t nil "add" "--dry-run"] 8 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"]] 9 (#$ . 13367)]) #@86 Hg-specific version of `vc-backend-checkin'. REV is ignored. (fn FILES REV COMMENT) (defalias 'vc-hg-checkin #[771 "\300\301\302\303\304\305D\306\307\"\244%\207" [apply vc-hg-command nil 0 "commit" "-m" log-edit-extract-headers (("Author" . "--user") ("Date" . "--date"))] 12 (#$ . 13996)]) (defalias 'vc-hg-find-revision #[771 "\302\211\203 \303\304\305\306&\202 \303\304\305$*\207" [coding-system-for-write coding-system-for-read binary vc-hg-command 0 "cat" "-r"] 10 "\n\n(fn FILE REV BUFFER)"]) #@133 Retrieve a revision of FILE. EDITABLE is ignored. REV is the revision to check out into WORKFILE. (fn FILE &optional EDITABLE REV) (defalias 'vc-hg-checkout #[769 "\302\211r\303!\206\f pq\210\211\203 \304\305\306\307\310&\202% \304\305\306\307$+\207" [coding-system-for-write coding-system-for-read binary get-file-buffer vc-hg-command t 0 "cat" "-r"] 10 (#$ . 14519)]) (defalias 'vc-hg-workfile-unchanged-p #[257 "\300!\301=\207" [vc-hg-state up-to-date] 3 "\n\n(fn FILE)"]) (defalias 'vc-hg-revert #[513 "\211?\205& \300\301!r\211q\210\302\303\304\305\306\307!\310\"\311\312%DC\216\313\314\304\315$*\262\207" [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)" vc-hg-command t "revert"] 10 "\n\n(fn FILE &optional CONTENTS-DONE)"]) (defvar vc-hg-extra-menu-map (byte-code "\300 \211\207" [make-sparse-keymap] 2)) (defalias 'vc-hg-extra-menu #[0 "\207" [vc-hg-extra-menu-map] 1 "\n\n(fn)"]) (defalias 'vc-hg-extra-status-menu #[0 "\207" [vc-hg-extra-menu-map] 1 "\n\n(fn)"]) (byte-code "\300\301\302\303#\210\304\211\203 \300\301\305\306\307!!#\210\207" [put vc-hg-extra-fileinfo->rename-state compiler-macro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-hg-extra-fileinfo->rename-state (or (and (memq (aref cl-x 0) cl-struct-vc-hg-extra-fileinfo-tags)) (error "%s accessing a non-%s" 'vc-hg-extra-fileinfo->rename-state 'vc-hg-extra-fileinfo)) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/vc-hg.el" compiler-macro-file purecopy file-name-nondirectory] 7) (defalias 'vc-hg-extra-fileinfo->rename-state #[257 "\211\301H>\204 \302\303\304\305#\210\211\306H\207" [cl-struct-vc-hg-extra-fileinfo-tags 0 error "%s accessing a non-%s" vc-hg-extra-fileinfo->rename-state vc-hg-extra-fileinfo 1] 5 "\n\n(fn CL-X)"]) (byte-code "\300\301\302\303#\210\304\211\203 \300\301\305\306\307!!#\210\207" [put vc-hg-extra-fileinfo->extra-name compiler-macro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-hg-extra-fileinfo->extra-name (or (and (memq (aref cl-x 0) cl-struct-vc-hg-extra-fileinfo-tags)) (error "%s accessing a non-%s" 'vc-hg-extra-fileinfo->extra-name 'vc-hg-extra-fileinfo)) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/vc-hg.el" compiler-macro-file purecopy file-name-nondirectory] 7) (defalias 'vc-hg-extra-fileinfo->extra-name #[257 "\211\301H>\204 \302\303\304\305#\210\211\306H\207" [cl-struct-vc-hg-extra-fileinfo-tags 0 error "%s accessing a non-%s" vc-hg-extra-fileinfo->extra-name vc-hg-extra-fileinfo 2] 5 "\n\n(fn CL-X)"]) (byte-code "\300\301\302\303#\210\304\211\203 \300\301\305\306\307!!#\210\207" [put vc-hg-extra-fileinfo-p compiler-macro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-hg-extra-fileinfo-p (and (vectorp cl-x) (>= (length cl-x) 3) (memq (aref cl-x 0) cl-struct-vc-hg-extra-fileinfo-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/vc-hg.el" compiler-macro-file purecopy file-name-nondirectory] 7) (defalias 'vc-hg-extra-fileinfo-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-vc-hg-extra-fileinfo-tags vectorp 3 0 t] 3 "\n\n(fn CL-X)"]) (byte-code "\300\301\302\303#\210\304\211\203 \300\301\305\306\307!!#\210\207" [put make-vc-hg-extra-fileinfo compiler-macro #[385 "\300>A@\301>A@\211\2035 \211@\302>\203 \211AA\262\202 \303>A@\203, \304\262\202 \305\306@\"\210\202 \210\307\310\311\304\304&\207" [:rename-state :extra-name (:rename-state :extra-name :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:rename-state :extra-name)" cl--defsubst-expand (rename-state extra-name) (cl-block make-vc-hg-extra-fileinfo (vector 'cl-struct-vc-hg-extra-fileinfo rename-state extra-name))] 12 "\n\n(fn CL-WHOLE &cl-quote &key RENAME-STATE EXTRA-NAME)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/vc-hg.el" compiler-macro-file purecopy file-name-nondirectory] 7) #@37 (fn &key RENAME-STATE EXTRA-NAME) (defalias 'make-vc-hg-extra-fileinfo #[128 "\300>A@\301>A@\211\2035 \211@\302>\203 \211AA\262\202 \303>A@\203, \304\262\202 \305\306@\"\210\202 \210\307\310#\207" [:rename-state :extra-name (:rename-state :extra-name :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:rename-state :extra-name)" vector cl-struct-vc-hg-extra-fileinfo] 7 (#$ . 18647)]) (byte-code "\300\301\302\303#\210\304\211\203 \300\301\305\306\307!!#\210\207" [put vc-hg-create-extra-fileinfo compiler-macro #[771 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (rename-state extra-name) (cl-block vc-hg-create-extra-fileinfo (vector 'cl-struct-vc-hg-extra-fileinfo rename-state extra-name)) nil] 11 "\n\n(fn CL-WHOLE-ARG RENAME-STATE EXTRA-NAME)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/vc-hg.el" compiler-macro-file purecopy file-name-nondirectory] 7) (defalias 'vc-hg-create-extra-fileinfo #[514 "\300\301#\207" [vector cl-struct-vc-hg-extra-fileinfo] 6 "\n\n(fn RENAME-STATE EXTRA-NAME)"]) (byte-code "\301C\302\303\304\305#\210\302\303\306\307#\210\302\303\310\311#\210\302\303\312\313#\210\302\314\315\313#\210\302\316\315\313#\210\302\317\315\320#\210\302\321\315\313#\210\302\322\315\313#\207" [cl-struct-vc-hg-extra-fileinfo-tags cl-struct-vc-hg-extra-fileinfo put vc-hg-extra-fileinfo cl-struct-slots ((cl-tag-slot) (rename-state) (extra-name)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t vc-hg-create-extra-fileinfo side-effect-free make-vc-hg-extra-fileinfo vc-hg-extra-fileinfo-p error-free vc-hg-extra-fileinfo->extra-name vc-hg-extra-fileinfo->rename-state] 4) #@62 Pretty-printer for the vc-dir-fileinfo structure. (fn INFO) (defalias 'vc-hg-dir-printer #[257 "\3018\302\303\"\210\211\205W \304\305\306\307H>\204 \310\311\312\313#\210\314H\211\315=\203* \316\202? \211\317=\2034 \320\202? \211\321=\203> \322\202? \323\262\307H>\204O \310\311\324\313#\210\301H#\325\326#c\207" [cl-struct-vc-hg-extra-fileinfo-tags 2 vc-default-dir-printer Hg propertize format " (%s %s)" 0 error "%s accessing a non-%s" vc-hg-extra-fileinfo->rename-state vc-hg-extra-fileinfo 1 copied "copied from" renamed-from "renamed from" renamed-to "renamed to" nil vc-hg-extra-fileinfo->extra-name face font-lock-comment-face] 10 (#$ . 20320)]) (defalias 'vc-hg-after-dir-status #[257 "\301\302\301\211\211\211eb\210m\204\231 \303\301f\"A\262\304`\305\\\306 \"\262\204) \301\262\202\223 \307=\2035 \301\262\202\223 \310=\203N AA\211\311\312\313\n#\240\266\314\262\202\223 \211\203\205 \315=\203\205 \3058\316H>\204h \317\320\321\322#\210\3058\211\323\324I\266\311\312\325@#EB\262\301\262\202\223 \301E\262B\262\301\262\301y\210\202 !\207" [cl-struct-vc-hg-extra-fileinfo-tags nil ((61 . up-to-date) (67 . up-to-date) (65 . added) (82 . removed) (77 . edited) (73 . ignored) (33 . missing) (32 . copy-rename-line) (63 . unregistered)) assoc buffer-substring-no-properties 2 line-end-position up-to-date copy-rename-line vector cl-struct-vc-hg-extra-fileinfo copied t removed 0 error "%s accessing a non-%s" vc-hg-extra-fileinfo->rename-state vc-hg-extra-fileinfo 1 renamed-from renamed-to] 13 "\n\n(fn UPDATE-FUNCTION)"]) (defalias 'vc-hg-dir-status #[514 "\300p\301\302\303%\210\304\305\306DD!\207" [vc-hg-command async "status" "-C" vc-exec-after vc-hg-after-dir-status quote] 8 "\n\n(fn DIR UPDATE-FUNCTION)"]) (defalias 'vc-hg-dir-status-files #[1028 "\300\301p\302\303\304 &\210\305\306\307DD!\207" [apply vc-hg-command async "status" "-C" vc-exec-after vc-hg-after-dir-status quote] 12 "\n\n(fn DIR FILES DEFAULT-STATE UPDATE-FUNCTION)"]) (defalias 'vc-hg-dir-extra-header #[385 "\300\301\302#\300\303\304!r\211q\210\305\306\307\310\311\312!\313\"\314\315%DC\216\316\317p\307\320%\210\321edS\"*\262\301\322#P\207" [propertize face font-lock-type-face 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)" apply vc-hg-command nil buffer-substring-no-properties font-lock-variable-name-face] 12 "\n\n(fn NAME &rest COMMANDS)"]) #@63 Generate extra status headers for a Mercurial tree. (fn DIR) (defalias 'vc-hg-dir-extra-headers #[257 "\211\301\302\303\"\304\301\305\306\307#\304\301\310\306\311#\260)\207" [default-directory vc-hg-dir-extra-header "Root : " "root" "\n" "Branch : " "id" "-b" "Tags : " "-t"] 9 (#$ . 22813)]) (defalias 'vc-hg-log-incoming #[514 "\300\301\302\303\304\305\230?\205 &\207" [vc-hg-command 1 nil "incoming" "-n" ""] 10 "\n\n(fn BUFFER REMOTE-LOCATION)"]) (defalias 'vc-hg-log-outgoing #[514 "\300\301\302\303\304\305\230?\205 &\207" [vc-hg-command 1 nil "outgoing" "-n" ""] 10 "\n\n(fn BUFFER REMOTE-LOCATION)"]) (defalias 'vc-hg-push #[0 "\300 \211\203 \301\302\303\304\303\305\301\306\307\310\n\"\"&\202 \311\312!\207" [log-view-get-marked apply vc-hg-command nil 0 "push" nconc mapcar #[257 "\300D\207" ["-r"] 3 "\n\n(fn ARG)"] error "No log entries selected for push"] 12 "\n\n(fn)" nil]) #@63 Value of `compilation-error-regexp-alist' in *vc-hg* buffers. (defvar vc-hg-error-regexp-alist nil (#$ . 23746)) #@409 Issue a Mercurial pull command. If called interactively with a set of marked Log View buffers, call "hg pull -r REVS" to pull in the specified revisions REVS. With a prefix argument or if PROMPT is non-nil, prompt for a specific Mercurial pull command. The default is "hg pull -u", which fetches changesets from the default remote repository and then attempts to update the working directory. (fn PROMPT) (defalias 'vc-hg-pull #[257 "\303\304\305!\203\" \306 \211\262\203\" \307\310\303\311\303\312\307\313\314\315\n\"\"&\202q \316!\317\320\321!\"\312 \322\203V \323\324\325\317\326\"\327#\330\331#\262\211@\262\211\211A@)\262\211\211AA)\262\307\332&\210rq\210\333\334!\210)\335!\266\205\207" [default-directory vc-hg-program x nil called-interactively-p interactive log-view-get-marked apply vc-hg-command 0 "pull" nconc mapcar #[257 "\300D\207" ["-r"] 3 "\n\n(fn ARG)"] vc-hg-root format "*vc-hg : %s*" expand-file-name ("-u") split-string read-shell-command "Run Hg (like this): " "%s pull -u" vc-hg-history " " t vc-do-async-command vc-exec-after (vc-compilation-mode 'hg) vc-set-async-update] 14 (#$ . 23866) "P"]) #@100 Merge incoming changes into the current working directory. This runs the command "hg merge". (fn) (defalias 'vc-hg-merge-branch #[0 "\302!\303\304\305!\"\306 \307$\210r\211q\210\310\311!\210)\312!\207" [default-directory vc-hg-program vc-hg-root format "*vc-hg : %s*" expand-file-name vc-do-async-command "merge" vc-exec-after (vc-compilation-mode 'hg) vc-set-async-update] 7 (#$ . 25023)]) #@234 A wrapper around `vc-do-command' for use in vc-hg.el. This function differs from vc-do-command in that it invokes `vc-hg-program', and passes `vc-hg-global-switches' to it before FLAGS. (fn BUFFER OKSTATUS FILE-OR-LIST &rest FLAGS) (defalias 'vc-hg-command #[899 "\302\303\206 \304 ;\203 B\202 \305 \"&\207" [vc-hg-program vc-hg-global-switches apply vc-do-command "*vc*" append] 13 (#$ . 25427)]) (defalias 'vc-hg-root #[257 "\300\301\"\207" [vc-find-root ".hg"] 4 "\n\n(fn FILE)"]) (provide 'vc-hg)