equal
deleted
inserted
replaced
145 (message "Pushing...") |
145 (message "Pushing...") |
146 (setq ok (= 0 (apply 'call-process (hg-binary) nil t t "qpush" |
146 (setq ok (= 0 (apply 'call-process (hg-binary) nil t t "qpush" |
147 (if patch (list patch)))) |
147 (if patch (list patch)))) |
148 last-line (mq-last-line)) |
148 last-line (mq-last-line)) |
149 (let ((lines (count-lines (point-min) (point-max)))) |
149 (let ((lines (count-lines (point-min) (point-max)))) |
150 (if (and (equal lines 2) (string-match "Now at:" last-line)) |
150 (if (or (<= lines 1) |
|
151 (and (equal lines 2) (string-match "Now at:" last-line))) |
151 (progn |
152 (progn |
152 (kill-buffer (current-buffer)) |
153 (kill-buffer (current-buffer)) |
153 (delete-window)) |
154 (delete-window)) |
154 (hg-view-mode prev-buf)))) |
155 (hg-view-mode prev-buf)))) |
155 (mq-refresh-buffers root) |
156 (mq-refresh-buffers root) |