diff options
| author | Karoly Lorentey | 2006-06-12 07:27:12 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2006-06-12 07:27:12 +0000 |
| commit | 476e9367ec1f440aa23904b7bc482ea4a3b8041c (patch) | |
| tree | 4f7f5a5e9a6668f908834bb6e216c8fa3727d4b3 /lisp/ediff-diff.el | |
| parent | a13f8f50d4cc544d3bbfa78568e82ce09e68bded (diff) | |
| parent | 6b519504c3297595101628e823e72c91e562ab45 (diff) | |
| download | emacs-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.el | 20 |
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'. |
| 131 | If Unix diff is used as `ediff-diff-program', then a useful option is | 133 | If 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. |
| 133 | Options `-c' and `-i' are not allowed. Case sensitivity can be toggled | 135 | Options `-c' and `-i' are not allowed. Case sensitivity can be |
| 134 | interactively 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)) |