diff options
| author | Mario Lang <mlang@delysid.org> | 2014-04-02 11:46:57 +0200 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2014-04-02 11:46:57 +0200 |
| commit | 1fc044d29b5de80a0c7bca22dee15432a3904a9e (patch) | |
| tree | f20eaf5c56d9d696e0104f8d283363a28d385e6c /chess-ics.el | |
| parent | ad80cdf9b05c79febe5b1e27362d0612bce1de0b (diff) | |
Fix ics seek ads removal.
Diffstat (limited to 'chess-ics.el')
| -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))) |