# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 816025247 0
# Node ID be831ed47a75c0101a7c4be5ad78eab2c44342cb
# Parent  6ae78193650ef28660a4e6e258dc6638cc3e0f7d
(x-display-color-p): Accept optional arg.

diff -r 6ae78193650e -r be831ed47a75 lisp/term/pc-win.el
--- a/lisp/term/pc-win.el	Fri Nov 10 17:39:54 1995 +0000
+++ b/lisp/term/pc-win.el	Fri Nov 10 17:40:47 1995 +0000
@@ -108,7 +108,7 @@
 ;; a useful function for returning 'nil regardless of argument.
 
 ;; From src/xfns.c
-(defun x-display-color-p () 't)
+(defun x-display-color-p (&optional display) 't)
 (fset 'focus-frame 'ignore)
 (fset 'unfocus-frame 'ignore)
 (defun x-list-fonts (pattern &optional face frame) (list "default"))