# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 965547090 0
# Node ID 35d2f8b86ee9cdb5aa913ecd6105b8362250c5fc
# Parent  5dcc1588f659ab9c4d3f0b7ce23fa9eb25072f58
(bs-apply-sort-faces): Don't use window-system, since all
types of display support faces now.

diff -r 5dcc1588f659 -r 35d2f8b86ee9 lisp/bs.el
--- a/lisp/bs.el	Sat Aug 05 20:10:32 2000 +0000
+++ b/lisp/bs.el	Sun Aug 06 07:31:30 2000 +0000
@@ -963,15 +963,14 @@
          bs--current-sort-function)))
     (save-excursion
       (goto-char (point-min))
-      (if (and window-system
-        (nth 2 sort-description)
-        (search-forward-regexp (nth 2 sort-description) nil t))
-   (let ((inhibit-read-only t))
-     (put-text-property (match-beginning 0)
-          (match-end 0)
-          'face
-          (or (nth 3 sort-description)
-       'region)))))))
+      (if (and (nth 2 sort-description)
+	       (search-forward-regexp (nth 2 sort-description) nil t))
+	  (let ((inhibit-read-only t))
+	    (put-text-property (match-beginning 0)
+			       (match-end 0)
+			       'face
+			       (or (nth 3 sort-description)
+				   'region)))))))
 
 (defun bs-toggle-show-all ()
   "Toggle show all buffers / show buffers with current configuration."