author | Bryan O'Sullivan <bos@serpentine.com> |
Tue, 08 May 2007 11:54:39 -0700 | |
changeset 4428 | fa51e66117b4 |
parent 4427 | b59611e9dd64 |
child 4429 | 3b0f73edee57 |
contrib/mq.el | file | annotate | diff | comparison | revisions |
--- 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))