| Server IP : 217.160.0.212 / Your IP : 216.73.216.71 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/vc/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\313\314\315#\210\316\313\314\317#\210\312\320\321\315#\210\316\320\321\317#\207" [custom-declare-variable ediff-keep-tmp-versions funcall function #[0 "\300\207" [nil] 1 ""] "If t, do not delete temporary previous versions for the files on which\ncomparison or merge operations are being performed." :type boolean :group ediff-vers defalias ediff-vc-revision-other-window vc-revision-other-window nil make-obsolete "28.1" ediff-vc-working-revision vc-working-revision] 8)
#@82 Return the version level of the latest version of FILE in repository.
(fn FILE)
(defalias 'ediff-vc-latest-version #[257 "\300\301!\203\n \301!\207\302\303\"\206( \304!\203$ \305\304!\306#\210\302\303\"\207\307\310\"\207" [fboundp vc-latest-version vc-file-getprop vc-latest-revision vc-backend vc-call-backend state error "File %s is not under version control"] 5 (#$ . 621)])
#@42
(fn REV1 REV2 &optional STARTUP-HOOKS)
(defalias 'ediff-vc-internal #[770 "\300C\300C\300\211\301\230\203 \302\303 !\262\304 \305\306\"\216\212\307!\210p\262\303 \240\210)\212\301\230\2046 \307!\210p\262\303 \240\210)\305\310$B\262)\210\311\312$\207" [nil #1="" ediff-vc-latest-version buffer-file-name current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] vc-revision-other-window #[0 "\303\301\242!\210\300\304\230\206 \303\302\242!\207" [V0 V1 V2 ediff-delete-version-file #1#] 2] ediff-buffers ediff-revision] 13 (#$ . 1013)])
#@116 View previous RCS revision of current file.
With prefix argument, prompts for a revision name.
(fn &optional REV)
(defalias 'rcs-ediff-view-revision #[256 "\302p!\306\307\205
\310PC\"\311!\312\313R\314\315!\210\316!\262r\317!q\210p\320 \210\321\211\322\211\322\323 \210\324\325!\210+\211#\211\211\205P \326!\205P \327\326!!\262\203a r#q\210\330 \210)\202m $\331=\204m \332%!\210\333\"\334!\210r\211q\210\335\336\337\321\322\321\306&\340D#&\210)\210\314\341!\210\342!\210)\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only append ("-p") "-r" file-name-nondirectory ".~" "~" message "Working ..." expand-file-name get-buffer-create kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook get-buffer buffer-name fundamental-mode ediff-quit error ediff-rcs-get-output-buffer delete-windows-on apply call-process "co" "-q" "" internal-temp-output-buffer-show standard-output this-command ediff-KILLED-VITAL-BUFFER rcs-default-co-switches] 19 (#$ . 1623) (byte-code "\205 \301\302!C\207" [current-prefix-arg read-string "Revision: "] 2)])
#@18
(fn FILE NAME)
(defalias 'ediff-rcs-get-output-buffer #[514 "\302!r\211q\210\303\304\305!!\306 \210)\207" [buffer-read-only default-directory get-buffer-create nil file-name-directory expand-file-name erase-buffer] 6 (#$ . 2790)])
#@42
(fn REV1 REV2 &optional STARTUP-HOOKS)
(defalias 'ediff-rcs-internal #[770 "\300\211\301 \302\303\"\216\304\230\203 p\202 \305!\262\305!\262)\210\306\307$\207" [nil current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] "" rcs-ediff-view-revision ediff-buffers ediff-revision] 10 (#$ . 3033)])
#@73
(fn REV1 REV2 ANCESTOR-REV &optional STARTUP-HOOKS MERGE-BUFFER-FILE)
(defalias 'ediff-vc-merge-internal #[1283 "\301\211\211\302 \303\304\"\216\212\305 !\210p\262)\212\306\230\204! \305!\210p\262)\203@ \212\306\230\2037 \307!\262\305!\210p\262)\300!\306\230?\205N \300!\306\230\206X ??\205_ \300!\303\310$\266\203B\262)\210\203~ \311\312 &\207\313\314%\207" [buffer-file-name nil current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] vc-revision-other-window "" vc-working-revision #[0 "\303\300!\210\301\203\f \303\301!\210\302\205 \303\302!\207" [V0 V1 V2 ediff-delete-version-file] 2] ediff-merge-buffers-with-ancestor ediff-merge-revisions-with-ancestor ediff-merge-buffers ediff-merge-revisions] 17 (#$ . 3387)])
#@73
(fn REV1 REV2 ANCESTOR-REV &optional STARTUP-HOOKS MERGE-BUFFER-FILE)
(defalias 'ediff-rcs-merge-internal #[1283 "\300\211\211\301 \302\303\"\216\304 !\262\305\230\203 p\202 \304!\262\2055 \305\230\2031 p\2025 \304!\262)\210\203I \306\307 &\207\310\311%\207" [nil current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] rcs-ediff-view-revision "" ediff-merge-buffers-with-ancestor ediff-merge-revisions-with-ancestor ediff-merge-buffers ediff-merge-revisions] 15 (#$ . 4202)])
#@13
(fn FILE)
(defalias 'ediff-delete-version-file #[257 "\206 \301!\207" [ediff-keep-tmp-versions delete-file] 3 (#$ . 4757)])
(provide 'ediff-vers)