Mercurial > emacs
comparison lisp/man.el @ 7280:120470ed3960
(Man-notify-when-ready): Don't call select-frame if no window system.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 02 May 1994 19:40:19 +0000 |
| parents | e10dea2787a8 |
| children | 4fd40bd394fe |
comparison
equal
deleted
inserted
replaced
| 7279:89ed0051e237 | 7280:120470ed3960 |
|---|---|
| 487 ;; the selected window's buffer. | 487 ;; the selected window's buffer. |
| 488 (save-excursion | 488 (save-excursion |
| 489 (set-buffer man-buffer) | 489 (set-buffer man-buffer) |
| 490 (new-frame Man-frame-parameters))) | 490 (new-frame Man-frame-parameters))) |
| 491 ((eq Man-notify 'bully) | 491 ((eq Man-notify 'bully) |
| 492 (and (frame-live-p Man-original-frame) | 492 (and window-system |
| 493 (frame-live-p Man-original-frame) | |
| 493 (select-frame Man-original-frame)) | 494 (select-frame Man-original-frame)) |
| 494 (pop-to-buffer man-buffer) | 495 (pop-to-buffer man-buffer) |
| 495 (delete-other-windows)) | 496 (delete-other-windows)) |
| 496 ((eq Man-notify 'aggressive) | 497 ((eq Man-notify 'aggressive) |
| 497 (and (frame-live-p Man-original-frame) | 498 (and window-system |
| 499 (frame-live-p Man-original-frame) | |
| 498 (select-frame Man-original-frame)) | 500 (select-frame Man-original-frame)) |
| 499 (pop-to-buffer man-buffer)) | 501 (pop-to-buffer man-buffer)) |
| 500 ((eq Man-notify 'friendly) | 502 ((eq Man-notify 'friendly) |
| 501 (and (frame-live-p Man-original-frame) | 503 (and window-system |
| 504 (frame-live-p Man-original-frame) | |
| 502 (select-frame Man-original-frame)) | 505 (select-frame Man-original-frame)) |
| 503 (display-buffer man-buffer 'not-this-window)) | 506 (display-buffer man-buffer 'not-this-window)) |
| 504 ((eq Man-notify 'polite) | 507 ((eq Man-notify 'polite) |
| 505 (beep) | 508 (beep) |
| 506 (message "Manual buffer %s is ready." (buffer-name man-buffer))) | 509 (message "Manual buffer %s is ready." (buffer-name man-buffer))) |