(lambda ()
(let ((buffers riece-buffer-list))
(while buffers
- (if (and (buffer-live-p (car buffers))
- (eq (derived-mode-class
- (with-current-buffer (car buffers)
- major-mode))
- 'riece-dialogue-mode))
- (riece-shrink-buffer (car buffers)))
+ (if (buffer-live-p (car buffers))
+ (if (eq (derived-mode-class
+ (with-current-buffer (car buffers)
+ major-mode))
+ 'riece-dialogue-mode)
+ (riece-shrink-buffer (car buffers)))
+ (deql (car buffers) riece-buffer-list))
(setq buffers (cdr buffers))))))))
(switch-to-buffer riece-command-buffer)
(riece-display-connect-signals)
(let* ((inhibit-read-only t)
buffer-read-only
(start (point))
- (end (progn (beginning-of-line 2) (point)))
+ (end (progn (beginning-of-line
+ (1+ riece-buffer-shrink-buffer-remove-lines))
+ (point)))
(overlays (riece-overlays-in start end)))
(while overlays
(riece-delete-overlay (car overlays))