Mercurial > emacs
diff lisp/help-macro.el @ 8661:7615ef8778de
(make-help-screen): Don't call window-frame in a non-multi-frame Emacs.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 30 Aug 1994 00:47:36 +0000 |
parents | 1ad35b4d9128 |
children | 258aaa4b66ed |
line wrap: on
line diff
--- a/lisp/help-macro.el Tue Aug 30 00:36:48 1994 +0000 +++ b/lisp/help-macro.el Tue Aug 30 00:47:36 1994 +0000 @@ -114,10 +114,11 @@ (progn (setq config (current-window-configuration)) (switch-to-buffer-other-window "*Help*") - (if (not (eq (window-frame (selected-window)) - prev-frame)) - (setq new-frame (window-frame (selected-window)) - config nil)) + (and (fboundp 'make-frame) + (not (eq (window-frame (selected-window)) + prev-frame)) + (setq new-frame (window-frame (selected-window)) + config nil)) (erase-buffer) (insert help-screen) (goto-char (point-min))