--- /disk1/sources/emacs-21.3/lisp/vc.el	Mon Jan 20 12:03:30 2003
+++ vc.el	Thu Apr 17 11:27:14 2003
@@ -2941,6 +2941,7 @@
   (vc-ensure-vc-buffer)
   (let* ((temp-buffer-name (concat "*Annotate " (buffer-name) "*"))
          (temp-buffer-show-function 'vc-annotate-display)
+	 (temp-truncate-lines truncate-lines)
          (rev (vc-workfile-version (buffer-file-name)))
          (vc-annotate-version 
           (if prefix (read-string 
@@ -2953,7 +2954,7 @@
                                    nil nil "1.0"))
             1.0))
          (vc-annotate-backend (vc-backend (buffer-file-name))))
-    (message "Annotating...")
+    (message "Annotating... %s" temp-truncate-lines)
     (if (not (vc-find-backend-function vc-annotate-backend 'annotate-command))
 	(error "Sorry, annotating is not implemented for %s"
 	       vc-annotate-backend))
@@ -2962,6 +2963,9 @@
 		       (file-name-nondirectory (buffer-file-name))
 		       (get-buffer temp-buffer-name)
                        vc-annotate-version))
+    (save-excursion
+      (set-buffer temp-buffer-name)
+      (setq truncate-lines temp-truncate-lines))
     ;; Don't use the temp-buffer-name until the buffer is created
     ;; (only after `with-output-to-temp-buffer'.)
     (setq vc-annotate-buffers