ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/vc/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/vc/ediff-vers.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 "\210\301\302\303\304\305\306\307\310&\210\311\312\313\314!\203 \314\202 \315\"\210\311\316\313\317!\203( \317\202) \320\"\207" [noninteractive custom-declare-variable ediff-keep-tmp-versions nil "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 fboundp vc-revision-other-window vc-version-other-window ediff-vc-working-revision vc-working-revision vc-workfile-version] 8)
#@71 Return the version level of the latest version of FILE in repository.
(defalias 'ediff-vc-latest-version #[(file) "\301\302!\203\n \302!\207\303\304\"\206( \305!\203$ \306\305!\307#\210\303\304\"\207\310\311\"\207" [file fboundp vc-latest-version vc-file-getprop vc-latest-revision vc-backend vc-call-backend state error "File %s is not under version control"] 4 (#$ . 946)])
(defalias 'ediff-vc-internal #[(rev1 rev2 &optional startup-hooks) "\306\211\211\211\f\307\230\203 \310\311 !\312 \313\216\212\314\f!\210p\311 )\212\307\230\2040 \314!\210p\311 )\315\306\316 D\317\307\230\316\nDEFB*\320 \321$,\207" [rev2buf rev1buf file2 file1 rev1 #1=#:wconfig nil "" ediff-vc-latest-version buffer-file-name current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] ediff-vc-revision-other-window lambda ediff-delete-version-file or ediff-buffers ediff-revision rev2 startup-hooks] 7])
(defalias 'rcs-ediff-view-revision #[(&optional rev) "\306p!\307\310 \205 \311 PC\"\312!\313 \314R\315\316!\210\317!\f r\320 !q\210p\321 \210
\322\211$\323\211%\323 & '\324 \210\325\326!\210+\211 (\211 )\211 *\205^ \327*!\205^ \330\327*!!)\203n r)q\210\331 \210)\202z +\332=\204z \333,!\210\334 \" -\335-!\210r-q\210\336\337\340\322\323\322\307\n.\341D#&\210*\315\342!\210 \343(!\210.\207" [filename rev switches buff default-directory #1=#:old-dir buffer-file-name 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 buffer-read-only buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output buf this-command ediff-KILLED-VITAL-BUFFER output-buffer rcs-default-co-switches] 12 nil (list (if current-prefix-arg (read-string "Revision: ")))])
(defalias 'ediff-rcs-get-output-buffer #[(file name) "\305!r q\210\306\307\310 !!\311 \210) )\207" [name buf buffer-read-only file default-directory get-buffer-create nil file-name-directory expand-file-name erase-buffer] 3])
(defalias 'ediff-rcs-internal #[(rev1 rev2 &optional startup-hooks) "\306\211\307 \310\216 \311\230\203 p\202 \312 !\312\f!*\313
\314$*\207" [rev1buf rev2buf #1=#:wconfig rev2 rev1 startup-hooks nil current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] "" rcs-ediff-view-revision ediff-buffers ediff-revision] 5])
(defalias 'ediff-vc-merge-internal #[(rev1 rev2 ancestor-rev &optional startup-hooks merge-buffer-file) "\306\211\211\307 \310\216\212\311\f!\210p)\212
\312\230\204 \311
!\210p)\203< \212\312\230\2034 \313!\311!\210p)\314\306\315\316\n!D\317
\312\230\315\316 !DE\317\312\230?\315\316!DF\257B*\203v \320\n \321&\202 \322\n \323%+\207" [ancestor-buf buf2 buf1 #1=#:wconfig rev1 rev2 nil current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] ediff-vc-revision-other-window "" ediff-vc-working-revision lambda ediff-delete-version-file buffer-file-name or ediff-merge-buffers-with-ancestor ediff-merge-revisions-with-ancestor ediff-merge-buffers ediff-merge-revisions ancestor-rev startup-hooks merge-buffer-file] 10])
(defalias 'ediff-rcs-merge-internal #[(rev1 rev2 ancestor-rev &optional startup-hooks merge-buffer-file) "\306\211\211\307 \310\216\311\f!
\312\230\203 p\202 \311
!\2051 \312\230\203- p\2021 \311!*\203F \313\n \314&\202O \315\n \316%+\207" [ancestor-buf buf2 buf1 #1=#:wconfig rev1 rev2 nil current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] rcs-ediff-view-revision "" ediff-merge-buffers-with-ancestor ediff-merge-revisions-with-ancestor ediff-merge-buffers ediff-merge-revisions ancestor-rev startup-hooks merge-buffer-file] 7])
(defalias 'ediff-delete-version-file #[(file) "\206 \302 !\207" [ediff-keep-tmp-versions file delete-file] 2])
(provide 'ediff-vers)
Kontol Shell Bypass