Mercurial > hg
changeset 4428:fa51e66117b4
mq.el: don't fill half the screen with a single line of output.
| author | Bryan O'Sullivan <bos@serpentine.com> |
|---|---|
| date | Tue, 08 May 2007 11:54:39 -0700 |
| parents | b59611e9dd64 |
| children | 3b0f73edee57 |
| files | contrib/mq.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/contrib/mq.el Tue May 08 11:54:39 2007 -0700 +++ b/contrib/mq.el Tue May 08 11:54:39 2007 -0700 @@ -147,7 +147,8 @@ (if patch (list patch)))) last-line (mq-last-line)) (let ((lines (count-lines (point-min) (point-max)))) - (if (and (equal lines 2) (string-match "Now at:" last-line)) + (if (or (<= lines 1) + (and (equal lines 2) (string-match "Now at:" last-line))) (progn (kill-buffer (current-buffer)) (delete-window))