aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorMichael Kifer2001-02-12 08:47:13 +0000
committerMichael Kifer2001-02-12 08:47:13 +0000
commit513bea4565326a6b68e580dd3dc215bfe0bcde98 (patch)
tree05e9081d0c4e53903a5cbc448bc725cf47400f7e /lisp
parent36fd8e1761464aa3a557cf9cc70bf91f8331c4db (diff)
downloademacs-513bea4565326a6b68e580dd3dc215bfe0bcde98.tar.gz
emacs-513bea4565326a6b68e580dd3dc215bfe0bcde98.zip
2001-02-12 Michael Kifer <kifer@cs.sunysb.edu>
* ediff-diff.el (ediff-make-diff2-buffer): Removed bogus checks for remote files. (ediff-coding-system-for-read): replaced the no-conversion default with raw-text. * ediff-init.el: Removed :version from defcustom vars. * ediff-util.el (ediff-compute-custom-diffs-maybe): Better handling of the diff mode * ediff.texi: Added ediff-coding-system-for-read. * viper.texi: typos
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog16
-rw-r--r--lisp/ediff-diff.el26
-rw-r--r--lisp/ediff-init.el2
-rw-r--r--lisp/ediff-util.el11
4 files changed, 32 insertions, 23 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4f8cca24c0b..87eb632dbdc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,19 @@
12001-02-12 Michael Kifer <kifer@cs.sunysb.edu>
2
3 * ediff-diff.el (ediff-make-diff2-buffer): Removed bogus checks
4 for remote files.
5 (ediff-coding-system-for-read): replaced the no-conversion default
6 with raw-text.
7
8 * ediff-init.el: Removed :version from defcustom vars.
9
10 * ediff-util.el (ediff-compute-custom-diffs-maybe): Better
11 handling of the diff mode
12
13 * ediff.texi: Added ediff-coding-system-for-read.
14
15 * viper.texi: Typos
16
12001-02-11 Dave Love <fx@gnu.org> 172001-02-11 Dave Love <fx@gnu.org>
2 18
3 * shadowfile.el: Doc fixes. 19 * shadowfile.el: Doc fixes.
diff --git a/lisp/ediff-diff.el b/lisp/ediff-diff.el
index 1ba2b8df803..3bf2277d6be 100644
--- a/lisp/ediff-diff.el
+++ b/lisp/ediff-diff.el
@@ -55,6 +55,16 @@ Must produce output compatible with Unix's diff3 program."
55 :type 'string 55 :type 'string
56 :group 'ediff-diff) 56 :group 'ediff-diff)
57 57
58(defcustom ediff-coding-system-for-read 'raw-text
59 "*The coding system for read to use when running the diff program as a subprocess.
60In most cases, the default will do. However, under certain circumstances in
61Windows NT/98/95 you might need to use something like 'raw-text-dos here.
62So, if the output that your diff program sends to Emacs contains extra ^M's,
63you might need to experiment here, if the default or 'raw-text-dos doesn't
64work."
65 :type 'symbol
66 :group 'ediff-diff)
67
58;; The following functions must precede all defcustom-defined variables. 68;; The following functions must precede all defcustom-defined variables.
59 69
60;; The following functions needed for setting diff/diff3 options 70;; The following functions needed for setting diff/diff3 options
@@ -235,6 +245,7 @@ one optional arguments, diff-number to refine.")
235 245
236;; Run the diff program on FILE1 and FILE2 and put the output in DIFF-BUFFER 246;; Run the diff program on FILE1 and FILE2 and put the output in DIFF-BUFFER
237;; Return the size of DIFF-BUFFER 247;; Return the size of DIFF-BUFFER
248;; The return code isn't used in the program at present.
238(defun ediff-make-diff2-buffer (diff-buffer file1 file2) 249(defun ediff-make-diff2-buffer (diff-buffer file1 file2)
239 (let ((file1-size (ediff-file-size file1)) 250 (let ((file1-size (ediff-file-size file1))
240 (file2-size (ediff-file-size file2))) 251 (file2-size (ediff-file-size file2)))
@@ -250,19 +261,6 @@ one optional arguments, diff-number to refine.")
250 (sit-for 2) 261 (sit-for 2)
251 ;; 1 is an error exit code 262 ;; 1 is an error exit code
252 1) 263 1)
253 ((< file1-size 0)
254 (message "Can't diff remote files: %s"
255 (ediff-abbreviate-file-name file1))
256 (sit-for 2)
257 ;; 1 is an error exit code
258 1)
259 ((< file2-size 0)
260 (message "Can't diff remote file: %s"
261 (ediff-abbreviate-file-name file2))
262 (sit-for 2)
263 (message "")
264 ;; 1 is an error exit code
265 1)
266 (t (message "Computing differences between %s and %s ..." 264 (t (message "Computing differences between %s and %s ..."
267 (file-name-nondirectory file1) 265 (file-name-nondirectory file1)
268 (file-name-nondirectory file2)) 266 (file-name-nondirectory file2))
@@ -1133,7 +1131,7 @@ delimiter regions"))
1133;; args. 1131;; args.
1134(defun ediff-exec-process (program buffer synch options &rest files) 1132(defun ediff-exec-process (program buffer synch options &rest files)
1135 (let ((data (match-data)) 1133 (let ((data (match-data))
1136 (coding-system-for-read 'no-conversion) 1134 (coding-system-for-read ediff-coding-system-for-read)
1137 args) 1135 args)
1138 (setq args (append (split-string options) files)) 1136 (setq args (append (split-string options) files))
1139 (setq args (delete "" (delq nil args))) ; delete nil and "" from arguments 1137 (setq args (delete "" (delq nil args))) ; delete nil and "" from arguments
diff --git a/lisp/ediff-init.el b/lisp/ediff-init.el
index bfa77a71fba..f984ac2fa30 100644
--- a/lisp/ediff-init.el
+++ b/lisp/ediff-init.el
@@ -381,7 +381,6 @@ that Ediff doesn't know about.")
381This hook can be used to save the previous window config, which can be restored 381This hook can be used to save the previous window config, which can be restored
382on ediff-quit or ediff-suspend." 382on ediff-quit or ediff-suspend."
383 :type 'hook 383 :type 'hook
384 :version "21.1"
385 :group 'ediff-hook) 384 :group 'ediff-hook)
386(defcustom ediff-before-setup-windows-hook nil 385(defcustom ediff-before-setup-windows-hook nil
387 "*Hooks to run before Ediff sets its window configuration. 386 "*Hooks to run before Ediff sets its window configuration.
@@ -1221,7 +1220,6 @@ as `ediff-merge-directory' or `ediff-merge-directory-revisions'."
1221(defcustom ediff-merge-filename-prefix "merge_" 1220(defcustom ediff-merge-filename-prefix "merge_"
1222 "*Prefix to be attached to saved merge buffers." 1221 "*Prefix to be attached to saved merge buffers."
1223 :type 'string 1222 :type 'string
1224 :version "21.1"
1225 :group 'ediff-merge) 1223 :group 'ediff-merge)
1226 1224
1227(defcustom ediff-no-emacs-help-in-control-buffer nil 1225(defcustom ediff-no-emacs-help-in-control-buffer nil
diff --git a/lisp/ediff-util.el b/lisp/ediff-util.el
index ef55dbb69a1..1e49926e36e 100644
--- a/lisp/ediff-util.el
+++ b/lisp/ediff-util.el
@@ -3113,13 +3113,10 @@ Without an argument, it saves customized diff argument, if available
3113 (ediff-exec-process 3113 (ediff-exec-process
3114 ediff-custom-diff-program ediff-custom-diff-buffer 'synchronize 3114 ediff-custom-diff-program ediff-custom-diff-buffer 'synchronize
3115 ediff-custom-diff-options file-A file-B) 3115 ediff-custom-diff-options file-A file-B)
3116 (condition-case nil 3116 ;; put the diff file in diff-mode, if it is available
3117 ;; put the diff file in diff-mode, if it is available 3117 (if (fboundp 'diff-mode)
3118 (prog 3118 (with-current-buffer ediff-custom-diff-buffer
3119 (require 'diff-mode) 3119 (diff-mode)))
3120 (with-current-buffer ediff-custom-diff-buffer
3121 (diff-mode)))
3122 (error))
3123 (delete-file file-A) 3120 (delete-file file-A)
3124 (delete-file file-B) 3121 (delete-file file-B)
3125 )) 3122 ))