
(defvar man-executable "/usr/ucb/man")

(defun man (topic &optional section) "\
Display the Unix manual entry for TOPIC.
TOPIC is either the title of the entry, or has the form TITLE(SECTION)
where SECTION is the desired section of the manual, as in `tty(4)'." (interactive "sMan: ") (byte-code "Åˆ?… ÇÈ	\"…! 	ÉÊ!ËÊ!O	ÉÌ!ËÌ!O‰ˆÍÎ	ƒ0 ÏÐQ‚1 Ñ#Ò
!ƒA Ó!‚_ ÅÔÕÖ×ØÙ
!E…T C	C#\"Ú\")ˆÛÜ!*‡" [section topic bname buf process-connection-type nil man-executable string-match "\\`[ 	]*\\([^( 	]+\\)[ 	]*(\\(.+\\))[ 	]*\\'" match-beginning 2 match-end 1 format "*%s%s man page*" "(" ")" "" get-buffer display-buffer set-process-sentinel apply start-process append "man" generate-new-buffer man-sentinel message "Looking for man page ... "] 16))

(defun nuke-nroff-bs nil "\
Remove annoying formatting characters from the current buffer" (interactive) (byte-code "ÀˆebˆÁÂ!ˆm?… ÃÄ!ˆÅÆ!ˆ‚ ‡" [nil skip-chars-forward "^" backward-char 1 delete-char 2] 5))

(defun man-sentinel (proc state) "\
Process sentinel for a `man' process.  Determines if the 
man process succeeded; if so, it nukes the nroff bs and displays
the man page.  Otherwise, it informs the user of man's failure
and nukes the whole buffer." (byte-code "ÁŠÇ
!qˆebˆÈÉ!ƒ ÊË!ˆÌÇ
!!‚  Ã‰)ˆ…f Í ÎÏÇ
!!!ˆÊÐ!ˆÑ ˆÃ‰ˆebˆÒÁ!ˆÓ Ô!ˆÕÖ×#ˆÕØÙ#ˆÕÚÛ#)ˆÎ!))‡" [gotit nil proc t w buffer-read-only map process-buffer looking-at "No manual entry" message "Man page not found." kill-buffer selected-window select-window display-buffer "Making man page readable..." nuke-nroff-bs set-buffer-modified-p make-sparse-keymap use-local-map define-key "q" (lambda nil (interactive) (byte-code "ÁˆpÂÃ !ˆÄ!)‡" [obuf nil switch-to-buffer other-buffer bury-buffer] 4)) "" scroll-down " " scroll-up] 20))