From 78cb8cb1c5195fe0e1cdfd0e378ff2d57be08514 Mon Sep 17 00:00:00 2001 From: bg66 Date: Fri, 2 May 2003 08:14:41 +0000 Subject: [PATCH] * liece-channel.el (liece-channel-list-redisplay-buffer): Fix last change. --- lisp/liece-channel.el | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/lisp/liece-channel.el b/lisp/liece-channel.el index 13595e4..fa46f09 100644 --- a/lisp/liece-channel.el +++ b/lisp/liece-channel.el @@ -542,19 +542,19 @@ If NOSW is non-nil do not switch to newly created channel." (save-selected-window (select-window window) (goto-char (point-min)) - (re-search-forward (concat "^ ?[0-9]+: \\(" - (regexp-quote chnl) "\\)\\( " - (regexp-quote liece-channel-unread-character) - "\\|\\)$") nil t) - (set-window-point window (match-beginning 1)) - (when liece-highlight-mode - (let ((overlay (make-overlay (point) (match-end 1)))) - (liece-map-overlays - (lambda (ovl) - (if (overlay-get ovl 'liece-channel) - (delete-overlay ovl)))) - (overlay-put overlay 'face 'underline) - (overlay-put overlay 'liece-channel t))))))) + (when (re-search-forward (concat "^ ?[0-9]+: \\(" + (regexp-quote chnl) "\\)\\( " + (regexp-quote liece-channel-unread-character) + "\\|\\)$") nil t) + (set-window-point window (match-beginning 1)) + (when liece-highlight-mode + (let ((overlay (make-overlay (point) (match-end 1)))) + (liece-map-overlays + (lambda (ovl) + (if (overlay-get ovl 'liece-channel) + (delete-overlay ovl)))) + (overlay-put overlay 'face 'underline) + (overlay-put overlay 'liece-channel t)))))))) (provide 'liece-channel) -- 1.7.10.4