
(defun manual-entry (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 "sManual entry (topic): ") (byte-code "Ж€?… ОП	\"…! 	РС!ТС!O	РУ!ТУ!O‰€ФђХ
!€Љ
q€ЦЧ	ѓ: ШЩQ‚; Ъ#€ЖЖ…l ЫЬЭУOЮ	Я&‰!†l ЫЬЮ	Я&‰!ѓv а!‚» …» @	Ь	Ю	Я†– 	Об	\"†“ вTЖO%
ЖЫ
!ѓЄ а
!‚® ЖгдЏ€db+€A‰€‚v +€е ЭU…ЦжѓР зP‚С Ъ	#€ѓе иЖНЖ	&‚н иЖНЖ	%€е йW…eb€к €лмУ`\"!€Цн	\"€о €пЖ!€ЦЪ!)‘‡" [section topic standard-output dirlist manual-formatted-dirlist case-fold-search nil name manual-formatted-dir-prefix dir name1 completions manual-program t string-match "\\`[ 	]*\\([^( 	]+\\)[ 	]*(\\(.+\\))[ 	]*\\'" match-beginning 2 match-end 1 "*Manual Entry*" buffer-flush-undo message "Looking for formatted entry for %s%s..." "(" ")" "" file-exists-p concat 0 "/" "." insert-man-file "\\.[^./]*$" -2 (byte-code "Д	Е
† ЖQ\"‰€…\" ЗИ@Q!€A‰€‚ ‡" [completions topic section dir file-name-all-completions "." "" insert-man-file "/"] 6) ((file-error (byte-code "А‡" [nil] 1))) buffer-size "No formatted entry, invoking man %s%s..." " " call-process 80 end-of-line error buffer-substring "Cleaning manual entry for %s..." nuke-nroff-bs set-buffer-modified-p] 30))

(defun nuke-nroff-bs nil (interactive "*") (byte-code "А€eb€ЕЖАБ#…= `ЗZfg
Uѓ  ИЙ!‚8 
КUѓ, ИЙ!‚8 КU…8 Л`S`T\"*€‚ €eb€МНАБ#…P ОП!€‚A €eb€МР=ѓ_ С‚j Т=ѓi У‚j ФАБ#…w ОП!€‚T €eb€МХАБ#…Љ ОЦ!€‚{ €eb€ЧШ!€Лe`\"‡" [nil t preceding following system-type search-forward "" 2 delete-char -2 95 delete-region re-search-forward "^ *\\([A-Za-z][-_A-Za-z0-9]*([0-9A-Z]+)\\).*\\1$" replace-match "" hpux "^[ 	]*Hewlett-Packard\\(\\| Company\\)[ 	]*- [0-9]* -.*$" usg-unix-v "^ *Page [0-9]*.*(printed [0-9/]*)$" "^\\(Printed\\|Sun Release\\) [0-9].*[0-9]$" "


*" "

" skip-chars-forward "
"] 14))

(defun insert-man-file (name) (byte-code "ГДВOЕ\"† ЖЗ\"ѓ ИЙБВ$‚1 ГДВOК\"ѓ. ИЛВБВ%‚1 М!‡" [name t nil equal -2 ".Z" string-match "/cat[0-9][a-z]?\\.Z/" call-process "zcat" ".z" "pcat" insert-file-contents] 10))