From: "Gustav Hållberg" <gustav@virtutech.se>
Subject: vc-annotate does not copy truncate-lines from the origin buffer
Date: 17 Apr 2003 11:34:18 +0200 [thread overview]
Message-ID: <u6dadepwjqd.fsf@ash.hq.vtech> (raw)
[-- Attachment #1: Type: text/plain, Size: 315 bytes --]
If you have set truncate-lines in a buffer, it would make a lot of sense for
the vc-annotate command to use that setting in the newly created annotation
buffer too (the same could probably be said for other variables too, but this
is the one I was being annoyed by right now).
Suggested patch attached.
- Gustav
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: vc-annotate-truncate-lines.patch --]
[-- Type: text/x-patch, Size: 1269 bytes --]
--- /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
[-- Attachment #3: Type: text/plain, Size: 148 bytes --]
_______________________________________________
Bug-gnu-emacs mailing list
Bug-gnu-emacs@gnu.org
http://mail.gnu.org/mailman/listinfo/bug-gnu-emacs
next reply other threads:[~2003-04-17 9:34 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2003-04-17 9:34 Gustav Hållberg [this message]
2003-04-17 9:48 ` vc-annotate does not copy truncate-lines from the origin buffer Gustav Hållberg
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=u6dadepwjqd.fsf@ash.hq.vtech \
--to=gustav@virtutech.se \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).