diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-06-14 21:44:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-06-14 21:44:34 +0000 |
| commit | 4a6e3980e26fda95587bff36c3a0efc0779f0202 (patch) | |
| tree | a6aa0e89926c2e628eb1efb436bb158872357e37 /lisp/emerge.el | |
| parent | 0fc2d0064d82d0d2cab1587a44e9b00e5c934a00 (diff) | |
| download | emacs-4a6e3980e26fda95587bff36c3a0efc0779f0202.tar.gz | |
(emerge-make-diff3-list): Pass ancestor second.
(emerge-extract-diffs3): Replace group-1 with group-2.
(emerge-handle-local-variables): Pass no arg to hack-local-variables.
Diffstat (limited to 'lisp/emerge.el')
| -rw-r--r-- | lisp/emerge.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/emerge.el b/lisp/emerge.el index 53749d7c445..d84812a2032 100644 --- a/lisp/emerge.el +++ b/lisp/emerge.el @@ -653,8 +653,8 @@ This is *not* a user option, since Emerge uses it for its own processing.") (shell-command (format "%s %s %s %s %s" emerge-diff3-program emerge-diff-options - (emerge-protect-metachars file-ancestor) (emerge-protect-metachars file-A) + (emerge-protect-metachars file-ancestor) (emerge-protect-metachars file-B)) t)) (emerge-prepare-error-list emerge-diff3-ok-lines-regexp) @@ -671,17 +671,17 @@ This is *not* a user option, since Emerge uses it for its own processing.") (beginning-of-line 2) (let ((agreement (buffer-substring (match-beginning 1) (match-end 1)))) ;; if the A and B files are the same, ignore the difference - (if (not (string-equal agreement "1")) + (if (not (string-equal agreement "2")) (setq list (cons - (let (group-2 group-3 pos) + (let (group-1 group-3 pos) (setq pos (point)) - (setq group-2 (emerge-get-diff3-group "2")) + (setq group-1 (emerge-get-diff3-group "1")) (goto-char pos) (setq group-3 (emerge-get-diff3-group "3")) - (vector (car group-2) (car (cdr group-2)) + (vector (car group-1) (car (cdr group-1)) (car group-3) (car (cdr group-3)) - (cond ((string-equal agreement "2") 'prefer-A) + (cond ((string-equal agreement "1") 'prefer-A) ((string-equal agreement "3") 'prefer-B) (t 'default-A)))) list)))))) @@ -1374,7 +1374,7 @@ These characteristics are restored by `emerge-restore-buffer-characteristics'." (defun emerge-handle-local-variables () (if emerge-process-local-variables (condition-case err - (hack-local-variables t) + (hack-local-variables) (error (message "Local-variables error in merge buffer: %s" (prin1-to-string err)))))) |