home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / packages / man.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  7.2 KB  |  64 lines
  1. ;;; compiled by jwz@thalidomide on Fri Nov 13 02:09:00 1992
  2. ;;; from file /u/jwz/emacs19/lisp/packages/man.el
  3. ;;; emacs version 19.3.4 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (defconst Manual-program "man" "\
  14. *Name of the program to invoke in order to format the source man pages.")
  15. (defvar Manual-topic-buffer t "\
  16. *Non-nil means \\[Manual-entry] should output the manual entry for TOPIC into
  17. a buffer named *TOPIC Manual Entry*, otherwise, it should name the buffer
  18. *Manual Entry*.")
  19. (defvar Manual-buffer-view-mode t "\
  20. *Non-nil means that \\[view-buffer] is used to display the output from
  21. \\[Manual-entry]; nil means that the buffer is left in fundamental-mode
  22. in another window.")
  23. (defvar Manual-match-topic-exactly nil "\
  24. *Non-nil means that \\[manual-entry] will match the given TOPIC exactly, rather
  25. apply it as a pattern.  When this is nil, and \"Manual-query-multiple-pages\" is
  26. non-nil, then \\[manual-entry] will query you for all matching TOPICs.
  27. This variable only has affect on the preformatted man pages (the \"cat\" files),
  28. since the \"man\" command always does exact topic matches.")
  29. (defvar Manual-query-multiple-pages t "\
  30. *Non-nil means that \\[manual-entry] will query the user about multiple man
  31. pages which match the given topic.  The query is done using the function 
  32. \"y-or-n-p\".  If this variable is nil, all man pages with topics matching the
  33. topic given to \\[manual-entry] will be inserted into the temporary buffer.
  34. See the variable \"Manual-match-topic-exactly\" to control the matching.")
  35. (defvar Manual-directory-list nil "\
  36. *A list of directories used with the \"man\" command, where each directory
  37. contains a set of \"man?\" and \"cat?\" subdirectories.  If this variable is nil,
  38. it is initialized by \\[Manual-directory-list-init].")
  39. (defvar Manual-formatted-directory-list nil "\
  40. A list of directories containing formatted man pages.  Initialized by
  41. \\[Manual-directory-list-init].")
  42. (defvar Manual-unformatted-directory-list nil "\
  43. A list of directories containing the unformatted (source) man pages.  Initialized
  44. by \\[Manual-directory-list-init].")
  45. (fset 'Manual-directory-list-init #[(&optional arg) "½é┴\n¼╕├─!┴ë½Ñ╟╚\"½₧╔ëòOCñ╔òGW¡ç╔òT┴Oë¼[┴\n┴ *\n¼å╠\n═\"\n ?¡ç╠\n╬\"ë ç" [arg nil Manual-directory-list getenv "MANPATH" dirlist manpath string-match "[^:]+" 0 Manual-formatted-directory-list Manual-unformatted-directory-list Manual-select-subdirectories "cat" "man"] 5 "\
  46. Unless the variable Manual-directory-list is nil, initialize it using the
  47. MANPATH environment variable.  Once this variable is set,
  48. \\[Manual-directory-list-init] will not reinitialize it unless a prefix
  49. argument is given." "P"])
  50. (fset 'manual-entry #[(topic &optional arg) "└┴!ê┴┬├!¡ü ┼U¼à ╞U½à?¬é ╚Y┴ëëë    \n   ¼Ö╤╥\"½Æ┼ö┼òO ╘ö╘òO ╒ܽà╓    ¬╘╫╪ ½ç┘ ┌Q¬ü█#ê▄▌ \" $ ¼ä ¼¬╫▀ ½âα¬üß ½ç┘ ┌Q¬ü█$ê▄▌\" \" $\n ¼ë\n¼à    â½ «é\n@#$¡£    ½çσµQ¬æσ╤τ#\"¡ç#╘ö╘òOµQ    ½âΦ¬üΘP*δ \n\"ë,½╕,Aë-½ºε,@!ε-@!ܽÆ∩-@ \" ∩-@\n\"\n-Aë-¼Y),Aë,¼H)    ½è≡± #C\n*É≥3!êè3qê ½å⌠⌡ \"ê\n½å⌠÷\n\"ê≈ °W½îebê┴ê∙╘`{!ê╫· «é\nG╘V½â√¬äⁿP\"ê² ê■┴!ê┬├!¡ü ?½äü@╫█!)æê*¬ö╫üA ½ç┘ ┌Q¬ü█#êë.ç" [Manual-directory-list-init nil boundp temp-buffer-show-hook arg 2 4 Manual-match-topic-exactly 3 apropos-mode manlist fmtlist section force exact hook case-fold-search string-match "\\`[     ]*\\([^(     ]+\\)[     ]*(\\(.+\\))[     ]*\\'" topic 1 "-k" t message "Looking for formatted entry for %s%s..." "(" ")" "" Manual-select-man-pages Manual-select-directories Manual-formatted-directory-list "%sooking for unformatted entry for %s%s..." "L" "No formatted entry, l" Manual-unformatted-directory-list name Manual-topic-buffer "*" " " "/\\([^/]+\\)$" "*Manual Apropos*" "*Manual Entry*" bufname append rest rest2 file-name-nondirectory delq format "%s.%s" buffer-flush-undo standard-output mapcar #[(name) "dbê└┴┬Åêdbê├cç" [nil (Manual-insert-man-file name) ((file-error)) "\n\n-----\n"] 3] #[(name) "└ë├─\"ê╞ö╞òO╟ö╟òO╚╔    \n#ê╩ └╠└    \n&ê*═cç" [nil section topic string-match "\\([^/]+\\)\\.\\([^./]+\\)$" name 1 2 message "Invoking man %s %s ..." call-process Manual-program t "\n\n-----\n"] 7] buffer-size 80 error "Cleaning manual entr%s..." "ies" "y for " Manual-nuke-nroff-bs set-buffer-modified-p Manual-buffer-view-mode view-buffer "No entries found for %s%s"] 9 "\
  51. Display the Unix manual entry (or entries) for TOPIC.  If prefix
  52. arg is given, modify the search according to the value:
  53.   2 = toggle exact matching of the TOPIC name
  54.   3 = force a search of the unformatted man directories
  55.   4 = both 2 and 3
  56. The manual entries are searched according to the variable
  57. Manual-directory-list, which should be a list of directories.  If
  58. Manual-directory-list is nil, \\[Manual-directory-list-init] is
  59. invoked to create this list from the MANPATH environment variable.
  60. See the variable Manual-topic-buffer which controls how the buffer
  61. is named.  See also the variables Manual-match-topic-exactly,
  62. Manual-query-multiple-pages, and Manual-buffer-view-mode." (byte-code "└è┬├─┼#ê    ─xê`    ─wê`{)╟╚ܽâ╔¬à╩╦Q!ë ╚ܽä¬é +═!Dç" ["-A-Za-z0-9_" fmh re-search-backward "\\sw" nil t default read-string "" "Manual entry: " "Manual entry: (default " ") " thing prefix-numeric-value current-prefix-arg] 5)])
  63. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mê╩╚Mê╦╠Mç" [Manual-select-subdirectories #[(dirlist subdir) "└┴┬├ \"\"ç" [apply append mapcar #[(dir) "└    !¡ç┬├─    \"\"ç" [file-exists-p dir mapcar #[(name) "└    \n\"ç" [expand-file-name name dir] 3] file-name-all-completions subdir] 5] dirlist] 5] Manual-select-directories #[(dirlist section) "└┴\n\"ç" [mapcar #[(fmtdir) "½ï┴┬├O─P\"¡üç" [section string-match 0 1 "/$" fmtdir] 4] dirlist] 3] Manual-select-man-pages-iterator #[(file) "½ì┴┬ ─R\"╟=¡àPç" [exact string-match "^" topic "\\." section file 0 dir] 5] Manual-select-man-pages #[(dirlist topic section exact) "└┴┬├ \"\"ë½ì½ë└┴┬╟\"\"¬ü)ç" [apply append mapcar #[(dir) "└    !½ò┬├─┼╞¡ä╔PP    \"\"\"ç╩╦    \"ê├ç" [file-directory-p dir delq nil mapcar Manual-select-man-pages-iterator file-name-all-completions topic section "." message "warning: %s is not a directory"] 8] dirlist manlist Manual-query-multiple-pages #[(page) "¡è┴┬├\"!¡éCç" [page y-or-n-p format "Read %s? "] 4]] 6] Manual-nuke-nroff-bs #[nil "ebê└┴┬├#½┤`─ZfgU¼à╟U½å╚╔!ê¬ÿ╟U¼å╩U½ê`S`T|ê¬ä╚╦!ê*¬Eebê╠═┬├#½å╬╧!ê¬sebê╠╤=½â╥¬ô╙=½â╘¬è╒=½â╓¬ü╫┬├#½å╬╧!ê¬Xebê╠╪┬├#½å╬╧!ê¬sebê╠┘┬├#½å╬┌!ê¬sebê█┬wêe`|ç" [search-forward "" nil t 2 preceding following 95 delete-char -2 32 -1 re-search-forward "^ *\\([A-Za-z][-_A-Za-z0-9]*([0-9A-Za-z]+)\\).*\\1$" replace-match "" system-type hpux "^[     ]*Hewlett-Packard\\(\\| Company\\)[     ]*- [0-9]* -.*$" dgux-unix "^[     ]*Licensed material--.*Page [0-9]*$" usg-unix-v "^ *Page [0-9]*.*(printed [0-9/]*)$" "^\\(Printed\\|Sun Release\\) [0-9].*[0-9]$" "]" "\n\n\n\n*" "\n\n" "\n"] 4 nil "*"] nuke-nroff-bs Manual-insert-man-file #[(name) "┴┬O├ܽê─┼┬╞┬%ç┴┬O╟ܽê─╚┬╞┬%ç╔!ç" [name -2 nil ".Z" call-process "zcat" t ".z" "pcat" insert-file-contents] 6]] 2)
  64.