Mercurial > emacs
comparison lisp/man.el @ 22368:c3a15ab5924f
(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) |