(bs-apply-sort-faces): Don't use window-system, since all

types of display support faces now.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 54d733a4eccac1fb744ee8f01046579aaec88d1e..9c0ecaca057dd613a4a1669b4212f1f142f9e68e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-08-06  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * bs.el (bs-apply-sort-faces): Don't use window-system, since all
+       types of display support faces now.
+
 2000-08-05  Gerd Moellmann  <gerd@gnu.org>
 
        * pcvs.el (require): Require `cl' during compilation, only.

diff --git a/lisp/bs.el b/lisp/bs.el
index 2a2cf700c535378b686701150567507418ab1cd6..20fe02c363d492d634d53373e64c2cab9819eb50 100644 (file)
--- a/lisp/bs.el
+++ b/lisp/bs.el
@@ -963,15 +963,14 @@ Default is `bs--current-sort-function'."
          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."