diff options
| -rw-r--r-- | lisp/simple.el | 27 |
1 files changed, 15 insertions, 12 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 14d1670b6ba..32f38790b38 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -1264,7 +1264,7 @@ specifies the value of ERROR-BUFFER." | |||
| 1264 | ;; Output goes in a separate buffer. | 1264 | ;; Output goes in a separate buffer. |
| 1265 | ;; Preserve the match data in case called from a program. | 1265 | ;; Preserve the match data in case called from a program. |
| 1266 | (save-match-data | 1266 | (save-match-data |
| 1267 | (if (string-match "[ \t]*&[ \t]*$" command) | 1267 | (if (string-match "[ \t]*&[ \t]*\\'" command) |
| 1268 | ;; Command ending with ampersand means asynchronous. | 1268 | ;; Command ending with ampersand means asynchronous. |
| 1269 | (let ((buffer (get-buffer-create | 1269 | (let ((buffer (get-buffer-create |
| 1270 | (or output-buffer "*Async Shell Command*"))) | 1270 | (or output-buffer "*Async Shell Command*"))) |
| @@ -1335,17 +1335,20 @@ and only used if a buffer is displayed." | |||
| 1335 | (if (= (buffer-size) 0) | 1335 | (if (= (buffer-size) 0) |
| 1336 | 0 | 1336 | 0 |
| 1337 | (count-lines (point-min) (point-max))))) | 1337 | (count-lines (point-min) (point-max))))) |
| 1338 | (cond ((or (<= lines 1) | 1338 | (cond ((and (or (<= lines 1) |
| 1339 | (<= lines | 1339 | (<= lines |
| 1340 | (if resize-mini-windows | 1340 | (if resize-mini-windows |
| 1341 | (cond ((floatp max-mini-window-height) | 1341 | (cond ((floatp max-mini-window-height) |
| 1342 | (* (frame-height) | 1342 | (* (frame-height) |
| 1343 | max-mini-window-height)) | 1343 | max-mini-window-height)) |
| 1344 | ((integerp max-mini-window-height) | 1344 | ((integerp max-mini-window-height) |
| 1345 | max-mini-window-height) | 1345 | max-mini-window-height) |
| 1346 | (t | 1346 | (t |
| 1347 | 1)) | 1347 | 1)) |
| 1348 | 1))) | 1348 | 1))) |
| 1349 | ;; Don't use the echo area if the output buffer is | ||
| 1350 | ;; already dispayed in the selected frame. | ||
| 1351 | (not (get-buffer-window buffer))) | ||
| 1349 | ;; Echo area | 1352 | ;; Echo area |
| 1350 | (goto-char (point-max)) | 1353 | (goto-char (point-max)) |
| 1351 | (when (bolp) | 1354 | (when (bolp) |