mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(Man-original-frame): New variable.

Browse Source 
(Man-getpage-in-background): Save the frame that man was invoked in.
(Man-notify-when-ready): Restore it, if appropriate.
This commit is contained in:
Karl Heuer 1994-03-15 05:12:14 +00:00
parent b09d7aa2a2
commit 75db9a6429
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/man.el
View File

@ -231,6 +231,7 @@ This regular expression should start with a `^' character.")
(make-variable-buffer-local 'Man-page-list)
(make-variable-buffer-local 'Man-current-page)
(make-variable-buffer-local 'Man-page-mode-string)
(make-variable-buffer-local 'Man-original-frame)
(setq-default Man-sections-alist nil)
(setq-default Man-refpages-alist nil)
@ -457,6 +458,9 @@ start a background process even if a buffer already exists and
(require 'env)
(message "Invoking man %s in background..." man-args)
(setq buffer (generate-new-buffer bufname))
(save-excursion
(set-buffer buffer)
(setq Man-original-frame (selected-frame)))
(let ((process-environment (copy-sequence process-environment)))
;; Prevent any attempt to use display terminal fanciness.
(setenv "TERM" "dumb")
@ -474,11 +478,17 @@ See the variable `Man-notify' for the different notification behaviors."
(set-buffer man-buffer)
(new-frame Man-frame-parameters))
((eq Man-notify 'bully)
(and (frame-live-p Man-original-frame)
(select-frame Man-original-frame))
(pop-to-buffer man-buffer)
(delete-other-windows))
((eq Man-notify 'aggressive)
(and (frame-live-p Man-original-frame)
(select-frame Man-original-frame))
(pop-to-buffer man-buffer))
((eq Man-notify 'friendly)
(and (frame-live-p Man-original-frame)
(select-frame Man-original-frame))
(display-buffer man-buffer 'not-this-window))
((eq Man-notify 'polite)
(beep)