diff options
| author | Stefan Monnier | 2006-04-11 23:05:31 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2006-04-11 23:05:31 +0000 |
| commit | 8a8f8697fe793055cf10c6081de7c5675151ed1e (patch) | |
| tree | 2891a025be3516bbe53d86a130ca3ef3e2e90d86 | |
| parent | 21bc768b9b693f97940c56b9f4e80b9a7f486e34 (diff) | |
| download | emacs-8a8f8697fe793055cf10c6081de7c5675151ed1e.tar.gz emacs-8a8f8697fe793055cf10c6081de7c5675151ed1e.zip | |
(vc-ensure-vc-buffer): Only change current-buffer, not the window config.
(vc-annotate-display-select): Select the buffer so that current-buffer
(and selected-window) is the output buffer at the end of vc-annotate.
| -rw-r--r-- | lisp/ChangeLog | 9 | ||||
| -rw-r--r-- | lisp/vc.el | 6 |
2 files changed, 10 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dbc1231354c..b7dcf022996 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,6 +1,13 @@ | |||
| 1 | 2006-04-11 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 2 | |||
| 3 | * vc.el (vc-ensure-vc-buffer): Only change current-buffer, not the | ||
| 4 | window configuration. | ||
| 5 | (vc-annotate-display-select): Select the buffer so that current-buffer | ||
| 6 | (and selected-window) is the output buffer at the end of vc-annotate. | ||
| 7 | |||
| 1 | 2006-04-11 J.D. Smith <jdsmith@as.arizona.edu> | 8 | 2006-04-11 J.D. Smith <jdsmith@as.arizona.edu> |
| 2 | 9 | ||
| 3 | * vc.el (vc-annotate-color-map): Added custom TTY color map for | 10 | * vc.el (vc-annotate-color-map): Add custom TTY color map for |
| 4 | 8-color terminals, to use all of the colors in a sensible order. | 11 | 8-color terminals, to use all of the colors in a sensible order. |
| 5 | 256-color terminals work well with the standard map. | 12 | 256-color terminals work well with the standard map. |
| 6 | (vc-annotate-lines): Only strip the first color character if it | 13 | (vc-annotate-lines): Only strip the first color character if it |
diff --git a/lisp/vc.el b/lisp/vc.el index 96d85e7b1e0..19b2f0f4a72 100644 --- a/lisp/vc.el +++ b/lisp/vc.el | |||
| @@ -886,7 +886,7 @@ However, before executing BODY, find FILE, and after BODY, save buffer." | |||
| 886 | (if vc-dired-mode | 886 | (if vc-dired-mode |
| 887 | (set-buffer (find-file-noselect (dired-get-filename))) | 887 | (set-buffer (find-file-noselect (dired-get-filename))) |
| 888 | (while vc-parent-buffer | 888 | (while vc-parent-buffer |
| 889 | (pop-to-buffer vc-parent-buffer)) | 889 | (set-buffer vc-parent-buffer)) |
| 890 | (if (not buffer-file-name) | 890 | (if (not buffer-file-name) |
| 891 | (error "Buffer %s is not associated with a file" (buffer-name)) | 891 | (error "Buffer %s is not associated with a file" (buffer-name)) |
| 892 | (if (not (vc-backend buffer-file-name)) | 892 | (if (not (vc-backend buffer-file-name)) |
| @@ -3047,9 +3047,7 @@ BUFFER. `vc-annotate-display-mode' specifies the highlighting mode to | |||
| 3047 | use; you may override this using the second optional arg MODE." | 3047 | use; you may override this using the second optional arg MODE." |
| 3048 | (interactive) | 3048 | (interactive) |
| 3049 | (if mode (setq vc-annotate-display-mode mode)) | 3049 | (if mode (setq vc-annotate-display-mode mode)) |
| 3050 | (when buffer | 3050 | (pop-to-buffer (or buffer (current-buffer))) |
| 3051 | (set-buffer buffer) | ||
| 3052 | (display-buffer buffer)) | ||
| 3053 | (cond ((null vc-annotate-display-mode) | 3051 | (cond ((null vc-annotate-display-mode) |
| 3054 | ;; The ratio is global, thus relative to the global color-map. | 3052 | ;; The ratio is global, thus relative to the global color-map. |
| 3055 | (kill-local-variable 'vc-annotate-color-map) | 3053 | (kill-local-variable 'vc-annotate-color-map) |