mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(Man-kill, Man-quit): Use quit-window.

Browse source
This commit is contained in:
Richard M. Stallman 1998-06-05 22:54:28 +00:00
parent bb801a426f
commit 06cab243ef
1 changed files with 2 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/man.el
View file

@ -1067,26 +1067,12 @@ Specify which reference to use; default is based on word at point."
(defun Man-kill ()
"Kill the buffer containing the manpage."
(interactive)
(let ((buff (current-buffer)))
(delete-windows-on buff)
(kill-buffer buff))
(if (and window-system
(or (eq Man-notify-method 'newframe)
(and pop-up-frames
(eq Man-notify-method 'bully))))
(delete-frame)))
(quit-window t))
(defun Man-quit ()
"Bury the buffer containing the manpage."
(interactive)
(let ((buff (current-buffer)))
(delete-windows-on buff)
(bury-buffer buff))
(if (and window-system
(or (eq Man-notify-method 'newframe)
(and pop-up-frames
(eq Man-notify-method 'bully))))
(delete-frame)))
(quit-window))
(defun Man-goto-page (page)
"Go to the manual page on page PAGE."