summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>2000-08-06 07:32:15 +0000
committerEli Zaretskii <eliz@gnu.org>2000-08-06 07:32:15 +0000
commit6968a481f5e1c375b403263e233e9292196e1b79 (patch)
treecc7b132ceabc62604de706404066f5b61879cb0c
parente49aa397e852ffb6826439a728497e2d05cfbb48 (diff)
downloademacs-6968a481f5e1c375b403263e233e9292196e1b79.tar.gz
emacs-6968a481f5e1c375b403263e233e9292196e1b79.tar.bz2
emacs-6968a481f5e1c375b403263e233e9292196e1b79.zip
(bs-apply-sort-faces): Don't use window-system, since all
types of display support faces now.
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/bs.el17
2 files changed, 13 insertions, 9 deletions
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."