# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 778207656 0
# Node ID 7615ef8778deaf53fcc8fc74fab9a8b2f3519aa0
# Parent  bb7bd2b068bff89b7514b85e2176ce5df5a7b88f
(make-help-screen): Don't call window-frame in a non-multi-frame Emacs.

diff -r bb7bd2b068bf -r 7615ef8778de lisp/help-macro.el
--- 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))