Mercurial > emacs

comparison lisp/man.el @ 22368:c3a15ab5924f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Man-kill, Man-quit): Use quit-window.
author Richard M. Stallman <rms@gnu.org>
date Fri, 05 Jun 1998 22:54:28 +0000
parents e83578642825
children a804a047b23d
comparison
equal deleted inserted replaced
22367:5485d428a9c3 22368:c3a15ab5924f
1065 (Man-translate-references (aheadsym Man-refpages-alist))))) 1065 (Man-translate-references (aheadsym Man-refpages-alist)))))
1066 1066
1067 (defun Man-kill () 1067 (defun Man-kill ()
1068 "Kill the buffer containing the manpage." 1068 "Kill the buffer containing the manpage."
1069 (interactive) 1069 (interactive)
1070 (let ((buff (current-buffer))) 1070 (quit-window t))
1071 (delete-windows-on buff)
1072 (kill-buffer buff))
1073 (if (and window-system
1074 (or (eq Man-notify-method 'newframe)
1075 (and pop-up-frames
1076 (eq Man-notify-method 'bully))))
1077 (delete-frame)))
1078 1071
1079 (defun Man-quit () 1072 (defun Man-quit ()
1080 "Bury the buffer containing the manpage." 1073 "Bury the buffer containing the manpage."
1081 (interactive) 1074 (interactive)
1082 (let ((buff (current-buffer))) 1075 (quit-window))
1083 (delete-windows-on buff)
1084 (bury-buffer buff))
1085 (if (and window-system
1086 (or (eq Man-notify-method 'newframe)
1087 (and pop-up-frames
1088 (eq Man-notify-method 'bully))))
1089 (delete-frame)))
1090 1076
1091 (defun Man-goto-page (page) 1077 (defun Man-goto-page (page)
1092 "Go to the manual page on page PAGE." 1078 "Go to the manual page on page PAGE."
1093 (interactive 1079 (interactive
1094 (if (not Man-page-list) 1080 (if (not Man-page-list)