mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(smerge-ediff): Add name-{mine,other,base} args.

Browse Source
This commit is contained in:
Stefan Monnier 2002-10-04 15:25:22 +00:00
parent e989b9bcaf
commit 15092da1f1
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/smerge-mode.el
View File

@ -4,7 +4,7 @@
;; Author: Stefan Monnier <monnier@cs.yale.edu>
;; Keywords: merge diff3 cvs conflict
;; Revision: $Id: smerge-mode.el,v 1.16 2002/08/15 00:24:56 monnier Exp $
;; Revision: $Id: smerge-mode.el,v 1.17 2002/09/03 01:20:20 monnier Exp $
;; This file is part of GNU Emacs.
@ -417,16 +417,20 @@ The point is moved to the end of the conflict."
(defvar ediff-buffer-B)
(defvar ediff-buffer-C)
(defun smerge-ediff ()
"Invoke ediff to resolve the conflicts."
(defun smerge-ediff (&optional name-mine name-other name-base)
"Invoke ediff to resolve the conflicts.
NAME-MINE, NAME-OTHER, and NAME-BASE, if non-nil, are used for the
buffer names."
(interactive)
(let* ((buf (current-buffer))
(mode major-mode)
;;(ediff-default-variant 'default-B)
(config (current-window-configuration))
(filename (file-name-nondirectory buffer-file-name))
(mine (generate-new-buffer (concat "*" filename " MINE*")))
(other (generate-new-buffer (concat "*" filename " OTHER*")))
(mine (generate-new-buffer
(or name-mine (concat "*" filename " MINE*"))))
(other (generate-new-buffer
(or name-other (concat "*" filename " OTHER*"))))
base)
(with-current-buffer mine
(buffer-disable-undo)
@ -450,7 +454,8 @@ The point is moved to the end of the conflict."
(funcall mode))
(when base
(setq base (generate-new-buffer (concat "*" filename " BASE*")))
(setq base (generate-new-buffer
(or name-base (concat "*" filename " BASE*"))))
(with-current-buffer base
(buffer-disable-undo)
(insert-buffer-substring buf)