From 6968a481f5e1c375b403263e233e9292196e1b79 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 6 Aug 2000 07:32:15 +0000 Subject: [PATCH] (bs-apply-sort-faces): Don't use window-system, since all types of display support faces now. --- lisp/ChangeLog | 5 +++++ lisp/bs.el | 17 ++++++++--------- 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 + + * bs.el (bs-apply-sort-faces): Don't use window-system, since all + types of display support faces now. + 2000-08-05 Gerd Moellmann * 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." -- 2.39.2