+2008-01-16 Dan Nicolaescu <dann@ics.uci.edu>
+
+ * 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.
+
2008-01-16 Ulf Jasper <ulf.jasper@web.de>
* calendar/icalendar.el (icalendar-version): Increase to 0.16.
;; do want to reset the mode for VC, so we do it explicitly.
(vc-find-file-hook)
(when (eq (cvs-fileinfo->type fileinfo) 'CONFLICT)
- (smerge-auto))))))))
+ (smerge-start-session))))))))
\f
(defun cvs-change-cvsroot (newroot)
(smerge-remove-props (point-min) (point-max))))
;;;###autoload
-(defun smerge-auto ()
+(defun smerge-start-session ()
"Turn on `smerge-mode' and move point to first conflict marker.
If no conflict maker is found, turn off `smerge-mode'."
(smerge-mode 1)
(if (not (re-search-forward "^<<<<<<< " nil t))
;; The .rej file is obsolete.
(condition-case nil (delete-file rej) (error nil))
- (smerge-auto)
+ (smerge-mode 1)
(add-hook 'after-save-hook
'vc-arch-delete-rej-if-obsolete nil t)
(message "There are unresolved conflicts in this file")))
(re-search-forward "^<<<<<<< " nil t))
;; There are conflict markers.
(progn
- (smerge-auto)
+ (smerge-start-session)
(add-hook 'after-save-hook 'vc-svn-resolve-when-done nil t))
;; There are no conflict markers. This is problematic: maybe it means
;; the conflict has been resolved and we should immediately call "svn
(defun vc-maybe-resolve-conflicts (file status &optional name-A name-B)
(vc-resynch-buffer file t (not (buffer-modified-p)))
(if (zerop status) (message "Merge successful")
- (smerge-auto)
+ (smerge-mode 1)
(message "File contains conflicts.")))
;;;###autoload