;ELC ;;; compiled by jwz@thalidomide on Sat May 21 01:34:42 1994 ;;; from file /th/jwz/emacs19/lisp/packages/man.el ;;; emacs version 19.10 Lucid (beta24). ;;; bytecomp version 2.24; 26-Apr-94. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (defvar Manual-program "man" "\ *Name of the program to invoke in order to format the source man pages.") (defvar Manual-section-switch (byte-code "=‡" [system-type usg-unix-v "-s"] 2) "\ SysV needs this to work right.") (defvar Manual-topic-buffer t "\ *Non-nil means \\[Manual-entry] should output the manual entry for TOPIC into a buffer named *man TOPIC*, otherwise, it should name the buffer *Manual Entry*.") (defvar Manual-buffer-view-mode t "\ *Whether manual buffers should be placed in view-mode. nil means leave the buffer in fundamental-mode in another window. t means use `view-buffer' to display the man page in the current window. Any other value means use `view-buffer-other-window'.") (defvar Manual-match-topic-exactly t "\ *Non-nil means that \\[manual-entry] will match the given TOPIC exactly, rather apply it as a pattern. When this is nil, and \"Manual-query-multiple-pages\" is non-nil, then \\[manual-entry] will query you for all matching TOPICs. This variable only has affect on the preformatted man pages (the \"cat\" files), since the \"man\" command always does exact topic matches.") (defvar Manual-query-multiple-pages nil "\ *Non-nil means that \\[manual-entry] will query the user about multiple man pages which match the given topic. The query is done using the function \"y-or-n-p\". If this variable is nil, all man pages with topics matching the topic given to \\[manual-entry] will be inserted into the temporary buffer. See the variable \"Manual-match-topic-exactly\" to control the matching.") (defvar Manual-mode-hook nil "\ Function or functions run on entry to Manual-mode.") (defvar Manual-directory-list nil "\ *A list of directories used with the \"man\" command, where each directory contains a set of \"man?\" and \"cat?\" subdirectories. If this variable is nil, it is initialized by \\[Manual-directory-list-init].") (defvar Manual-formatted-directory-list nil "\ A list of directories containing formatted man pages. Initialized by \\[Manual-directory-list-init].") (defvar Manual-unformatted-directory-list nil "\ A list of directories containing the unformatted (source) man pages. Initialized by \\[Manual-directory-list-init].") (defvar Manual-page-history nil "\ A list of names of previously visited man page buffers.") (defvar Manual-manpath-config-file "/usr/lib/manpath.config" "\ *Location of the manpath.config file, if any.") (byte-code "!!\"!\"!!\"!\"!!\"" [make-face man-italic face-differs-from-default-p copy-face italic set-face-underline-p t man-bold bold man-heading] 3) (fset 'Manual-directory-list-init #[(&optional arg) "\n!   Q   \" ͔͕OB ΕO Y,\n\"?\n\"" [arg nil Manual-directory-list getenv "MANPATH" Manual-manpath-config-contents dir dirlist global manpath ":" string-match "\\`:*\\([^:]+\\)" 1 0 Manual-formatted-directory-list Manual-unformatted-directory-list Manual-select-subdirectories "cat" "man"] 5 "\ Initialize the Manual-directory-list variable from $MANPATH if it is not already set, or if a prefix argument is provided." "P"]) (fset 'Manual-manpath-config-contents #[nil "!!q! !#!t ΔΕ{Qi! *" [Manual-manpath-config-file file-readable-p get-buffer-create " *Manual-config*" nil path buf buffer-disable-undo erase-buffer insert-file-contents re-search-forward "^\\(MANDATORY_MANPATH\\|MANPATH_MAP\\)" t "\\(/[^ \n]+\\)[ ]*$" 1 ":" kill-buffer] 5 "\ Parse the `Manual-manpath-config-file' file, if any. Returns a string like in $MANPATH."]) (fset 'manual-entry #[(topic &optional arg silent) "!UU?YÉ \n    \"ĔĕO O\" O) Ԛ   Q# %     ު  Q$   ? %\n \n\"\"\"A#\"@!#@!#@ \" #@\n\"\n#A#Y)\"A\"H) \n   Q#Â'  Q  Q A\nA \nP \n@!Q/=/=113  #C\n'3!3!q )113!!3!3:!:q;  \n #! ) @ A\"BA!*." [arg 1 Manual-directory-list-init nil 2 4 Manual-match-topic-exactly 3 t apropos-mode manlist fmtlist section force exact case-fold-search string-match "\\`[ ]*\\([^( ]+\\)[ ]*(\\(.+\\))[ ]*\\'" topic "\\`[ ]*-k[ ]+\\([^ ]+\\)\\'" "-k" silent message "Looking for formatted entry for %s%s..." "(" ")" "" Manual-select-man-pages Manual-formatted-directory-list "%sooking for unformatted entry for %s%s..." "L" "No formatted entry, l" Manual-unformatted-directory-list append rest rest2 file-name-nondirectory delq "No entries found for %s%s" Manual-topic-buffer "*Manual Apropos*" "*Manual Entry*" "*man apropos " "*" "*man " "." "..." Manual-buffer-view-mode view-buffer temp-buffer-show-function view-buffer-other-window bufname format "%s.%s" get-buffer Manual-mode display-buffer buffer-disable-undo standard-output buffer-read-only erase-buffer Manual-insert-pages set-buffer-modified-p buffer-name delete Manual-page-history] 8 "\ Display the Unix manual entry (or entries) for TOPIC. If prefix arg is given, modify the search according to the value: 2 = complement default exact matching of the TOPIC name; exact matching default is specified by `Manual-match-topic-exactly' 3 = force a search of the unformatted man directories 4 = both 2 and 3 The manual entries are searched according to the variable Manual-directory-list, which should be a list of directories. If Manual-directory-list is nil, \\[Manual-directory-list-init] is invoked to create this list from the MANPATH environment variable. See the variable Manual-topic-buffer which controls how the buffer is named. See also the variables Manual-match-topic-exactly, 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)]) (byte-code "MM! \"###)MMM" [Manual-insert-pages #[(fmtlist manlist apropos-mode) "\"É \n\n@db`̏db`!\"} ebұdb*\nA ұ\nA\n1@\"הוOؔؕOP $` #` #}!ebұdb*A ұA. Web!y``{!Ç" [make-string 65 45 nil section topic end start name sep fmtlist (Manual-insert-man-file name) ((file-error)) message "Cleaning manual entry for %s..." file-name-nondirectory Manual-nuke-nroff-bs "File: " "\n" manlist "\n\n" string-match "\\([^/]+\\)\\.\\([^./]+\\)\\'" 1 2 "Invoking man %s%s %s..." Manual-section-switch " " "" Manual-run-formatter "Cleaning manual entry for %s(%s)..." apropos-mode buffer-size 200 looking-at "^File: " error] 7] Manual-run-formatter #[(name topic section) "\n\"\n& \n \n &\n\n &" [string-match "roff\\'" Manual-program call-process nil t "-Tman" "-man" name Manual-section-switch section topic] 8] boundp Manual-mode-map make-sparse-keymap m set-keymap-name define-key "l" Manual-last-page button2 Manual-follow-xref button3 Manual-popup-menu Manual-mode #[nil "  ! !" [kill-all-local-variables t buffer-read-only use-local-map Manual-mode-map Manual-mode major-mode "Manual" mode-name truncate-lines run-hooks Manual-mode-hook] 2] #[nil " !@! @!p= Ah @!" [get-buffer Manual-page-history error "No more history." switch-to-buffer] 3 nil nil] Manual-select-subdirectories #[(dirlist subdir) " !P !   @ A !n %@!@!BAg\"*6," [nil "\\`" regexp-quote subdir d match case-fold-search dirs reverse dirlist file-directory-p directory-files t dirs-only dir-temp files file-executable-p file-name-as-directory append] 7]] 4) (defvar Manual-bogus-file-pattern "\\.\\(lpr\\|ps\\|PS\\)\\'" "\ Some systems have files in the man/man*/ directories which aren't man pages. This pattern is used to prune those files.") (byte-code "MMMMMMM" [Manual-select-man-pages #[(dirlist topic section exact shadow) "\n !\nOP \n ! @ A \"n\nB\ne\n+  #Q !\n\n!PժQ  @ A!\"h %   @ A !\"j  \"^!XBO*&#\"\"," [nil case-fold-search section reverse dirlist 0 1 "/?\\'" d match l string-match shadow "/\\(" mapconcat #[(n) "\n!!" [regexp-quote file-name-nondirectory n] 3] "\\|" "\\)\\'" "\\`" regexp-quote topic "\\." exact "" dir manlist file-directory-p message "warning: %s is not a directory" directory-files t f files Manual-bogus-file-pattern file-readable-p Manual-query-multiple-pages apply append mapcar #[(page) "\"!C" [page y-or-n-p format "Read %s? "] 4]] 7] Manual-insert-man-file #[(name) "OÚ&Oɚ\n\")%OΚ%!" [name -3 nil ".gz" call-process "gunzip" t "--stdout" -2 ".Z" case-fold-search string-match "\\.Z/" "zcat" ".z" "pcat" insert-file-contents] 7] Manual-delete-char (macro . #[(n) " EE" [delete-region (point) + (point) n] 5]) Manual-nuke-nroff-bs #[(&optional apropos-mode) "eb#ĔbgU`TfU``\\|ui `\"\")Qeb#Ĕb!`\\ĕ|uo `\"\")Web#``\\|q V eb#u!p!Ĕĕ\"\"#ɕbɔɕ\"\"yf " [search-forward "_" nil t 0 s 95 8 2 1 set-extent-face make-extent man-italic re-search-forward "\\([^\n]\\)\\(\\1\\)" looking-at "\\([^\n]\\)\\(\\1\\)+" man-bold "" -2 buffer-size 100 Manual-nuke-nroff-bs-footers apropos-mode "[a-zA-Z0-9] ([0-9]" delete-backward-char "[^ \n].*$" "\n\n\\([^ \n].*\\)\n[ ]+[^ \n]" Manual-mouseify-xrefs] 5 nil "*"] nuke-nroff-bs Manual-nuke-nroff-bs-footers #[nil "eb!!Ŕŕ|)!!`y`|r!`ŕ|ɉ\n my  B q   @b @ɉ`\nw\n`|!Ŕŕ|xy A!Ŕŕ|`\nx\n`ZV`\\\n|`T\n| A eb!Ŕŕ|y!ŔTŕ|dbx`d|yu`\nxgUu`\nTV`\n|*" [t case-fold-search looking-at "[^\n]*warning" "Reformatting.*\n" 0 "grotty:" 1 " *done\n" nil p pages 66 point-marker "\n" "[^\n]+\n\n?\n?\n?" 4 2 "\n+" "\n\n+" -1 10] 4] Manual-mouseify-xrefs #[nil "eby#˔˕ {bxn!hU`x`S{ P` \" ˉO ˔OP! \" D# #\n \" b." [1 nil already-fontified extent name e s case-fold-search re-search-forward "[a-zA-Z_][-a-zA-Z0-9_.]*([0-9][a-zA-Z0-9]*)" t 0 " " backward-char 45 "-a-zA-Z0-9_." string-match "(.*[A-Z]+.*)$" extent-at make-extent set-extent-property man Manual-follow-xref highlight set-extent-face italic] 6]] 2) (fset 'Manual-follow-xref #[(&optional name-or-event) " ! ! !!#\" = !!+ ! \" \" ىO#*" [eventp name-or-event event-point p extent-at window-buffer event-window highlight extent extent-property man data Manual-follow-xref eval error "no manual cross-reference there." t nil Manual-query-multiple-pages Manual-match-topic-exactly manual-entry string-match "[ ]*([^)]+)\\'" message "No entries found for %s; checking other sections..." 0] 6 "\ Invoke `manual-entry' on the cross-reference under the mouse. When invoked noninteractively, the arg may be an xref string to parse instead." "e"]) (fset 'Manual-popup-menu #[(&optional event) "p‰!!!  #\"=A@+  D\" @= A \"B!." ["---" "Show Manual Page for " nil items xref prefix sep buffer event window-buffer event-window event-point p extent-at highlight extent extent-property man data Manual-follow-xref map-extents #[(extent ignore) " \"= A@ A@ B)Ƈ" [extent-property extent man data Manual-follow-xref items nil] 4] popup-menu-titles popup-menu "Manual Entry" mapcar #[(item) " = PD#" [item sep vector prefix Manual-follow-xref t] 4]] 6 "\ Pops up a menu of cross-references in this manual page. If there is a cross-reference under the mouse button which invoked this command, it will be the first item on the menu. Otherwise, they are on the menu in the order in which they appear in the buffer." "e"]) (provide 'man)