diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-08-30 00:47:36 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-08-30 00:47:36 +0000 |
| commit | 8fdae34aa3eb4dc9b0a45d765717bacc7a0e2cab (patch) | |
| tree | 8fb03e8710dd8392c678137f9e53f0f94ba3acf1 /lisp/help-macro.el | |
| parent | 24c22852415ce86821b95db64fa70b4e84a4e383 (diff) | |
| download | emacs-8fdae34aa3eb4dc9b0a45d765717bacc7a0e2cab.tar.gz | |
(make-help-screen): Don't call window-frame in a non-multi-frame Emacs.
Diffstat (limited to 'lisp/help-macro.el')
| -rw-r--r-- | lisp/help-macro.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/help-macro.el b/lisp/help-macro.el index 83e7b09b35c..55f63f25c5e 100644 --- a/lisp/help-macro.el +++ b/lisp/help-macro.el @@ -114,10 +114,11 @@ and then returns." (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)) |