aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDan Nicolaescu2008-01-16 06:22:59 +0000
committerDan Nicolaescu2008-01-16 06:22:59 +0000
commit28e4e2b434e3574f01b69c585dcccaecde6c940f (patch)
treed53753a8d53617c9b9221d8f7bca31d78fdff120
parent8772b5a8566ddab4aea41c6bd24d4498f56f793b (diff)
downloademacs-28e4e2b434e3574f01b69c585dcccaecde6c940f.tar.gz
emacs-28e4e2b434e3574f01b69c585dcccaecde6c940f.zip
* smerge-mode.el (smerge-start-session): Rename from smerge-auto.
* pcvs.el (cvs-revert-if-needed): * vc.el (vc-maybe-resolve-conflicts): Rename callers. * vc-svn.el (vc-svn-find-file-hook): * vc-arch.el (vc-arch-find-file-hook): Undo previous change.
-rw-r--r--lisp/ChangeLog9
-rw-r--r--lisp/pcvs.el2
-rw-r--r--lisp/smerge-mode.el2
-rw-r--r--lisp/vc-arch.el2
-rw-r--r--lisp/vc-svn.el2
-rw-r--r--lisp/vc.el2
6 files changed, 14 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2ee346b33a2..8ae0d57023d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
12008-01-16 Dan Nicolaescu <dann@ics.uci.edu>
2
3 * smerge-mode.el (smerge-start-session): Rename from smerge-auto.
4 * pcvs.el (cvs-revert-if-needed):
5 * vc.el (vc-maybe-resolve-conflicts): Rename callers.
6
7 * vc-svn.el (vc-svn-find-file-hook):
8 * vc-arch.el (vc-arch-find-file-hook): Undo previous change.
9
12008-01-16 Ulf Jasper <ulf.jasper@web.de> 102008-01-16 Ulf Jasper <ulf.jasper@web.de>
2 11
3 * calendar/icalendar.el (icalendar-version): Increase to 0.16. 12 * calendar/icalendar.el (icalendar-version): Increase to 0.16.
diff --git a/lisp/pcvs.el b/lisp/pcvs.el
index 401962872a2..462597a277b 100644
--- a/lisp/pcvs.el
+++ b/lisp/pcvs.el
@@ -2311,7 +2311,7 @@ this file, or a list of arguments to send to the program."
2311 ;; do want to reset the mode for VC, so we do it explicitly. 2311 ;; do want to reset the mode for VC, so we do it explicitly.
2312 (vc-find-file-hook) 2312 (vc-find-file-hook)
2313 (when (eq (cvs-fileinfo->type fileinfo) 'CONFLICT) 2313 (when (eq (cvs-fileinfo->type fileinfo) 'CONFLICT)
2314 (smerge-auto)))))))) 2314 (smerge-start-session))))))))
2315 2315
2316 2316
2317(defun cvs-change-cvsroot (newroot) 2317(defun cvs-change-cvsroot (newroot)
diff --git a/lisp/smerge-mode.el b/lisp/smerge-mode.el
index e7352c4479e..f2a7a9caf9e 100644
--- a/lisp/smerge-mode.el
+++ b/lisp/smerge-mode.el
@@ -1050,7 +1050,7 @@ with a \\[universal-argument] prefix, makes up a 3-way conflict."
1050 (smerge-remove-props (point-min) (point-max)))) 1050 (smerge-remove-props (point-min) (point-max))))
1051 1051
1052;;;###autoload 1052;;;###autoload
1053(defun smerge-auto () 1053(defun smerge-start-session ()
1054 "Turn on `smerge-mode' and move point to first conflict marker. 1054 "Turn on `smerge-mode' and move point to first conflict marker.
1055If no conflict maker is found, turn off `smerge-mode'." 1055If no conflict maker is found, turn off `smerge-mode'."
1056 (smerge-mode 1) 1056 (smerge-mode 1)
diff --git a/lisp/vc-arch.el b/lisp/vc-arch.el
index 97c99dd8193..284fe032a25 100644
--- a/lisp/vc-arch.el
+++ b/lisp/vc-arch.el
@@ -360,7 +360,7 @@ Return non-nil if FILE is unchanged."
360 (if (not (re-search-forward "^<<<<<<< " nil t)) 360 (if (not (re-search-forward "^<<<<<<< " nil t))
361 ;; The .rej file is obsolete. 361 ;; The .rej file is obsolete.
362 (condition-case nil (delete-file rej) (error nil)) 362 (condition-case nil (delete-file rej) (error nil))
363 (smerge-auto) 363 (smerge-mode 1)
364 (add-hook 'after-save-hook 364 (add-hook 'after-save-hook
365 'vc-arch-delete-rej-if-obsolete nil t) 365 'vc-arch-delete-rej-if-obsolete nil t)
366 (message "There are unresolved conflicts in this file"))) 366 (message "There are unresolved conflicts in this file")))
diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el
index 16e10edc202..e463e138490 100644
--- a/lisp/vc-svn.el
+++ b/lisp/vc-svn.el
@@ -551,7 +551,7 @@ and that it passes `vc-svn-global-switches' to it before FLAGS."
551 (re-search-forward "^<<<<<<< " nil t)) 551 (re-search-forward "^<<<<<<< " nil t))
552 ;; There are conflict markers. 552 ;; There are conflict markers.
553 (progn 553 (progn
554 (smerge-auto) 554 (smerge-start-session)
555 (add-hook 'after-save-hook 'vc-svn-resolve-when-done nil t)) 555 (add-hook 'after-save-hook 'vc-svn-resolve-when-done nil t))
556 ;; There are no conflict markers. This is problematic: maybe it means 556 ;; There are no conflict markers. This is problematic: maybe it means
557 ;; the conflict has been resolved and we should immediately call "svn 557 ;; the conflict has been resolved and we should immediately call "svn
diff --git a/lisp/vc.el b/lisp/vc.el
index cc2627bb792..ac83365613b 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -2245,7 +2245,7 @@ See Info node `Merging'."
2245(defun vc-maybe-resolve-conflicts (file status &optional name-A name-B) 2245(defun vc-maybe-resolve-conflicts (file status &optional name-A name-B)
2246 (vc-resynch-buffer file t (not (buffer-modified-p))) 2246 (vc-resynch-buffer file t (not (buffer-modified-p)))
2247 (if (zerop status) (message "Merge successful") 2247 (if (zerop status) (message "Merge successful")
2248 (smerge-auto) 2248 (smerge-mode 1)
2249 (message "File contains conflicts."))) 2249 (message "File contains conflicts.")))
2250 2250
2251;;;###autoload 2251;;;###autoload