Mercurial > emacs

changeset 83511:f714f11da40a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix `vc-annotate' under X. (Reported by Dan Nicolaescu.) * lisp/vc.el (vc-annotate-color-map): Call `tty-display-color-p' only on ttys. git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-551
author Karoly Lorentey <lorentey@elte.hu>
date Thu, 20 Apr 2006 12:37:41 +0000
parents 2d2f6f096f6e
children 5d328dadd0f4
files README.multi-tty lisp/vc.el
diffstat 2 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/README.multi-tty	Wed Apr 19 16:23:46 2006 +0000
+++ b/README.multi-tty	Thu Apr 20 12:37:41 2006 +0000
@@ -424,6 +424,9 @@
    exported to Lisp, this approach seems at least as ugly as the pty
    proxy idea.
 
+** lisp/vc.el depends on the terminal type during load time.
+   `vc-annotate-color-map' is one example that needs to be fixed.
+
 ** Understand how `quit_throw_to_read_char' works, and fix any bugs
    that come to light.
 
--- a/lisp/vc.el	Wed Apr 19 16:23:46 2006 +0000
+++ b/lisp/vc.el	Thu Apr 20 12:37:41 2006 +0000
@@ -617,7 +617,9 @@
 
 ;; Annotate customization
 (defcustom vc-annotate-color-map
-  (if (and (tty-display-color-p) (<= (display-color-cells) 8))
+  (if (and (not window-system)
+	   (tty-display-color-p)
+	   (<= (display-color-cells) 8))
       ;; A custom sorted TTY colormap
       (let* ((colors
 	      (sort