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 | 4019e5be5005e5248435e9b3e5cdfad766fb1b22 (patch) | |
| tree | 917e299be1b6d33698adebf8e6018e0ec050efea /lisp | |
| parent | 3d144086a276a8473a4389955fbd34bbf05fd1d8 (diff) | |
| download | emacs-4019e5be5005e5248435e9b3e5cdfad766fb1b22.tar.gz | |
(make-help-screen): Don't call window-frame in a non-multi-frame Emacs.
Diffstat (limited to 'lisp')
| -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)) |