From: Eli Zaretskii <eliz@gnu.org>
Date: Sun, 6 Aug 2000 07:32:15 +0000 (+0000)
Subject: (bs-apply-sort-faces): Don't use window-system, since all
X-Git-Tag: emacs-pretest-21.0.90~2474
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6968a481f5e1c375b403263e233e9292196e1b79;p=emacs.git

(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 54d733a4ecc..9c0ecaca057 100644
--- 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 2a2cf700c53..20fe02c363d 100644
--- 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."