HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/vc/diff.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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%\210\306\307\310\311\312DD\313\314\315\304\301&\210\306\316\310\311\317DD\320\314\321\304\301&\207" [custom-declare-group diff nil "Comparing files with `diff'." :group tools custom-declare-variable diff-switches funcall function #[0 "\300\301!\207" [purecopy "-u"] 2] "A string or list of strings specifying switches to be passed to diff." :type (choice string (repeat string)) diff-command #[0 "\300\301!\207" [purecopy "diff"] 2] "The command to use to run diff." string] 8)
(defalias 'diff-switches #[0 "\205\302\303	;\203	\202\304\305	\306#\"\207" [current-prefix-arg diff-switches read-string "Diff switches: " mapconcat identity " "] 6])
#@273 Code run when the diff process exits.
CODE is the exit code of the process.  It should be 0 only if no diffs
were found.
If optional args OLD-TEMP-FILE and/or NEW-TEMP-FILE are non-nil,
delete the temporary files so named.

(fn CODE &optional OLD-TEMP-FILE NEW-TEMP-FILE)
(defalias 'diff-sentinel #[769 "\203\301!\210\211\203\301!\210\302 \210eb\210\212db\210\303\304\305\306\267\202,\307\202-\310\202-\311\312 #c*\207" [inhibit-read-only delete-file diff-setup-whitespace t format "\nDiff finished%s.  %s\n" #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 36 2 40)) " (no differences)" " (diff error)" "" current-time-string] 7 (#$ . 1100)])
#@533 Find and display the differences between OLD and NEW files.
When called interactively, read NEW, then OLD, using the
minibuffer.  The default for NEW is the current buffer's file
name, and the default for OLD is a backup file for NEW, if one
exists.  If NO-ASYNC is non-nil, call diff synchronously.

When called interactively with a prefix argument, prompt
interactively for diff switches.  Otherwise, the switches
specified in the variable `diff-switches' are passed to the diff command.

(fn OLD NEW &optional SWITCHES NO-ASYNC)
(defalias 'diff #[1026 "\300\301$!\207" [display-buffer diff-no-select] 10 (#$ . 1805) (byte-code "\203\301!\203\302\303\304!\305Q\306\307$\202\302\310\306\211\307$\311!\211\203;\301!\203;\302\312\304!\305Q\313!\307$\202C\302\314\313!\306\307$\262\211\315 E\207" [buffer-file-name file-exists-p read-file-name "Diff new file (default " file-name-nondirectory "): " nil t "Diff new file: " file-newest-backup "Diff original file (default " file-name-directory "Diff original file: " diff-switches] 7)])
#@20 

(fn FILE-OR-BUF)
(defalias 'diff-file-local-copy #[257 "\300!\203r\211q\210\301\302!\303\304\211\304\305%\210\211\262)\207\306!\207" [bufferp make-temp-file "buffer-content-" write-region nil nomessage file-local-copy] 8 (#$ . 2870)])
#@170 Whether `diff-command' understands the "--label" option.
Possible values are:
  t     -- yes, it does
  nil   -- no, it does not
  check -- try to probe whether it does
(defvar diff-use-labels 'check (#$ . 3120))
#@48 

(fn OLD NEW &optional SWITCHES NO-ASYNC BUF)
(defalias 'diff-no-select #[1282 "CCC\306\242!\204\307\242!\240\210\306\242!\204#\211\307\242!\240\210\242\204,\240\210\242<\2048\211\242C\240\210\204A\310\311!\262	\312=\203~\313\314!r\211q\210\315\316\317\320\321!\322\"\323$\216\3241i\325\n\326\327\326\330%0\202n\210\326\202z\205z\331\332\326\327#\205z\327*\262\333\242!\333\242!\334\335\n\336\242\337\340\204\231\205\306	\327=\205\306\332\n\242;\203\255\n\242\202\262\341\242!\332
\242;\203\300
\242\202\305\341\242!F	\206\316\n\242	\206\326\f\242D\244\"\"B\342#rq\210\327\343p!\210\327\344 \210)\345p!\210\346 \210\347\350!\210\315\351\352\320\321	
$\353\"\354\355%(\211\327\356\261\210)\204K\357\360!\203K\361\362	;<%\363\364\"\210\365\315\351\366\320\321\"\367\"\370\371%\"\266\202`\327\372\325;\326\326<&#\210))\266\204\207" [diff-switches diff-use-labels diff-command default-directory buffer-read-only inhibit-read-only bufferp expand-file-name get-buffer-create "*Diff*" check generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 (error) call-process nil t "--help" search-backward "--label" diff-file-local-copy mapconcat identity append mapcar shell-quote-argument prin1-to-string " " buffer-disable-undo erase-buffer buffer-enable-undo diff-mode make-local-variable revert-buffer-function 514 "\304\300\242\301\242\302\242\303p%\207" [diff-no-select] 8 "\n\n(fn IGNORE-AUTO NOCONFIRM)" "\n" fboundp make-process start-process "Diff" set-process-filter diff-process-filter set-process-sentinel "r\302!q\210\303\304!\300\301#)\207" [process-buffer diff-sentinel process-exit-status] 6 "\n\n(fn PROC MSG)" diff-sentinel shell-file-name shell-command-switch] 22 (#$ . 3339)])
#@20 

(fn PROC STRING)
(defalias 'diff-process-filter #[514 "r\301!q\210`\302!U\212\302!b\210\303c\210)\302!`\304\223\210)\211\205'\302!b\262)\207" [inhibit-read-only process-buffer process-mark t nil] 6 (#$ . 5203)])
#@293 Diff this file with its backup file or vice versa.
Uses the latest backup, if there are several numerical backups.
If this file is a backup, diff it with its original.
The backup file is the first file given to `diff'.
With prefix arg, prompt for diff switches.

(fn FILE &optional SWITCHES)
(defalias 'diff-backup #[513 "\300\211\301!\203\262\302!\262\202\"\303!\206\304\305\"\262\262\306#\207" [nil backup-file-name-p file-name-sans-versions diff-latest-backup-file error "No backup found for %s" diff] 8 (#$ . 5433) (byte-code "\300\301!\302 D\207" [read-file-name "Diff (file with backup): " diff-switches] 2)])
#@61 Return the latest existing backup of FILE, or nil.

(fn FN)
(defalias 'diff-latest-backup-file #[257 "\300\301\"\211\203\211\301\"\202\302!\207" [find-file-name-handler diff-latest-backup-file file-newest-backup] 5 (#$ . 6073)])
#@154 View the differences between BUFFER and its associated file.
This requires the external program `diff' to be in your `exec-path'.

(fn &optional BUFFER)
(defalias 'diff-buffer-with-file #[256 "r\301\206p!q\210\302p\303\304$)\207" [buffer-file-name get-buffer diff nil noasync] 6 (#$ . 6316) "bBuffer: "])
(provide 'diff)