# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 934717328 0
# Node ID 577683f84100394ea37a5297bb72d0e19d27ccbc
# Parent  651362fe29625d8c21b352d1280fc34d55ed8618
(x-list-fonts): Return "ms-dos", not "default".
Do that if width is nil as well.
(x-display-mm-height, x-display-mm-width): Update values.
(x-colors): Compute the list from msdos-color-values.
(x-select-enable-clipboard): Doc fix.
(x-frob-font-weight, x-font-family-list): New functions.

diff -r 651362fe2962 -r 577683f84100 lisp/term/pc-win.el
--- a/lisp/term/pc-win.el	Sun Aug 15 04:56:33 1999 +0000
+++ b/lisp/term/pc-win.el	Sun Aug 15 11:42:08 1999 +0000
@@ -348,20 +348,20 @@
 ;; From src/xfns.c
 (defun x-display-color-p (&optional display) 't)
 (defun x-list-fonts (pattern &optional face frame maximum width)
-  (if (and (numberp width) (= width 1))
-      (list "default")
+  (if (or (null width) (and (numberp width) (= width 1)))
+      (list "ms-dos")
     (list "no-such-font")))
 (defun x-color-defined-p (color) (numberp (msdos-color-translate color)))
 (defun x-display-pixel-width (&optional frame) (frame-width frame))
 (defun x-display-pixel-height (&optional frame) (frame-height frame))
-(defun x-display-planes (&optional frame) 4) ; 3 for background, actually
-(defun x-display-color-cells (&optional frame) 16) ; ???
+(defun x-display-planes (&optional frame) 4) ;bg switched to 16 colors as well
+(defun x-display-color-cells (&optional frame) 16)
 (defun x-server-max-request-size (&optional frame) 1000000) ; ???
 (defun x-server-vendor (&optional frame) t "GNU")
 (defun x-server-version (&optional frame) '(1 0 0))
 (defun x-display-screens (&optional frame) 1)
-(defun x-display-mm-height (&optional frame) 200) ; Guess the size of my
-(defun x-display-mm-width (&optional frame) 253)  ; monitor, MW...
+(defun x-display-mm-height (&optional frame) 245) ; Guess the size of my
+(defun x-display-mm-width (&optional frame) 322)  ; monitor, EZ...
 (defun x-display-backing-store (&optional frame) 'not-useful)
 (defun x-display-visual-class (&optional frame) 'static-color)
 (fset 'x-display-save-under 'ignore)
@@ -380,22 +380,7 @@
 ;; From lisp/term/x-win.el
 (setq x-display-name "pc")
 (setq split-window-keep-point t)
-(defvar x-colors '("black"
-		   "blue"
-		   "green"
-		   "cyan"
-		   "red"
-		   "magenta"
-		   "brown"
-		   "lightgray"
-		   "darkgray"
-		   "lightblue"
-		   "lightgreen"
-		   "lightcyan"
-		   "lightred"
-		   "lightmagenta"
-		   "yellow"
-		   "white")
+(defvar x-colors (mapcar 'car msdos-color-values)
   "The list of colors available on a PC display under MS-DOS.")
 (defun x-defined-colors (&optional frame)
   "Return a list of colors supported for a particular frame.
@@ -420,8 +405,7 @@
 (defvar x-last-selected-text nil)
 
 (defvar x-select-enable-clipboard t
-  "Non-nil means cutting and pasting uses the clipboard.
-This is in addition to the primary selection.")
+  "Non-nil means cutting and pasting uses the clipboard.")
 
 (defun x-select-text (text &optional push)
   (if x-select-enable-clipboard 
@@ -457,6 +441,15 @@
 ;; it, no matter which variety they've asked for.
 (defun x-frob-font-slant (font which)
   font)
+(defun x-frob-font-weight (font which)
+  font)
+(defun x-font-family-list ()
+  "Return a list of available font families on FRAME.\n\
+If FRAME is omitted or nil, use the selected frame.\n\
+Value is a list of conses (FAMILY . FIXED-P) where FAMILY\n\
+is a font family, and FIXED-P is non-nil if fonts of that family\n\
+are fixed-pitch."
+  '(("default" . t)))
 
 ;; From src/fontset.c:
 (fset 'query-fontset 'ignore)