diff options
| -rw-r--r-- | chess-ics.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/chess-ics.el b/chess-ics.el index 92fa885..a5ac8fb 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -795,9 +795,9 @@ descending order.") (with-current-buffer (get-buffer-create chess-ics-sought-buffer-name) (chess-ics-sought-mode) - (setq chess-ics-sought-parent-buffer ics-buffer) (and chess-ics-popup-sought (display-buffer (current-buffer))) (current-buffer))) + (setq chess-ics-sought-parent-buffer ics-buffer) (let ((here (point))) (when (re-search-forward (concat "^" (regexp-quote id) " ") nil t) (goto-char (line-beginning-position)) @@ -858,7 +858,7 @@ This function should be put on `comint-preoutput-filter-functions'." (let ((here (point))) (while ids (goto-char (point-min)) - (when (re-search-forward (concat "^" (car ids) " ") nil t) + (when (re-search-forward (concat "^\\s-*" (car ids) " ") nil t) (delete-region (line-beginning-position) (1+ (line-end-position)))) (setq ids (cdr ids))) |