aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/ediff-diff.el
diff options
context:
space:
mode:
authorKaroly Lorentey2006-06-12 07:27:12 +0000
committerKaroly Lorentey2006-06-12 07:27:12 +0000
commit476e9367ec1f440aa23904b7bc482ea4a3b8041c (patch)
tree4f7f5a5e9a6668f908834bb6e216c8fa3727d4b3 /lisp/ediff-diff.el
parenta13f8f50d4cc544d3bbfa78568e82ce09e68bded (diff)
parent6b519504c3297595101628e823e72c91e562ab45 (diff)
downloademacs-476e9367ec1f440aa23904b7bc482ea4a3b8041c.tar.gz
emacs-476e9367ec1f440aa23904b7bc482ea4a3b8041c.zip
Merged from emacs@sv.gnu.org.
Patches applied: * emacs@sv.gnu.org/emacs--devo--0--patch-294 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-295 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-296 Update from CVS: admin/FOR-RELEASE: Update refcard section. * emacs@sv.gnu.org/emacs--devo--0--patch-297 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-298 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-299 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-300 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-301 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-302 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-303 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-304 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-103 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-104 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-570
Diffstat (limited to 'lisp/ediff-diff.el')
-rw-r--r--lisp/ediff-diff.el20
1 files changed, 11 insertions, 9 deletions
diff --git a/lisp/ediff-diff.el b/lisp/ediff-diff.el
index 013ed9073db..7746954292d 100644
--- a/lisp/ediff-diff.el
+++ b/lisp/ediff-diff.el
@@ -65,8 +65,10 @@ Must produce output compatible with Unix's diff3 program."
65;; The following functions needed for setting diff/diff3 options 65;; The following functions needed for setting diff/diff3 options
66;; test if diff supports the --binary option 66;; test if diff supports the --binary option
67(defsubst ediff-test-utility (diff-util option &optional files) 67(defsubst ediff-test-utility (diff-util option &optional files)
68 (eq 0 (apply 'call-process 68 (condition-case ()
69 (append (list diff-util nil nil nil option) files)))) 69 (eq 0 (apply 'call-process
70 (append (list diff-util nil nil nil option) files)))
71 (file-error nil)))
70 72
71(defun ediff-diff-mandatory-option (diff-util) 73(defun ediff-diff-mandatory-option (diff-util)
72 (let ((file (if (boundp 'null-device) null-device "/dev/null"))) 74 (let ((file (if (boundp 'null-device) null-device "/dev/null")))
@@ -128,10 +130,10 @@ are `-I REGEXP', to ignore changes whose lines match the REGEXP."
128 130
129(defcustom ediff-diff-options "" 131(defcustom ediff-diff-options ""
130 "*Options to pass to `ediff-diff-program'. 132 "*Options to pass to `ediff-diff-program'.
131If Unix diff is used as `ediff-diff-program', then a useful option is 133If Unix diff is used as `ediff-diff-program',
132`-w', to ignore space, and `-i', to ignore case of letters. 134 then a useful option is `-w', to ignore space.
133Options `-c' and `-i' are not allowed. Case sensitivity can be toggled 135Options `-c' and `-i' are not allowed. Case sensitivity can be
134interactively using [ediff-toggle-ignore-case]" 136 toggled interactively using \\[ediff-toggle-ignore-case]."
135 :set 'ediff-reset-diff-options 137 :set 'ediff-reset-diff-options
136 :type 'string 138 :type 'string
137 :group 'ediff-diff) 139 :group 'ediff-diff)
@@ -399,7 +401,7 @@ one optional arguments, diff-number to refine.")
399 (c-prev-pt nil) 401 (c-prev-pt nil)
400 diff-list shift-A shift-B 402 diff-list shift-A shift-B
401 ) 403 )
402 404
403 ;; diff list contains word numbers, unless changed later 405 ;; diff list contains word numbers, unless changed later
404 (setq diff-list (cons (if word-mode 'words 'points) 406 (setq diff-list (cons (if word-mode 'words 'points)
405 diff-list)) 407 diff-list))
@@ -411,7 +413,7 @@ one optional arguments, diff-number to refine.")
411 shift-B 413 shift-B
412 (ediff-overlay-start 414 (ediff-overlay-start
413 (ediff-get-value-according-to-buffer-type 'B bounds)))) 415 (ediff-get-value-according-to-buffer-type 'B bounds))))
414 416
415 ;; reset point in buffers A/B/C 417 ;; reset point in buffers A/B/C
416 (ediff-with-current-buffer A-buffer 418 (ediff-with-current-buffer A-buffer
417 (goto-char (if shift-A shift-A (point-min)))) 419 (goto-char (if shift-A shift-A (point-min))))
@@ -1525,7 +1527,7 @@ affects only files whose names match the expression."
1525 (ediff-barf-if-not-control-buffer) 1527 (ediff-barf-if-not-control-buffer)
1526 (setq ediff-ignore-case (not ediff-ignore-case)) 1528 (setq ediff-ignore-case (not ediff-ignore-case))
1527 (cond (ediff-ignore-case 1529 (cond (ediff-ignore-case
1528 (setq ediff-actual-diff-options 1530 (setq ediff-actual-diff-options
1529 (concat ediff-diff-options " " ediff-ignore-case-option) 1531 (concat ediff-diff-options " " ediff-ignore-case-option)
1530 ediff-actual-diff3-options 1532 ediff-actual-diff3-options
1531 (concat ediff-diff3-options " " ediff-ignore-case-option3)) 1533 (concat ediff-diff3-options " " ediff-ignore-case-option3))