diff options
| author | Dan Nicolaescu | 2008-01-16 06:22:59 +0000 |
|---|---|---|
| committer | Dan Nicolaescu | 2008-01-16 06:22:59 +0000 |
| commit | 28e4e2b434e3574f01b69c585dcccaecde6c940f (patch) | |
| tree | d53753a8d53617c9b9221d8f7bca31d78fdff120 | |
| parent | 8772b5a8566ddab4aea41c6bd24d4498f56f793b (diff) | |
| download | emacs-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/ChangeLog | 9 | ||||
| -rw-r--r-- | lisp/pcvs.el | 2 | ||||
| -rw-r--r-- | lisp/smerge-mode.el | 2 | ||||
| -rw-r--r-- | lisp/vc-arch.el | 2 | ||||
| -rw-r--r-- | lisp/vc-svn.el | 2 | ||||
| -rw-r--r-- | lisp/vc.el | 2 |
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 @@ | |||
| 1 | 2008-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 | |||
| 1 | 2008-01-16 Ulf Jasper <ulf.jasper@web.de> | 10 | 2008-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. |
| 1055 | If no conflict maker is found, turn off `smerge-mode'." | 1055 | If 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 |