Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
8d2b0a2d
Commit
8d2b0a2d
authored
Jul 16, 1994
by
Richard M. Stallman
Browse files
(make-help-screen): Handle case where *Help* comes up in a separate frame.
parent
d536293f
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
13 additions
and
2 deletions
+13
-2
lisp/help-macro.el
lisp/help-macro.el
+13
-2
No files found.
lisp/help-macro.el
View file @
8d2b0a2d
...
...
@@ -99,7 +99,8 @@ and then returns."
;; and where we execute the chosen help command.
(
local-map
(
make-sparse-keymap
))
(
minor-mode-map-alist
nil
)
config
key
char
)
(
prev-frame
(
selected-frame
))
config
new-frame
key
char
)
(
unwind-protect
(
progn
(
setcdr
local-map
(
,
helped-map
))
...
...
@@ -113,13 +114,20 @@ 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
))
(
erase-buffer
)
(
insert
help-screen
)
(
goto-char
(
point-min
))
(
while
(
or
(
memq
char
(
cons
help-char
'
(
??
?\C-v
?\ ?\177
delete
?\M-v
)))
(
eq
(
car-safe
char
)
'switch-frame
)
(
equal
key
"\M-v"
))
(
condition-case
nil
(
progn
(
if
(
eq
(
car-safe
char
)
'switch-frame
)
(
handle-switch-frame
char
))
(
if
(
memq
char
'
(
?\C-v
?\
))
(
scroll-up
))
(
if
(
or
(
memq
char
'
(
?\177
?\M-v
delete
))
...
...
@@ -149,9 +157,12 @@ and then returns."
(
progn
(
set-window-configuration
config
)
(
setq
config
nil
)))
(
setq
overriding-local-map
nil
)
(
if
new-frame
(
progn
(
iconify-frame
new-frame
)
(
setq
new-frame
nil
)))
(
call-interactively
defn
))
(
ding
)))))
(
if
new-frame
(
iconify-frame
new-frame
))
(
if
config
(
set-window-configuration
config
))))))
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment