Mercurial > emacs

changeset 8661:7615ef8778de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 bb7bd2b068bf
children 627a2ed242c0
files lisp/help-macro.el
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
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))