# HG changeset patch # User Stefan Monnier # Date 1144796731 0 # Node ID 7d69833e0c1a638236e032c7579bd44dd0cd4372 # Parent 45937d0cd26d103900d4fbe67f10452fb3c91b8b (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. diff -r 45937d0cd26d -r 7d69833e0c1a lisp/ChangeLog --- a/lisp/ChangeLog Tue Apr 11 22:09:49 2006 +0000 +++ b/lisp/ChangeLog Tue Apr 11 23:05:31 2006 +0000 @@ -1,6 +1,13 @@ +2006-04-11 Stefan Monnier + + * vc.el (vc-ensure-vc-buffer): Only change current-buffer, not the + window configuration. + (vc-annotate-display-select): Select the buffer so that current-buffer + (and selected-window) is the output buffer at the end of vc-annotate. + 2006-04-11 J.D. Smith - * vc.el (vc-annotate-color-map): Added custom TTY color map for + * vc.el (vc-annotate-color-map): Add custom TTY color map for 8-color terminals, to use all of the colors in a sensible order. 256-color terminals work well with the standard map. (vc-annotate-lines): Only strip the first color character if it diff -r 45937d0cd26d -r 7d69833e0c1a lisp/vc.el --- a/lisp/vc.el Tue Apr 11 22:09:49 2006 +0000 +++ b/lisp/vc.el Tue Apr 11 23:05:31 2006 +0000 @@ -886,7 +886,7 @@ (if vc-dired-mode (set-buffer (find-file-noselect (dired-get-filename))) (while vc-parent-buffer - (pop-to-buffer vc-parent-buffer)) + (set-buffer vc-parent-buffer)) (if (not buffer-file-name) (error "Buffer %s is not associated with a file" (buffer-name)) (if (not (vc-backend buffer-file-name)) @@ -3047,9 +3047,7 @@ use; you may override this using the second optional arg MODE." (interactive) (if mode (setq vc-annotate-display-mode mode)) - (when buffer - (set-buffer buffer) - (display-buffer buffer)) + (pop-to-buffer (or buffer (current-buffer))) (cond ((null vc-annotate-display-mode) ;; The ratio is global, thus relative to the global color-map. (kill-local-variable 'vc-annotate-color-map)