(x-fixed-font-alist): Give some fonts long patterns.

Delete 9x15 bold and 8x13 and 8x13 bold.  Add some fonts.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index a7e14a021df769d5c8f65df2c8394bbd15226f4c..3fb7c173621f32baf4123d6dcce9861ae6d6bd23 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -868,17 +868,23 @@ and selects that window."
 (defvar x-fixed-font-alist
   '("Font menu"
     ("Misc"
+     ("6x10" "-misc-fixed-medium-r-semicondensed--10-110-75-75-c-60-*-1")
+     ("6x12" "-misc-fixed-medium-r-semicondensed--12-110-75-75-c-60-*-1")
+     ("6x13" "-misc-fixed-medium-r-semicondensed--13-120-75-75-c-60-*-1")
+     ("lucida 13"
+      "-b&h-lucidatypewriter-medium-r-normal-sans-0-0-0-0-m-0-*-1")
+     ("7x13" "-misc-fixed-medium-r-normal--13-120-75-75-c-70-*-1")
+     ("7x14" "-misc-fixed-medium-r-normal--14-130-75-75-c-70-*-1")
+     ("9x15" "-misc-fixed-medium-r-normal--15-140-*-*-c-*-*-1")
+     ("")
+     ("clean 8x8" "-schumacher-clean-medium-r-normal--*-80-*-*-c-*-*-1")
+     ("clean 8x14" "-schumacher-clean-medium-r-normal--*-140-*-*-c-*-*-1")
+     ("clean 8x10" "-schumacher-clean-medium-r-normal--*-100-*-*-c-*-*-1")
+     ("clean 8x16" "-schumacher-clean-medium-r-normal--*-160-*-*-c-*-*-1")
+     ("")
+     ("sony 8x16" "-sony-fixed-medium-r-normal--16-120-100-100-c-80-*-1")
+     ("")
      ("fixed" "fixed")
-     ("6x10" "6x10")
-     ("6x12" "6x12")
-     ("6x13" "6x13")
-     ("7x13" "7x13")
-     ("7x14" "7x14")
-     ("8x13" "8x13")
-     ("8x13 bold" "8x13bold")
-     ("8x16" "8x16")
-     ("9x15" "9x15")
-     ("9x15 bold" "9x15bold")
      ("10x20" "10x20")
      ("11x18" "11x18")
      ("12x24" "12x24"))