Current File : //usr/local/share/emacs/27.2/lisp/woman.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@28 WoMan version information.
(defvar woman-version "0.551 (beta)" (#$ . 408))
(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310%\207" [require man button define-button-type WoMan-xref-man-page :supertype Man-abstract-xref-man-page func #[(arg) "\302\303 \"\203 \304 \305\306\225#\202 !\207" [Man-reference-regexp arg woman string-match substring 0 1] 5]] 6)
#@277 Explode search path string PATHS into a list of directory names.
Allow Cygwin colon-separated search paths on Microsoft platforms.
Replace null components by calling `woman-parse-man.conf'.
As a special case, if PATHS is nil then replace it by calling
`woman-parse-man.conf'.
(defalias 'woman-parse-colon-path #[(paths) "\304>\203D \204 \305\306\307 \"\207\310 \311\312\313#)\266\203\203' \314\315\316 !\"\207\317 \311\312\313#)\266\203\203: C\207\314\320\321\316 !)\"\207\314\322\316 \206L \323!\"\207" [system-type paths inhibit-changing-match-data path-separator (windows-nt ms-dos) mapcar woman-Cyg-to-Win woman-parse-man\.conf ";" nil t string-match mapcan #[(x) "\203 C\207\301\302\303 \"\207" [x mapcar woman-Cyg-to-Win woman-parse-man\.conf] 3] parse-colon-path "\\`[a-zA-Z]:" #[(x) "\301\302\203 C\202
\303 \"\207" [x mapcar woman-Cyg-to-Win woman-parse-man\.conf] 3] ":" #[(x) "\203 C\207\301 \207" [x woman-parse-man\.conf] 1] ""] 7 (#$ . 788)])
#@64 Convert an absolute filename FILE from Cygwin to Windows form.
(defalias 'woman-Cyg-to-Win #[(file) ":\203 \207\302H\303=\203O \3041. \305\306!r q\210\307\216\310\311\312\313\312\314&\210\315\316 {+0\207\210\317\320\"\203M \315\224\203A \321\315\225\"\302\315HI\210\315\322I\210\207\207" [file #1=#:temp-buffer 0 47 (error) generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] call-process "cygpath" nil t "-m" 1 buffer-size string-match "\\`\\(/cygdrive\\|/\\)?/./" substring 58] 7 (#$ . 1774)])
(byte-code "\300\301\302\303\304\305\306\307\306\310\311\312& \210\313\314\302\315\316\317\311\301&\210\313\320\302\321\316\322\311\301&\210\313\323\302\324\316\322\311\301&\210\300\325\302\326\304\327\311\301&\210\313\330\331\332\316\333\311\325&\207" [custom-declare-group woman nil "Browse UNIX manual pages `wo (without) man'." :tag "WoMan" :link (custom-manual "(woman) Top") (emacs-commentary-link :tag "Commentary" "woman.el") :group help custom-declare-variable woman-show-log "If non-nil then show the *WoMan-Log* buffer if appropriate.\nI.e. if any warning messages are written to it. Default is nil." :type boolean woman-pre-format-hook "Hook run by WoMan immediately before formatting a buffer.\nChange only via `Customization' or the function `add-hook'." hook woman-post-format-hook "Hook run by WoMan immediately after formatting a buffer.\nChange only via `Customization' or the function `add-hook'." woman-interface "Interface options for browsing UNIX manual pages `wo (without) man'." "WoMan Interface" woman-man\.conf-path (let ((path '("/usr/lib" "/etc"))) (cond ((eq system-type 'windows-nt) (mapcar 'woman-Cyg-to-Win path)) ((eq system-type 'darwin) (cons "/usr/share/misc" path)) (t path))) "List of dirs to search and/or files to try for man config file.\nA trailing separator (`/' for UNIX etc.) on directories is\noptional, and the filename is used if a directory specified is\nthe first to start with \"man\" and has an extension starting\nwith \".conf\". If MANPATH is not set but a config file is found\nthen it is parsed instead to provide a default value for\n`woman-manpath'." (repeat string)] 12)
#@369 Parse if possible configuration file for man command.
Used only if MANPATH is not set or contains null components.
Look in `woman-man.conf-path' and return a value for `woman-manpath'.
Concatenate data from all lines in the config file of the form
MANPATH /usr/man
or
MANDATORY_MANPATH /usr/man
or
OPTIONAL_MANPATH /usr/man
or
MANPATH_MAP /opt/bin /opt/man
(defalias 'woman-parse-man\.conf #[nil "\306\211\211\203t \307 @\211!\203m \310\n!\203- \311\n\312\313\312$\211\203m \307\n@\211!\203m \314\315! r\fq\210\316\216\317\n!\210\320\321\306\312#\203h \322\224\203N \323\322!\202U \323\324!\323\325!B\211 \235\203` \202c
B)\202; +\204t A\211\204\n \237+\207" [woman-man\.conf-path manpath file path #1=#:temp-buffer #2=#:va nil file-readable-p file-directory-p directory-files t "\\`man.*\\.conf[a-z]*\\'" generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents re-search-forward "^[ ]*\\(?:\\(?:MANDATORY_\\|OPTIONAL_\\)?MANPATH[ ]+\\(\\S-+\\)\\|MANPATH_MAP[ ]+\\(\\S-+\\)[ ]+\\(\\S-+\\)\\)" 1 match-string 2 3] 6 (#$ . 3972)])
#@244 String specifying a manual page locale, or nil.
If a manual page is available in the specified locale
(e.g. "sv_SE.ISO8859-1"), it will be offered in preference to the
default version. Normally, `set-locale-environment' sets this at startup.
(custom-declare-variable 'woman-locale nil '(#$ . 5098) :type '(choice string (const nil)) :group 'woman-interface :version "23.1")
#@253 Expand a locale into a list suitable for man page lookup.
Expands a locale of the form LANGUAGE_TERRITORY.CHARSET into the list:
LANGUAGE_TERRITORY.CHARSET LANGUAGE_TERRITORY LANGUAGE.CHARSET LANGUAGE.
The TERRITORY and CHARSET portions may be absent.
(defalias 'woman-expand-locale #[(locale) "\304\305\"\210\306\307\"\306\310\"\306\311\"\312\313 \205\" \n\205\" \nP \205- \n\205- P \2045 \n\2056 F\"+\207" [locale charset terr lang string-match "\\([^._]*\\)\\(_[^.]*\\)?\\(\\..*\\)?" match-string 1 2 3 delq nil] 6 (#$ . 5480)])
#@264 Add locale-specific subdirectories to the elements of MANPATH.
MANPATH is a list of the form of `woman-manpath'. Returns a list
with those locale-specific subdirectories specified by the action
of `woman-expand-locale' on `woman-locale' added, where they exist.
(defalias 'woman-manpath-add-locales #[(manpath) "G\306U\203 \207\307!\310\211 \310 \211
\203\207
@\f\310 \211
\203o
@\311\312\313\314
:\203=
A\202>
!\"!\211!\203f
:\203S
@\nB\202T \n\211 \235\203` \202d B)
A\211
\204( *
\235\203z \202}
B
A\211
\204 \310 \237-\207" [woman-locale manpath dir lst subdirs elem 0 woman-expand-locale nil file-directory-p file-name-as-directory expand-file-name substitute-in-file-name --dolist-tail-- sub #1=#:va] 7 (#$ . 6031)])
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\304\315\310\311&\210\300\316\317\320\304\321\310\311&\210\300\322\323\324\304\325\310\311&\210\300\326\327\330\304\331\310\311&\210\300\332\333\334\304\335\310\311&\210\300\336\337\340\304\341\310\311&\210\300\342\327\343\304\344\310\311&\210\300\345\346\347\304\315\310\311&\210\300\350\327\351\304\352\310\311&\210\300\353\350\354\304\355\310\311&\207" [custom-declare-variable woman-manpath (or (woman-manpath-add-locales (woman-parse-colon-path (getenv "MANPATH"))) '("/usr/man" "/usr/share/man" "/usr/local/man")) "List of DIRECTORY TREES to search for UN*X manual files.\nEach element should be the name of a directory that contains\nsubdirectories of the form `man?', or more precisely subdirectories\nselected by the value of `woman-manpath-man-regexp'. Non-directory\nand unreadable files are ignored.\n\nElements can also be a cons cell indicating a mapping from PATH\nto manual trees: if such an element's car is equal to a path\nelement of the environment variable PATH, the cdr of the cons\ncell is included in the directory tree search.\n\nIf not set then the environment variable MANPATH is used. If no such\nenvironment variable is found, the default list is determined by\nconsulting the man configuration file if found, which is determined by\nthe user option `woman-man.conf-path'. An empty substring of MANPATH\ndenotes the default list.\n\nAny environment variables (names must have the UN*X-style form $NAME,\ne.g. $HOME, $EMACSDATA, $emacs_dir) are evaluated first but each\nelement must evaluate to a SINGLE directory name. Trailing `/'s are\nignored. (Specific directories in `woman-path' are also searched.)\n\nMicrosoft platforms:\nI recommend including drive letters explicitly, e.g.\n\n (\"C:/Cygwin/usr/man/\" \"C:/Cygwin/usr/local/man\").\n\nThe MANPATH environment variable may be set using DOS semi-colon-\nseparated or UN*X/Cygwin colon-separated syntax (but not mixed)." :type (repeat (choice string (cons string string))) :version "23.1" :group woman-interface woman-manpath-man-regexp "[Mm][Aa][Nn]" "Regexp to match man directories UNDER `woman-manpath' directories.\nThese normally have names of the form `man?'. Its default value is\n\"[Mm][Aa][Nn]\", which is case-insensitive mainly for the benefit of\nMicrosoft platforms. Its purpose is to avoid `cat?', `.', `..', etc." string woman-path (if (eq system-type 'ms-dos) '("$DJDIR/info" "$DJDIR/man/cat[1-9onlp]")) "List of SPECIFIC DIRECTORIES to search for UN*X manual files.\nFor example\n\n (\"/emacs/etc\").\n\nThese directories are searched in addition to the directory trees\nspecified in `woman-manpath'. Each element should be a directory\nstring or nil, which represents the current directory when the path is\nexpanded and cached. However, the last component (only) of each\ndirectory string is treated as a regexp (Emacs, not shell) and the\nstring is expanded into a list of matching directories. Non-directory\nand unreadable files are ignored. The default value is nil.\n\nAny environment variables (which must have the UN*X-style form $NAME,\ne.g. $HOME, $EMACSDATA, $emacs_dir) are evaluated first but each\nelement must evaluate to a SINGLE directory name (regexp, see above).\nFor example\n\n (\"$EMACSDATA\") [or equivalently (\"$emacs_dir/etc\")].\n\nTrailing `/'s are discarded. (The directory trees in `woman-manpath'\nare also searched.) On Microsoft platforms I recommend including\ndrive letters explicitly." (repeat (choice string (const nil))) woman-cache-level 2 "The level of topic caching.\n1 - cache only the topic and directory lists\n (the only level before version 0.34 - only for compatibility);\n2 - cache also the directories for each topic\n (faster, without using much more memory);\n3 - cache also the actual filenames for each topic\n (fastest, but uses twice as much memory).\nThe default value is currently 2, a good general compromise.\nIf the `woman' command is slow to find files then try 3, which may be\nparticularly beneficial with large remote-mounted man directories.\nRun the `woman' command with a prefix argument or delete the cache\nfile `woman-cache-filename' for a change to take effect.\n(Values < 1 behave like 1; values > 3 behave like 3.)" (choice (const :tag "Minimal" 1) (const :tag "Default" 2) (const :tag "Maximal" 3)) woman-cache-filename nil "The full pathname of the WoMan directory and topic cache file.\nIt is used to save and restore the cache between sessions. This is\nespecially useful with remote-mounted man page files! The default\nvalue of nil suppresses this action. The `standard' non-nil\nfilename is \"~/.wmncach.el\". Remember that a prefix argument forces\nthe `woman' command to update and re-write the cache." (choice (const :tag "None" nil) (const :tag "~/.wmncach.el" "~/.wmncach.el") file) woman-dired-keys t "List of `dired' mode keys to define to run WoMan on current file.\nE.g. (\"w\" \"W\"), or any non-null atom to automatically define\n\"w\" and \"W\" if they are unbound, or nil to do nothing.\nDefault is t." (choice (const :tag "None" nil) (repeat string) (other :tag "Auto" t)) woman-imenu-generic-expression '((nil "\n\\([A-Z].*\\)" 1) ("*Subsections*" "^ \\([A-Z].*\\)" 1)) "Imenu support for Sections and Subsections.\nAn alist with elements of the form (MENU-TITLE REGEXP INDEX) --\nsee the documentation for `imenu-generic-expression'." (alist :key-type (choice :tag "Title" (const nil) string) :value-type (group (choice (string :tag "Regexp") function) integer)) woman-imenu "If non-nil then WoMan adds a Contents menu to the menubar.\nIt does this by calling `imenu-add-to-menubar'. Default is nil." boolean woman-imenu-title "CONTENTS" "The title to use if WoMan adds a Contents menu to the menubar.\nDefault is \"CONTENTS\"." woman-use-topic-at-point-default "Default value for `woman-use-topic-at-point'." (choice (const :tag "Yes" t) (const :tag "No" nil)) woman-use-topic-at-point "Control use of the word at point as the default topic.\nIf non-nil the `woman' command uses the word at point automatically,\nwithout interactive confirmation, if it exists as a topic." (choice (const :tag "Yes" t) (const :tag "No" nil))] 10)
#@242 Regexp used to select (possibly compressed) man source files, e.g.
"\.\([0-9lmnt]\w*\)\(\.\(g?z\|bz2\|xz\)\)?\\='".
Built automatically from the customizable user options
`woman-uncompressed-file-regexp' and `woman-file-compression-regexp'.
(defvar woman-file-regexp nil (#$ . 13052))
#@215 Bind SYMBOL to VALUE and set `woman-file-regexp' as per user customizations.
Used as :set cookie by Customize when customizing the user options
`woman-uncompressed-file-regexp' and `woman-file-compression-regexp'.
(defalias 'set-woman-file-regexp #[(symbol value) "\305 \"\210\306\302!\205 \306\303!\205 \n\307\310 \311\312#\313R\211\207" [symbol value woman-uncompressed-file-regexp woman-file-compression-regexp woman-file-regexp set-default boundp "\\(" substring 0 -2 "\\)?\\'"] 6 (#$ . 13344)])
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\315\316\304\305\306\307\310\311& \210\300\317\320\321\304\322\310\311&\210\323\324\320\325\326\327\310\330&\210\300\331\332\333\304\334\310\324&\210\300\335\320\336\304\322\310\324&\210\300\337\340\341\304\334\310\324&\210\300\342\343\344\304\322\310\324&\210\300\345\343\346\304\322\310\324&\210\300\347\343\350\304\322\310\324&\210\300\351\352\353\304\354\310\324&\210\323\355\320\356\326\357\310\330\310\360& \210\300\361\362\363\304\322\310\355&\210\364\365\366\367\310\355%\210\364\370\371\372\310\355%\210\364\373\374\375\310\355%\210\364\376\377\201@ \310\355%\207" [custom-declare-variable woman-uncompressed-file-regexp "\\.\\([0-9lmnt]\\w*\\)" "Do not change this unless you are sure you know what you are doing!\nRegexp used to select man source files (ignoring any compression extension).\n\nThe SysV standard man pages use two character suffixes, and this is\nbecoming more common in the GNU world. For example, the man pages\nin the ncurses package include `toe.1m', `form.3x', etc.\n\nNote: an optional compression regexp will be appended, so this regexp\nMUST NOT end with any kind of string terminator such as $ or \\\\='." :type regexp :set set-woman-file-regexp :group woman-interface woman-file-compression-regexp "\\.\\(g?z\\|bz2\\|xz\\)\\'" "Do not change this unless you are sure you know what you are doing!\nRegexp used to match compressed man file extensions for which\ndecompressors are available and handled by auto-compression mode,\ne.g. \"\\\\.\\\\(g?z\\\\|bz2\\\\|xz\\\\)\\\\\\='\" for `gzip', `bzip2', or `xz'.\nShould begin with \\. and end with \\\\=' and MUST NOT be optional." :version "24.1" woman-use-own-frame nil "If non-nil then use a dedicated frame for displaying WoMan windows.\nOnly useful when run on a graphic display such as X or MS-Windows." boolean custom-declare-group woman-formatting "Formatting options for browsing UNIX manual pages `wo (without) man'." :tag "WoMan Formatting" woman woman-fill-column 65 "Right margin for formatted text -- default is 65." integer woman-fill-frame "If non-nil then most of the window width is used." woman-default-indent 5 "Default prevailing indent set by -man macros -- default is 5.\nSet this variable to 7 to emulate GNU man formatting." woman-bold-headings t "If non-nil then embolden section and subsection headings. Default is t.\nHeading emboldening is NOT standard `man' behavior." woman-ignore "If non-nil then unrecognized requests etc. are ignored. Default is t.\nThis gives the standard ?roff behavior. If nil then they are left in\nthe buffer, which may aid debugging." woman-preserve-ascii "If non-nil, preserve ASCII characters in the WoMan buffer.\nOtherwise, to save time, some backslashes and spaces may be\nrepresented differently (as the values of the variables\n`woman-escaped-escape-char' and `woman-unpadded-space-char'\nrespectively) so that the buffer content is strictly wrong even though\nit should display correctly. This should be irrelevant unless the\nbuffer text is searched, copied or saved to a file." woman-emulation 'nroff "WoMan emulation, currently either nroff or troff. Default is nroff.\nTroff emulation is experimental and largely untested.\n(Add groff later?)" (choice (const nroff) (const troff)) woman-faces "Face options for browsing UNIX manual pages `wo (without) man'." "WoMan Faces" faces woman-fontify (or (and (fboundp 'display-color-p) (display-color-p)) (and (fboundp 'display-graphic-p) (display-graphic-p)) (x-display-color-p)) "If non-nil then WoMan assumes that face support is available.\nIt defaults to a non-nil value if the display supports either colors\nor different fonts." custom-declare-face woman-italic ((t :inherit italic)) "Face for italic font in man pages." woman-bold ((t :inherit bold)) "Face for bold font in man pages." woman-unknown ((t :inherit font-lock-warning-face)) "Face for all unknown fonts in man pages." woman-addition ((t :inherit font-lock-builtin-face)) "Face for all WoMan additions to man pages."] 12)
#@73 Set foreground colors of italic and bold faces to their default values.
(defalias 'woman-default-faces #[nil "\300\301\211\211\302N\206 \211\303N\206 \211\211\304N\262\262\"\210\300\305\211\211\302N\206. \211\303N\206. \211\211\304N\262\262\"\207" [face-spec-set woman-italic customized-face saved-face face-defface-spec woman-bold] 6 (#$ . 17931) nil])
(make-obsolete 'woman-default-faces "customize the woman-* faces instead." "24.4")
#@116 Set foreground colors of italic and bold faces to that of the default face.
This is usually either black or white.
(defalias 'woman-monochrome-faces #[nil "\300\301\302\"\210\300\303\302\"\207" [set-face-foreground woman-italic unspecified woman-bold] 3 (#$ . 18381) nil])
(make-obsolete 'woman-monochrome-faces "customize the woman-* faces instead." "24.4")
#@65 If non-nil then non-ASCII characters and symbol font supported.
(defconst woman-font-support (eq window-system 'w32) (#$ . 18746))
#@61 Select symbol fonts from a list FONTS of font name strings.
(defalias 'woman-select-symbol-fonts #[(fonts) "\305 \305\211\203. @\306\n\305\307 \310#)\266\203\203' \n\235\204' \nB A\211\204\n *)\207" [symbol-fonts fonts font --dolist-tail-- inhibit-changing-match-data nil "-Symbol-" t string-match] 8 (#$ . 18883)])
(byte-code "\203B \302\303!\210\304\305\306\307\310\311\312\313&\210\304\314\315\316\310\311\312\313&\210\317\320\321\322\323\"!\206- \320\321\322!!!\210\304\324\325\326\310\327\330\331\332 \"\333\"B\312\313&\210\315\207" [woman-font-support woman-symbol-font-list make-face woman-symbol custom-declare-variable woman-use-extended-font t "If non-nil then may use non-ASCII characters from the default font." :type boolean :group woman-faces woman-use-symbol-font nil "If non-nil then may use the symbol font.\nIt is off by default, mainly because it may change the line spacing\n(in NTEmacs 20.5)." (lambda (#1=#:def-tmp-var) (defconst woman-symbol-font-list #1# "Symbol font(s), preferably same size as default when WoMan was loaded.")) woman-select-symbol-fonts x-list-fonts "*" default woman-symbol-font (car woman-symbol-font-list) "A string describing the symbol font to use for special characters.\nIt should be compatible with, and the same size as, the default text font.\nUnder MS-Windows, the default is\n \"-*-Symbol-normal-r-*-*-*-*-96-96-p-*-ms-symbol\"." choice append mapcar #[(x) "\301D\207" [x const] 2] (string)] 10)
(defvar woman-use-extended-font nil)
(defvar woman-use-symbol-font nil)
(defvar woman-symbol-font nil)
#@48 Justify styles for `fill-region-as-paragraph'.
(defconst woman-justify-styles [left right center full] (#$ . 20462))
#@54 Adjustment indicator `l' -- adjust left margin only.
(defconst woman-adjust-left 0 (#$ . 20585))
#@55 Adjustment indicator `r' -- adjust right margin only.
(defconst woman-adjust-right 1 (#$ . 20688))
#@37 Adjustment indicator `c' -- center.
(defconst woman-adjust-center 2 (#$ . 20793))
#@57 Adjustment indicator `b' or `n' -- adjust both margins.
(defconst woman-adjust-both 3 (#$ . 20881))
#@43 Current adjustment number-register value.
(defvar woman-adjust woman-adjust-both (#$ . 20987))
#@44 Previous adjustment number-register value.
(defvar woman-adjust-previous woman-adjust (#$ . 21088))
#@61 Current justification style for `fill-region-as-paragraph'.
(defvar woman-justify (aref woman-justify-styles woman-adjust) (#$ . 21194))
#@62 Previous justification style for `fill-region-as-paragraph'.
(defvar woman-justify-previous woman-justify (#$ . 21337))
#@22 Current left margin.
(defvar woman-left-margin woman-default-indent (#$ . 21463))
#@28 Current prevailing indent.
(defvar woman-prevailing-indent woman-default-indent (#$ . 21551))
#@94 Interparagraph distance in lines.
Set by .PD; used by .SH, .SS, .TP, .LP, .PP, .P, .IP, .HP.
(defvar woman-interparagraph-distance 1 (#$ . 21651))
#@41 Blank lines to leave as vertical space.
(defvar woman-leave-blank-lines nil (#$ . 21804))
#@39 Default tab width set by -man macros.
(defconst woman-tab-width 5 (#$ . 21900))
#@37 Current fill mode: nil for filling.
(defvar woman-nofill nil (#$ . 21986))
#@48 Left margin stack for nested use of `.RS/.RE'.
(defvar woman-RS-left-margin nil (#$ . 22067))
#@54 Prevailing indent stack for nested use of `.RS/.RE'.
(defvar woman-RS-prevailing-indent nil (#$ . 22167))
#@107 Current no-space mode: nil for normal spacing.
Set by `.ns' request; reset by any output or `.rs' request
(defvar woman-nospace nil (#$ . 22280))
(defvar WoMan-current-file nil)
(defvar WoMan-Log-header-point-max nil)
#@29 Set `woman-nospace' to nil.
(defalias 'woman-reset-nospace #[nil "\301\211\207" [woman-nospace nil] 2 (#$ . 22504)])
(put 'woman-reset-nospace 'byte-optimizer 'byte-compile-inline-expand)
#@60 Regexp to match a ?roff request plus trailing white space.
(defconst woman-request-regexp "^[.'][ ]*\\(\\S +\\) *" (#$ . 22699))
#@70 Buffer-local: set to true if function `woman-imenu' has been called.
(defvar woman-imenu-done nil (#$ . 22835))
(byte-code "\300\301!\210\300\302!\207" [make-variable-buffer-local woman-imenu-done imenu--last-menubar-index-alist] 2)
#@118 An alist representing WoMan buffers that are already decoded.
Each element is of the form (FILE-NAME . BUFFER-NAME).
(defvar woman-buffer-alist nil (#$ . 23075))
#@99 Ordinal number of current buffer entry in `woman-buffer-alist'.
The ordinal numbers start from 0.
(defvar woman-buffer-number 0 (#$ . 23243))
#@189 List of one-character built-in condition names that are true.
Should include ?e, ?o (page even/odd) and either ?n (nroff) or ?t (troff).
Default is (?n ?e ?o). Set via `woman-emulation'.
(defvar woman-if-conditions-true '(110 101 111) (#$ . 23392))
#@175 Delete rest of current line; if all blank then delete thru newline.
With a numeric argument ARG, delete that many lines from point.
Negative arguments delete lines backward.
(defalias 'woman-delete-line #[(&optional arg) "`\203 y\210\202# m\203 \301\302\303\"\210\304\305!\203 \306y\210\202# \303\210`|\207" [arg signal end-of-buffer nil looking-at "[ ]*$" 1] 4 (#$ . 23649)])
#@51 Delete current line from beginning including eol.
(defalias 'woman-delete-whole-line #[nil "\300 \210\301\302!\207" [beginning-of-line woman-delete-line 1] 2 (#$ . 24039)])
(put 'woman-delete-whole-line 'byte-optimizer 'byte-compile-inline-expand)
#@77 Delete all spaces and tabs FOLLOWING point (cf. `delete-horizontal-space').
(defalias 'woman-delete-following-space #[nil "`\300\301w\210`|\207" [" " nil] 3 (#$ . 24293)])
(put 'woman-delete-following-space 'byte-optimizer 'byte-compile-inline-expand)
#@68 Delete subexpression SUBEXP of buffer text matched by last search.
(defalias 'woman-delete-match #[(subexp) "\224\225|\207" [subexp] 2 (#$ . 24552)])
(put 'woman-delete-match 'byte-optimizer 'byte-compile-inline-expand)
#@65 Expanded directory list cache. Resetting to nil forces update.
(defvar woman-expanded-directory-path nil (#$ . 24780))
#@62 Expanded topic alist cache. Resetting to nil forces update.
(defvar woman-topic-all-completions nil (#$ . 24906))
#@583 Browse UN*X man page for TOPIC (Without using external Man program).
The major browsing mode used is essentially the standard Man mode.
Choose the filename for the man page using completion, based on the
topic selected from the directories specified in `woman-manpath' and
`woman-path'. The directory expansions and topics are cached for
speed. With a prefix argument, force the caches to be
updated (e.g. to re-interpret the current directory).
Used non-interactively, arguments are optional: if given then TOPIC
should be a topic string and non-nil RE-CACHE forces re-caching.
(defalias 'woman #[(&optional topic re-cache) ";\203 \304\305\306\307#)\266\203\203, \310\n\"\211\203$ \311 !\202* \312\313!\210\314 )\207\312\315!\210\314 \207" [topic inhibit-changing-match-data re-cache file-name "\\S " nil t string-match woman-file-name woman-find-file message "WoMan Error: No matching manual files found in search path" ding "WoMan Error: No topic specified in non-interactive call"] 8 (#$ . 25028) (list nil current-prefix-arg)])
(define-key-after menu-bar-manuals-menu [woman] '(menu-item "Read Man Page (WoMan)..." woman :help "Man-page documentation Without Man") t)
#@109 A list of cached data used to determine cache validity.
Set from the cache by `woman-read-directory-cache'.
(defvar woman-cached-data nil (#$ . 26220))
#@107 Generate a list of data used to determine cache validity.
Called both to generate and to check the cache!
(defalias 'woman-cached-data #[nil "\306\211 \306 \211 \203L
@\211:\203, \204\" \307\310\311!
\312#\f@ \235\205+ \fA\f\203E \313\f!\211 \n\235\203? \n\202C \nB)
A\211\204
\306\n\237,\314\313\"E\207" [woman-cache-level path lst woman-manpath dir --dolist-tail-- nil split-string getenv "PATH" t substitute-in-file-name mapcar path-separator #1=#:va woman-path] 6 (#$ . 26379)])
#@154 Load the directory and topic cache.
It is loaded from the file named by the variable `woman-cache-filename'.
Return t if the file exists, nil otherwise.
(defalias 'woman-read-directory-cache #[nil "\205 \302\303\304\303$\205 \301 \232\207" [woman-cache-filename woman-cached-data load t nil] 5 (#$ . 26887)])
#@107 Save the directory and topic cache.
It is saved to the file named by the variable `woman-cache-filename'.
(defalias 'woman-write-directory-cache #[nil "\205: r\305\306!q\210p\307\310\n!\210\311\312!\210\313\314\315\316\315 DE!\210\313\314\303\316 DE!\210\313\314\304\316\fDE!\210\317!\210\320\n!+\207" [woman-cache-filename backup-inhibited standard-output woman-expanded-directory-path woman-topic-all-completions generate-new-buffer "WoMan tmp buffer" t buffer-disable-undo princ ";;; WoMan directory and topic cache -- generated automatically\n" print setq woman-cached-data quote write-file kill-buffer] 5 (#$ . 27208)])
(defvaralias 'woman-topic-history 'Man-topic-history)
#@25 File-name read history.
(defvar woman-file-history nil (#$ . 27897))
#@344 Get the name of the UN*X man-page file describing a chosen TOPIC.
When `woman' is called interactively, the word at point may be
automatically used as the topic, if the value of the user option
`woman-use-topic-at-point' is non-nil. Return nil if no file can
be found. Optional argument RE-CACHE, if non-nil, forces the
cache to be re-read.
(defalias 'woman-file-name #[(topic &optional re-cache) "\204 \203\f \n\204% \306 \204% \307\310!\210\311 \f\"\307\312!\210\302 !\313 \210\314 $;\204\204 \315\316!\2038 \202= %\211\203U \317\320!\206G \321\211$\203U \322$\n\"\204\204 \317 \211 &\205g \322&\n\"\205g & '\323'\203w \324\325'\"\202x \326\n\314\327\314\330'&*$$G\331U?\205\346 \332$!\211\204\265 \333$\n\"\211\203\265 $G
@GU\204\260
A\202\240 \332
@!
\204\275 \314\202\346
A\204\310
@@\202\346 \334\314 ( )\335(\336\216\337\340(\"\210\323\341
\314\327\342\321
\"\343&+)\207" [re-cache woman-expanded-directory-path woman-topic-all-completions woman-manpath woman-path files woman-read-directory-cache message "Building list of manual directory expansions..." woman-expand-directory-path "Building completion list of all manual topics..." woman-write-directory-cache nil boundp woman-use-topic-at-point current-word t "" test-completion completing-read format "Manual entry (default %s): " "Manual entry: " 1 woman-topic-history 0 woman-file-name-all-completions all-completions #[nil "\301 )\207" [this-command minibuffer-complete] 1] #[nil "\302\303\"\210 \207" [#1=#:setup-hook #2=#:fun remove-hook minibuffer-setup-hook] 3] #[nil "\301\302\"\207" [#1# remove-hook minibuffer-setup-hook] 3] add-hook minibuffer-setup-hook "Manual file: " try-completion woman-file-history topic woman-use-topic-at-point-default word-at-point default #1# #2#] 9 (#$ . 27973)])
#@114 Select unique elements for which PREDICATE is true in LIST.
(Note that this function changes the value of LIST.)
(defalias 'woman-select #[(predicate list) "\203 @A\235\204 @!\204 A\211\204 \205H \304A\211\203F \n@\nA\235\204> \n@!\203> \n\211\202# \nA\241\210\202\" *\207" [list predicate cdr_list newlist nil] 3 (#$ . 29786)])
#@55 Return t if DIR is readable, otherwise log a warning.
(defalias 'woman-file-readable-p #[(dir) "\301!\206\n \302\303\"\207" [dir file-readable-p WoMan-warn "Ignoring unreadable `manpath' directory tree `%s'!"] 3 (#$ . 30142)])
#@290 Return a sorted list of files in directory HEAD matching regexp in DIR.
Value is a sorted list of the absolute pathnames of all the files in
directory HEAD, or the current directory if HEAD is nil, that match the
regexp that is the final component of DIR. Log a warning if list is empty.
(defalias 'woman-directory-files #[(head dir) "\303\206 \304 !\305\306\n!#\206 \307\310\n\"\207" [head default-directory dir directory-files directory-file-name t file-name-nondirectory WoMan-warn "No directories match `woman-path' entry `%s'!"] 5 (#$ . 30378)])
#@57 Return t if DIR is accessible, otherwise log a warning.
(defalias 'woman-file-accessible-directory-p #[(dir) "\301!\206\n \302\303\"\207" [dir file-accessible-directory-p WoMan-warn "Ignoring inaccessible `man-page' directory `%s'!"] 3 (#$ . 30939)])
#@294 Expand the manual directories in PATH-DIRS and PATH-REGEXPS.
PATH-DIRS should be a list of general manual directories (like
`woman-manpath'), while PATH-REGEXPS should be a list of specific
manual directory regexps (like `woman-path').
Ignore any paths that are unreadable or not directories.
(defalias 'woman-expand-directory-path #[(path-dirs path-regexps) "<\204 C <\204 C\306\211\211 \306 \211 \203_ @\211:\203? \n\2045 \307\310\311!\312#
@\n\235\205>
A
\203V \313
!\203V \314
! \315
\312#\244A\211\204 * \306 \211 \203\240 @\211\203\203 \314
!\316
!\211\203\203 \313\f!\203\227
\203\220 \317\f
\"\244\202\226 \320! BA\211\204i *\321\322 \"+\207" [path-dirs path-regexps path dirs head dir nil split-string getenv "PATH" t woman-file-readable-p woman-canonicalize-dir directory-files file-name-directory woman-directory-files directory-file-name woman-select woman-file-accessible-directory-p --dolist-tail-- path-separator woman-manpath-man-regexp default-directory] 6 (#$ . 31199)])
#@96 Canonicalize the directory name DIR.
Any UN*X-style environment variables are evaluated first.
(defalias 'woman-canonicalize-dir #[(dir) "\302\303!!\304\305\"\306\230\203 \304\307\305# \310>\203# \311!\312!P\207" [dir system-type expand-file-name substitute-in-file-name substring -1 "/" 0 (windows-nt ms-dos cygwin) file-name-directory file-name-nondirectory] 4 (#$ . 32237)])
#@127 Return t if DIR is not a member of the list PATH, nil otherwise.
If DIR is `.' it is first replaced by the current directory.
(defalias 'woman-not-member #[(dir path) " \235?\207" [dir path] 2 (#$ . 32632)])
(put 'woman-not-member 'byte-optimizer 'byte-compile-inline-expand)
#@135 Return an alist of the man files in all man directories in the list PATH.
The cdr of each alist element is the path-index / filename.
(defalias 'woman-topic-all-completions #[(path) "\304\211\305 \203( \211A\242\211 \211 \235*\204\" \306\n\" BT\202 \307\310\311 \"!+\207" [path-index files dir path nil 0 woman-topic-all-completions-1 woman-topic-all-completions-merge apply nconc] 5 (#$ . 32916)])
#@293 Return an alist of the man topics in directory DIR with index PATH-INDEX.
A topic is a filename sans type-related extensions.
Support 3 levels of caching: each element of the alist will be a list
of the first `woman-cache-level' elements from the following list:
(topic path-index filename).
(defalias 'woman-topic-all-completions-1 #[(dir path-index) "\306\307\306 \310$\311\312\n\" \f\306 \211 \203R @\313 \"\203/ \314\315\211\224#\2021 \316V\205E \317V\205D CBB
BA\211\204 \306
-\207" [dir woman-file-regexp woman-file-compression-regexp ext lst newlst nil directory-files t format "\\(\\.[^.\\/]*\\)?\\(%s\\)?\\'" string-match substring 0 1 2 file --dolist-tail-- woman-cache-level path-index] 7 (#$ . 33335)])
#@154 Merge the alist ALIST so that the keys are unique.
Also make each path-info component into a list.
(Note that this function changes the value of ALIST.)
(defalias 'woman-topic-all-completions-merge #[(alist) "\305\306 \307\"\n\310V\203L \305\211 \203H \f@\211@@@\232\2037 A@A\235\204A @ A@AB\241\210\202A \211AC\241\210 B\fA\211\204 *\202l \305\211 \203k \f@\211@@@\232\204d B\fA\211\204T *)\207" [newalist alist woman-cache-level elt --dolist-tail-- nil sort #[(x y) "@ @\231\207" [y x] 2] 1] 4 (#$ . 34088)])
#@71 Return an alist of the files in all man directories that match TOPIC.
(defalias 'woman-file-name-all-completions #[(topic) "\306\307!\310 R\n \311\211 @A\203d \312\"A\311 \211 \311 \211 \203` @\211@8A@\f\203O
\313QC\202U \314
\315#\244A\211\204/ ,\202\214 \203\214 @A
\211 \235*\204d \f\314
\315#\244\202d \316\317\f\"-\207" [topic woman-file-regexp woman-topic-all-completions woman-expanded-directory-path files dir "\\`" regexp-quote "\\(\\..+\\)*" nil assoc "/" directory-files t mapcar list path topics topic-regexp filename path-info elt --dolist-tail--] 6 (#$ . 34630)])
#@63 Bind the argument KEY to the command `woman-dired-find-file'.
(defalias 'woman-dired-define-key #[(key) "\302 \303#\207" [dired-mode-map key define-key woman-dired-find-file] 4 (#$ . 35272)])
#@75 If KEY is undefined in Dired, bind it to command `woman-dired-find-file'.
(defalias 'woman-dired-define-key-maybe #[(key) "\302 \"\303=\204 \302 \"?\205 \304 !\207" [dired-mode-map key lookup-key undefined woman-dired-define-key] 3 (#$ . 35471)])
(put 'woman-dired-define-key-maybe 'byte-optimizer 'byte-compile-inline-expand)
#@65 Define dired keys to run WoMan according to `woman-dired-keys'.
(defalias 'woman-dired-define-keys #[nil "\203A <\203 \303\304\"\210\202A \305\306\n \"\307=\204$ \306\n \"?\205' \304 !)\210\310\306\n \"\307=\204< \306\n \"?\205? \304 !)\210\311\306\n\312\"\313\314\315$\207" [woman-dired-keys key dired-mode-map mapc woman-dired-define-key "w" lookup-key undefined "W" define-key-after [menu-bar immediate] [woman] ("Read Man Page (WoMan)" . woman-dired-find-file) view] 5 (#$ . 35808)])
(byte-code "\300\301!\203\f \302 \210\202 \303\304\302\"\210\300\207" [featurep dired woman-dired-define-keys add-hook dired-mode-hook] 3)
#@56 In dired, run the WoMan man-page browser on this file.
(defalias 'woman-dired-find-file #[nil "\300\301 !\207" [woman-find-file dired-get-filename] 2 (#$ . 36448) nil])
#@59 In tar mode, run the WoMan man-page browser on this file.
(defalias 'woman-tar-extract-file #[nil "\304=\204\n \305\306!\210\307 \210\310\311K \210\n\312\313\314\n!!!\210\315 \210eb*\207" [major-mode global-font-lock-mode buffer-file-name WoMan-current-file tar-mode error "`woman-tar-extract-file' can be used only in `tar-mode'" buffer-disable-undo nil tar-extract rename-buffer woman-make-bufname file-name-nondirectory woman-process-buffer] 4 (#$ . 36623) nil])
#@56 The full pathname of the last file formatted by WoMan.
(defvar woman-last-file-name nil (#$ . 37098))
#@54 Reformat last file, e.g. after changing fill column.
(defalias 'woman-reformat-last-file #[nil "\203 \301\302\"\207\303\301!\207" [woman-last-file-name woman-find-file t call-interactively] 3 (#$ . 37206) nil])
#@434 Find, decode and browse a specific UN*X man-page source file FILE-NAME.
Use existing buffer if possible; reformat only if prefix arg given.
When called interactively, optional argument REFORMAT forces reformatting
of an existing WoMan buffer formatted earlier.
No external programs are used, except that `gunzip' will be used to
decompress the file if appropriate. See the documentation for the
`woman' command for further details.
(defalias 'woman-find-file #[(file-name &optional reformat) "\306!\211\n\307 \310\f\203! \f@@\230\204! \fA
T\202\f \f\205' \311 \211\2031 \203~ \312! \313 \307\313 \314#)\266\203\205M \313\211 !\203Y \315 ! \203b \316 \202f \317 ! \320! #\210 \204} B\nB\310+*\321 \210\307\"\212\322#!\203 \323y\210`\324\323!\210`\307\325\214}\210eb\210\326 \210m\204\375 `U\204\375 `\262\327$\313#\203\366 \330\310!\211GS\203\320 P\262\307\262GS\262H\331>\203\337 \332\310#\262\314%\"\203\364 \"\235\204\364 \"B\"\266\333\307w\210\202\243 )\266)\"\237\"eb\207" [file-name woman-last-file-name woman-buffer-alist exists alist-tail woman-buffer-number expand-file-name nil 0 WoMan-find-buffer file-name-nondirectory t string-match file-name-sans-extension buffer-name woman-make-bufname woman-really-find-file Man-build-section-list Man-find-section 1 Man-next-section -1 back-to-indentation re-search-forward match-string (45 173) substring " \n," reformat bufname case-fold-search woman-file-compression-regexp inhibit-changing-match-data compressed Man--refpages Man-see-also-regexp Man-hyphenated-reference-regexp Man-reference-regexp] 11 (#$ . 37427) "fBrowse UN*X manual file: \nP"])
#@49 Create an unambiguous buffer name from BUFNAME.
(defalias 'woman-make-bufname #[(bufname) "\302\303\"\211\203 \304 T\"\305\304\306 #Q\307\310\311Q!)\207" [bufname dot string-match "\\.[^.]*\\'" substring " " 0 generate-new-buffer-name "*WoMan " "*"] 7 (#$ . 39106)])
#@52 Dedicated frame used for displaying WoMan windows.
(defvar woman-frame nil (#$ . 39386))
#@212 Find, decompress, and decode a UN*X man page FILENAME.
If COMPRESSED is non-nil, turn on auto-compression mode to decompress
the file if necessary. Set buffer name BUFNAME and major mode.
Do not call directly!
(defalias 'woman-really-find-file #[(filename compressed bufname) "\n\203 \306\307 !\203 \206 \310 \211!\210\311\f!q\210\3121' \313p!0\202+ \210\314p!\210\315 \210\316\317 \210\320\"\210\321!\322\323!\210\324\325\326!\210\327 )\207" [filename WoMan-current-file woman-use-own-frame woman-frame bufname buffer-read-only select-frame frame-live-p make-frame get-buffer-create (error) pop-to-buffer-same-window pop-to-buffer buffer-disable-undo nil erase-buffer woman-insert-file-contents file-name-directory make-local-variable backup-inhibited t set-visited-file-name "" woman-process-buffer compressed default-directory] 3 (#$ . 39482)])
#@46 The second half of `woman-really-find-file'!
(defalias 'woman-process-buffer #[nil "eb\210\300\301\302\303#\203 \304 \210\202 \305\306!\210\307 \210\310 \207" [re-search-forward "^[.']" 1000 t woman-decode-buffer message "File appears to be pre-formatted -- using source file may be better." woman-man-buffer woman-mode] 4 (#$ . 40353) nil])
#@48 Post-process an nroff-preformatted man buffer.
(defalias 'woman-man-buffer #[nil "\303\304!\203 \305\211\224\225|)\210\306\307!\210\310\311\312\305!!\313Q\306 \314\315#\2030 \305\211\224\225|)\210\202 )\316\317!\210\320 \210\303\321!\203B `d|\210eb\210\306\322\314\323#\203V \324\325\323\211#\210\202E \326 \327d!W\203\221 eb\210\330\331\314\323#\203x \332\333!\210\334``T\335#\210\202b eb\210\330\336\314\323#\203\221 \332\333!\210\334`S`\335#\210\202{ eb\210\306\337\314\323#\203\257 \340\211\224\225|)\210\334`S`\341#\210\202\224 eb\210\330\342\314\323#\203\310 \343\344!\210\334``T\335#\210\202\262 \n\205\345 eb\210\314y\210\306\345\314\323#\205\345 \334\340\224\340\225\341#\210\202\322 \207" [subexp regex woman-bold-headings looking-at "\\s-+" 0 re-search-forward ".*" "^.*[0-9]\n\\s-*" regexp-quote match-string "\\s-*\n" nil 1 re-search-backward "\\S-" beginning-of-line ".*[0-9]$" "^[ ]*\n\\([ ]*\n\\)+" t replace-match "\n" buffer-size position-bytes search-forward "__" backward-delete-char 4 woman-set-face woman-italic "__" "\\(.\\)\\(\\(+\\1\\)+\\)" 2 woman-bold "_" delete-char -2 "^\\( \\)?\\([A-Z].*\\)"] 5 (#$ . 40703)])
#@243 Insert file FILENAME into the current buffer.
If COMPRESSED is t, or is non-nil and the filename implies compression,
then turn on auto-compression mode to decompress the file.
Leave point at end of new text. Return length of inserted text.
(defalias 'woman-insert-file-contents #[(filename compressed) "\212\306 \203( \306=\204 \n \307\306 \310#)\266\203\203( \311\312
\"\204( \313\314!\210\31514 \316 \307\"0\202: \210\317 \320\261A@*\207" [case-fold-search compressed woman-file-compression-regexp filename inhibit-changing-match-data file-name-handler-alist t nil string-match rassq jka-compr-handler auto-compression-mode 1 (file-error) insert-file-contents "\n***** File " " not found! *****\n\n"] 7 (#$ . 41870)])
#@26 Keymap for `woman-mode'.
(defvar woman-mode-map (byte-code "\302 \303 \"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317\310#\210\304\320\321#\210)\207" [map Man-mode-map make-sparse-keymap set-keymap-parent define-key "R" woman-reformat-last-file "w" woman "n" WoMan-next-manpage "p" WoMan-previous-manpage [M-mouse-2] woman-follow-word [remap man] [remap man-follow] woman-follow] 4) (#$ . 42605))
#@72 Get a Un*x manual page of the item under point and put it in a buffer.
(defalias 'woman-follow #[(topic) "\203\n \302\230\203 \303\304!\207\305\306 \"\203 \307\310\311\225#\202 !\207" [topic Man-reference-regexp "" error "No item under point" woman string-match substring 0 1] 5 (#$ . 43072) (list (Man-default-man-entry))])
#@87 Run WoMan with word under mouse as topic.
Argument EVENT is the invoking mouse event.
(defalias 'woman-follow-word #[(event) "\301\302!!b\210\303\304\305!\206 \306!\207" [event posn-point event-start woman current-word t ""] 3 (#$ . 43411) "e"])
#@12 WoMan Menu
(defvar woman-menu nil (#$ . 43665))
(byte-code "\301\302\303\304\305\306\307\310\311\312\313\306\314\315\316\317\306\320\321\322\306\323\324\325\326\327!\205 \330\331\"BBBBBBBBBBBBBBBBBBBB$\207" [woman-mode-map easy-menu-do-define woman-menu "WoMan Menu" "WoMan" ["WoMan..." woman t] "--" ["Next Section" Man-next-section t] ["Previous Section" Man-previous-section t] ["Goto Section..." Man-goto-section t] ["Goto See-Also Section" Man-goto-see-also-section t] ["Follow Reference..." Man-follow-manual-reference t] ["Previous WoMan Buffer" WoMan-previous-manpage t] ["Next WoMan Buffer" WoMan-next-manpage t] ["Bury WoMan Buffer" Man-quit t] ["Kill WoMan Buffer" Man-kill t] ["Use Full Frame Width" woman-toggle-fill-frame :active t :style toggle :selected woman-fill-frame] ["Reformat Last Man Page" woman-reformat-last-file t] ["Make Contents Menu" (woman-imenu t) (not woman-imenu-done)] ["Describe (Wo)Man Mode" describe-mode t] ["Mini Help" woman-mini-help t] append fboundp customize-group (["Customize..." (customize-group 'woman) t]) (["Show Version" (message "WoMan %s" woman-version) t] "--" ("Advanced" ["View Source" (view-file woman-last-file-name) woman-last-file-name] ["Show Log" (switch-to-buffer-other-window "*WoMan-Log*" t) t] ["Extended Font" woman-toggle-use-extended-font :included woman-font-support :active t :style toggle :selected woman-use-extended-font] ["Symbol Font" woman-toggle-use-symbol-font :included woman-font-support :active t :style toggle :selected woman-use-symbol-font] ["Font Map" woman-display-extended-fonts :included woman-font-support :active woman-use-symbol-font] "--" "Emulation" ["nroff" (woman-reset-emulation 'nroff) :active t :style radio :selected (eq woman-emulation 'nroff)] ["troff" (woman-reset-emulation 'troff) :active t :style radio :selected (eq woman-emulation 'troff)]))] 27)
#@62 Toggle `woman-use-extended-font' and reformat, for menu use.
(defalias 'woman-toggle-use-extended-font #[nil "?\301 \207" [woman-use-extended-font woman-reformat-last-file] 1 (#$ . 45528) nil])
#@60 Toggle `woman-use-symbol-font' and reformat, for menu use.
(defalias 'woman-toggle-use-symbol-font #[nil "?\301 \207" [woman-use-symbol-font woman-reformat-last-file] 1 (#$ . 45730) nil])
#@62 Reset `woman-emulation' to VALUE and reformat, for menu use.
(defalias 'woman-reset-emulation #[(value) "\302 \207" [value woman-emulation woman-reformat-last-file] 1 (#$ . 45926) nil])
(defvar woman-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [woman-mode-hook variable-documentation put "Hook run after entering WoMan mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp woman-mode-map definition-name woman-mode] 4)
(defvar woman-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [woman-mode-abbrev-table woman-mode-map variable-documentation put purecopy "Keymap for `woman-mode'." boundp woman-mode-syntax-table definition-name woman-mode (lambda (#1=#:def-tmp-var) (defvar woman-mode-syntax-table #1#)) make-syntax-table "Syntax table for `woman-mode'." (lambda (#1#) (defvar woman-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `woman-mode'." derived-mode-parent special-mode] 5)
#@507 Turn on (most of) Man mode to browse a buffer formatted by WoMan.
WoMan is an ELisp emulation of much of the functionality of the Emacs
`man' command running the standard UN*X man and ?roff programs.
WoMan author: F.J.Wright@Maths.QMW.ac.uk
WoMan version: see `woman-version'.
See `Man-mode' for additional details.
\{woman-mode-map}
In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `woman-mode-hook', as the final or penultimate step
during initialization.
(defalias 'woman-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036
\321 =\203< \322\f\323 \"\210)\324,\325\"\204V ,-=\204V \326,\325-C#\210\327 !\210\330\f!\210,-\331K\332K\333K\334K \331\335M\210\332\335M\210\333\335M\210\334\335M\210\336\216\306\300!\210\307\337 \210.\311\312\340\341!\210\327 !\210./\306\342!\210\343\"\306\344!\210\345$\346\21101'\203\273 \347 \210\307 2\350\351!\210*\352\353!\207" [delay-mode-hooks major-mode mode-name woman-mode-map woman-mode-syntax-table parent make-local-variable t special-mode woman-mode "WoMan" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table Man-build-page-list Man-strip-page-headers Man-unindent Man-goto-page ignore #[nil "\300M\210\301 M\210\302\nM\210\303 M\210\f\211\207" [Man-build-page-list Man-strip-page-headers Man-unindent Man-goto-page woman-tab-width tab-width] 2] Man-mode kill-local-variable mode-line-buffer-identification imenu-space-replacement " " bookmark-make-record-function woman-bookmark-make-record nil woman-imenu Man-highlight-references WoMan-xref-man-page run-mode-hooks woman-mode-hook woman-mode-abbrev-table local-abbrev-table woman-imenu-generic-expression imenu-generic-expression imenu--last-menubar-index-alist woman-imenu-done inhibit-read-only] 6 (#$ . 47247) nil])
#@109 Add a "Contents" menu to the menubar.
Optional argument REDRAW, if non-nil, forces mode line to be updated.
(defalias 'woman-imenu #[(&optional redraw) "?\205 \303\304 !\210\n\205 \305 \207" [woman-imenu-done woman-imenu-title redraw t imenu-add-to-menubar force-mode-line-update] 2 (#$ . 49294) nil])
#@69 Toggle formatting to fill (most of) the width of the current frame.
(defalias 'woman-toggle-fill-frame #[nil "?\302\303\203
\304\202 \"\207" [woman-fill-frame woman-fill-column message "Woman fill column set to %s." "frame width"] 3 (#$ . 49606) nil])
#@65 Display WoMan commands and user options in an `apropos' buffer.
(defalias 'woman-mini-help #[nil "\306\307!\210\310\311!\312\313!)\314\315\316\"\211\317\211 \211 \203^
\211@\211\320 !\205< \321 \322\"\211\203; \323\f\324\325\326\f\"#\202< \327\330 !\205T \331 \332\322#\211\205T \323\f\324\325\326\f\"#E\240\210
A\211\204 +\333\322\317\"\205n \205n \301\334 \")\207" [standard-output message apropos-accumulator symbol doc p require apropos get-buffer-create "*Apropos*" help-print-return-message identity apropos-internal "woman" #[(symbol) "\301!\204\f \302!\205 \303N?\207" [symbol commandp custom-variable-p apropos-inhibit] 2] nil functionp documentation t substring 0 string-match "\n" "(not documented)" custom-variable-p documentation-property variable-documentation apropos-print "%s"] 10 (#$ . 49870) nil])
#@62 Use TOPIC to start WoMan from `Man-follow-manual-reference'.
(defalias 'WoMan-getpage-in-background #[(topic) "\302\303\"\211\203 \304 T\"\305!)\207" [topic s string-match " " substring woman] 4 (#$ . 50708)])
#@59 Used to record formatting time used by the `man' command.
(defvar WoMan-Man-start-time nil (#$ . 50930))
#@33 Find the previous WoMan buffer.
(defalias 'WoMan-previous-manpage #[nil "\302 \210A\204\f \303\304!\210 T\211GY\203 \305\302 ?\205- S\211\305W\203+ GS\306 \207" [woman-buffer-alist woman-buffer-number WoMan-find-buffer error "No previous WoMan buffer" 0 WoMan-previous-manpage] 2 (#$ . 51041) nil])
#@29 Find the next WoMan buffer.
(defalias 'WoMan-next-manpage #[nil "\302 \210A\204\f \303\304!\210 S\211\305W\203 GS\302 ?\205! \306 \207" [woman-buffer-alist woman-buffer-number WoMan-find-buffer error "No next WoMan buffer" 0 WoMan-next-manpage] 2 (#$ . 51355) nil])
#@187 Switch to buffer corresponding to `woman-buffer-number' and return it.
If such a buffer does not exist then remove its association from the
alist in `woman-buffer-alist' and return nil.
(defalias 'WoMan-find-buffer #[nil "\304U\203 \305 @A!\211\203 \306\n!\202 A\307)\207S \233\305 A@A!\211\2032 \306\n!\202B \211AA\241\210 GY\203A \304\307*\207" [woman-buffer-number woman-buffer-alist buffer prev-ptr 0 get-buffer pop-to-buffer-same-window nil] 3 (#$ . 51633)])
#@65 Internal character representation of escaped escape characters.
(defconst woman-escaped-escape-char 28 (#$ . 52116))
#@62 Internal string representation of escaped escape characters.
(defconst woman-escaped-escape-string (char-to-string woman-escaped-escape-char) (#$ . 52239))
#@65 Internal character representation of unpadded space characters.
(defconst woman-unpadded-space-char 29 (#$ . 52401))
#@62 Internal string representation of unpadded space characters.
(defconst woman-unpadded-space-string (char-to-string woman-unpadded-space-char) (#$ . 52524))
#@70 Syntax table to support special characters used internally by WoMan.
(defvar woman-syntax-table (byte-code "\303 \304 \305#\210\304\n\305#\210)\207" [st woman-unpadded-space-char woman-escaped-escape-char make-syntax-table modify-syntax-entry "."] 4) (#$ . 52686))
#@212 Set up a display table for a WoMan buffer.
This display table is used for displaying internal special characters, but
does not interfere with any existing display table, e.g. for displaying
European characters.
(defalias 'woman-set-buffer-display-table #[nil "\203\n \304!\202\f \305 \211\n\306I\210 \307I\207" [standard-display-table buffer-display-table woman-unpadded-space-char woman-escaped-escape-char copy-sequence make-display-table [32] [92]] 4 (#$ . 52962)])
#@80 Decode a buffer in UN*X man-page source format.
No external programs are used.
(defalias 'woman-decode-buffer #[nil "\303 \210\304\305!\210\306\300!\203 \203 \300\307!\210\310 \311\312\313!\210\314ed\"\210\315\316\n!!\312\317 \"\210\320 !\210*\304\321!\207" [font-lock-mode time start-time WoMan-log-begin run-hooks woman-pre-format-hook boundp -1 current-time nil message "WoMan formatting buffer..." woman-decode-region float-time time-since "WoMan formatting buffer...done in %g seconds" WoMan-log-end woman-post-format-hook] 3 (#$ . 53441) nil])
#@66 Alist of strings predefined in the -man macro package `tmac.an'.
(defvar woman-string-alist '(("S" . #1="") ("R" . "(Reg.)") ("Tm" . "(TM)") ("lq" . "\"") ("rq" . "\"") ("''" . "\"") (".T" . #1#)) (#$ . 54003))
#@43 Set to t if .sp N with N < 0 encountered.
(defvar woman-negative-vertical-space nil (#$ . 54220))
#@133 Pre-process escapes and comments in the region of text between FROM and TO.
To be called on original buffer and any .so insertions.
(defalias 'woman-pre-process-region #[(from to) "b\210\304\305 \306#\203@ \307\224\203 \310\n\306\211#\210\202 \311 \210\312\307!\210\304\313 \306#\2036 \307\224\2036 \310\n\306\211#\210\202 \311 \210\312\307!\210\202 b\210\304\314 \306#\205W \315\211\224 \225|)\210\202C \207" [from to woman-escaped-escape-string subexp re-search-forward "\\(\\\\[\\e]\\)\\|^\\.eo" t 1 replace-match beginning-of-line woman-delete-line "\\(\\\\\\)\\|^\\.ec" "^[.'][ ]*\\(\\\\\".*\\)?\n\\|\\\\\".*" 0] 5 (#$ . 54325)])
#@54 Prepare non-underlined versions of underlined faces.
(defalias 'woman-non-underline-faces #[nil "\300 \211\306\211\205B \n@\307 !\310 \306\311 \312#)\266\203\2039 \313 !\2039 \314 \315P! \316
\"\210\317
\306\"\210))\nA\211\204 \306+\207" [face-list face --dolist-tail-- face-name inhibit-changing-match-data face-no-ul nil symbol-name "\\`woman-" t string-match face-underline-p intern "-no-ul" copy-face set-face-underline] 8 (#$ . 54974)])
#@175 True if WoMan should emulate the tbl preprocessor.
This applies to text between .TE and .TS directives.
Currently set only from \='\" t in the first line of the source file.
(defvar woman-emulate-tbl nil (#$ . 55434))
#@71 Decode the region between FROM and TO in UN*X man-page source format.
(defalias 'woman-decode-region #[(from _to) "\306 \306\f\f@\307A\306\211BC\306DEFGFHH\306I\310\311J!!\312BK\313 \210L\203N M;\203N \314\315M\316N!\205L N#\210\317\320!\210\306\321O!\210\322 \210P\204m \250\203m \323V\204r \324 \fZQb\210\325\326!\203\247 \327\330\307!\306\" R\331R>\203\225 \332S\333\331R\"RR\203\242 \334\335R\260\"\210\336\307!\210)\337Q\306\"\210\340Q!\210eb\210\306\341\342d\332#\203\325 eb\210\341\343d\332#\203\325 eb\210\341\344d\332#\203\331 \345\346!\210)Qb\210\347 \210 TUVQb\210\341\350\306\332#\203\376 \351W\332\211#\210\202\354 Qb\210\341\352\306\332#\203\323\211 X\224X\225|)\210\202Qb\210\341\353\306\332#\203+\351\354!\210\202 Qb\210\355 \210Qb\210\356 \210Qb\210\357 \210Qb\210\332 Y\341\360\306\332#\203\261\330\307!\211 Z\323H\361U\204mZG\362Y\203qZ\362H\363U\203q\364\202r\365 [Y\203\227\351[\306\332#\210\366`S`\367\370$\210\334\371Z\"\210\372\373[\"\210\202\250\323\211 X\224X\225|)\210\334\374Z\"\210Y?Y*\202G)Qb\210\375 \210\n\203\302\302Q!\210\\\203\333\376Qd]\377$\210\376Qd^\201_ $\210d,\207" [woman-string-alist woman-fill-column woman-negative-vertical-space case-fold-search woman-default-indent woman-left-margin nil 1 string-to-char symbol-name (101 111) woman-non-underline-faces set-face-font woman-symbol frame-live-p make-local-variable adaptive-fill-mode set-syntax-table woman-set-buffer-display-table 0 window-width looking-at "'\\\\\"[ ]*\\([a-z]+\\)" append match-string 116 t delete WoMan-warn "Unhandled preprocessor request letters %s" woman-delete-line woman-pre-process-region woman0-roff-buffer re-search-forward "^\\.SH[ \n]" "^\\.TH[ \n]" "^\\.\\([pnil]p\\|sh\\)[ \n]" error "WoMan can only format man pages written with the usual `-man' macros" woman-mark-horizontal-position "\\\\[ 0]" replace-match "\\\\\\([%\n]\\|s[-+]?[0-9]+\\)" "\\\\\\([-`.]\\)" "\\1" woman1-roff-buffer woman-strings woman-change-fonts "\\\\\\([du]\\|v'[^']*'\\)" 117 2 45 "^" "_" put-text-property face woman-addition "Initial vertical motion escape \\%s simulated" WoMan-log " by TeX `%s' in woman-addition-face!" "Terminal vertical motion escape \\%s ignored!" woman2-roff-buffer subst-char-in-region 92 woman-prevailing-indent woman-interparagraph-distance woman-leave-blank-lines woman-RS-left-margin woman-RS-prevailing-indent woman-adjust-both woman-adjust woman-justify-styles woman-justify woman-nofill woman-emulation woman-if-conditions-true woman-use-symbol-font woman-symbol-font woman-frame woman-syntax-table woman-fill-frame from letters woman-emulate-tbl fill-column woman-tab-width tab-width woman-unpadded-space-string subexp first esc repl woman-preserve-ascii woman-escaped-escape-char woman-unpadded-space-char 32] 6 (#$ . 55658)])
#@156 Process \h'+/-N' local horizontal motion escapes upto TO.
Implements arbitrary forward and non-overlapping backward motion.
Preserves location of `point'.
(defalias 'woman-horizontal-escapes #[(to) "`\306\307 \310#\203\203 \311\224\312\313\314!!\315\224\316 \317\211 \320
!\204. \321\322`T{\"\210\202~ \311\225 { |\210\f\203A iZ \311Y\203P \323 \"\210\202~ T\211\311X\203s h\324>\203f \325\326!\210\202P g\327>\203s \325\314!\210\202P \311X\203~ \321\330\n\"\210.\202 b)\207" [from to msg N absolute delim re-search-forward "\\\\h\\(\\\\(..\\|.\\)\\(|\\)?" t 0 regexp-quote match-string 1 2 woman-parse-numeric-arg nil looking-at WoMan-warn "Local horizontal motion (%s) delimiter error!" insert-char (32 9) delete-char -1 (32 9) "Negative horizontal motion (%s) would overwrite!" woman-unpadded-space-char] 6 (#$ . 58524)])
(defvar woman0-search-regex-start "^[.'][ ]*\\(ig\\|if\\|ie\\|el\\|so\\|rn\\|de\\|am")
(defconst woman0-search-regex-end "\\)\\([ ]+\\|$\\)")
#@111 Process conditional-type requests and user-defined macros.
Start at FROM and re-scan new text as appropriate.
(defalias 'woman0-roff-buffer #[(from) "b\210\306 \307\211 \211\nP\307\211 \" # $\310$\311\"\210\312
\307\311#\203\275 \313\314!#\f\204J \311\315 %\310%\311\"\210\316 &\317\216\212b\210\320%!\210,#\321\230\203W \322 \210\202 #\323\230\203e \324\323!\210\202 #\325\230\203s \324\325!\210\202 #\326\230\203\200 \327 \210\202 #\330\230\203\215 \331 \210\202 #\332\230\203\232 \333 \210\202 #\334\230\203\247 \335 \210\202 #\336\230\203\265 \335\337!\210\202 \340#!\210\202 $\307\211\223\210\341 .\207" [from woman0-search-regex-start woman0-search-regex-end woman0-rename-alist processed-first-hunk woman0-search-regex make-marker nil set-marker-insertion-type t re-search-forward match-string 1 point-marker match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] woman2-process-escapes "ig" woman0-ig "if" woman0-if "ie" "el" woman0-el "so" woman0-so "rn" woman0-rn "de" woman0-de "am" append woman0-macro woman0-rename woman0-macro-alist woman-request woman0-if-to process-escapes-to-marker save-match-data-internal] 7 (#$ . 59521)])
#@63 .ig yy -- Discard input up to `.yy', which defaults to `..').
(defalias 'woman0-ig #[nil "\302\303!\210\304 \210\305\306!\206 \307`\310\311\312 !\313Q\314\315#\203$ `|\202, \316\317 \"\210\320\306!*\207" [from yy looking-at "\\(\\S +\\)?" beginning-of-line match-string 1 "." re-search-forward "^\\.[ ]*" regexp-quote ".*\n" nil t WoMan-warn "ig request ignored -- terminator `.%s' not found!" woman-delete-line] 4 (#$ . 60738)])
#@64 Process escapes within an if/ie condition between FROM and TO.
(defalias 'woman0-process-escapes #[(from to) "\303!\210 b\210\304\305\306#\203 \307\211\224\n\225|)\210\202 b\210\310\311\"\207" [to from subexp woman-strings re-search-forward "\\\\f\\(\\[[^]]+\\]\\|(..\\|.\\)" t 0 woman2-process-escapes numeric] 5 (#$ . 61179)])
(put 'woman0-process-escapes 'byte-optimizer 'byte-compile-inline-expand)
#@167 .if/ie c anything -- Discard unless c evaluates to true.
Remember condition for use by a subsequent `.el'.
REQUEST is the invoking directive without the leading dot.
(defalias 'woman0-if #[(request) "\306\211\224\225|)\210`\307\211\306
\212\310\311!\210`)\307\223\210g\312U\211\203( \313\314!\210\315\316!\2036 g >\202\352 \315\317!\203J \307\320\321!\322\306!#\210\202\352 \214\f
}\210\315\323!)\203\257 \324\325\225\326\" \"\327\225
|\210\325\225\327\224|\210\314\225b\210`
# \330#!\210\fb\210\331\332#\326#\203\216 \306\211\224\225|)\210\202y \fb\210\333#\334\"*\210`\"{\"
{\230\"\307\211\223\210\fb\210)\202\352 \f
# \330#!\210\fb\210\331\332#\326#\203\321 \306\211\224\225|)\210\202\274 \fb\210\333#\334\"*\210\335 \211\247\203\352 \n\306V\fb\210 \306=\203\370 \336
!\"\202 \337!
=#,\207" [subexp c n negated from woman0-if-to 0 nil skip-syntax-forward "^ " 33 delete-char 1 looking-at "[ntoev]" "[A-Za-z]" WoMan-warn "%s %s -- unrecognized condition name rejected!" match-string "\\(\\\\(..\\|[^0-9]\\)\\(.*\\)\\1\\(.*\\)\\1\\'" copy-marker 2 t 3 woman-strings re-search-forward "\\\\f\\(\\[[^]]+\\]\\|(..\\|.\\)" woman2-process-escapes numeric woman-parse-numeric-arg woman-if-ignore woman-if-body woman-if-conditions-true request end1 to] 6 (#$ . 61596)])
#@185 Process if-body, including \{ ... \}.
REQUEST is the invoking directive without the leading dot.
If TO is non-nil then delete the if-body.
If DELETE is non-nil then delete from point.
(defalias 'woman-if-body #[(request to delete) "` \203\n ` |\210\305 \210\306\307!\203K `\310\211\224\n\225|)\210\311\312!\2030 \313\224\2030 \311\314!\210\202 \2038 \202: \310\224`|\210\306\315!\203G \316\313!\210)\202S \203S \317\313!\210\f\320\230\203q \311\321\322\323#\203q \310\211\224\n\225|)\210\324\325\322 ?#\210b)\207" [from to subexp delete request delete-horizontal-space looking-at "[^{\n]*\\(\\\\\n\\)*\\\\{\\s *\\(\\\\\n\\)*" 0 re-search-forward "\\(\\\\{\\|el[ ]*\\\\}\\)\\|\\(\n[.']\\)?[ ]*\\\\}[ ]*" 1 "\\\\}" "^$" delete-char woman-delete-line "ie" "^[.'][ ]*el[ ]*" nil t woman-if-body "el"] 5 (#$ . 62901)])
#@44 Isolated .el request -- should not happen!
(defalias 'woman0-el #[nil "\302\303!\210\203 \304\211\224 \225|)\210\305 \210\306\307\310\311#\207\312\310w\210\313\314!\203( \315\316!\210\317y\207" [woman-ignore subexp WoMan-warn "el request without matching `ie' rejected!" 0 delete-horizontal-space woman-if-body "el" nil t "^ " looking-at "[ ]*{" search-forward "}" 1] 5 (#$ . 63735)])
#@66 Ignore but warn about an if request ending at TO, named REQUEST.
(defalias 'woman-if-ignore #[(to request) "\303\304\"\210 \203 \305\n\306#\207\307\310w\210\311\312!\203 \313\314!\210\315y\207" [request woman-ignore to WoMan-warn-ignored "ignored -- condition not handled!" woman-if-body t "^ " nil looking-at "[ ]*{" search-forward "}" 1] 4 (#$ . 64131)])
#@68 .so filename -- Switch source file. `.so' requests may be nested.
(defalias 'woman0-so #[nil "`\306\307!\210` {\211\310 !\2043 \310\311\nP\211!\2043 \312\313\n!!\211\2043 \314p!\2043 \315\316\n\"\210\317 \210\320\321!\210` \322 \323\" \324\f
\\\325\" \326\f\"\210\327\211\223\210\fb.\207" [beg end name filename from length woman-forward-arg unquote file-exists-p "../" woman-file-name file-name-base kill-buffer error "File `%s' not found" beginning-of-line woman-delete-line 1 woman-insert-file-contents 0 copy-marker t woman-pre-process-region nil to] 4 (#$ . 64500)])
#@45 Process .rn xx yy -- rename macro xx to yy.
(defalias 'woman0-rn #[nil "l\204* `\305\306\307\"\210` {\310l\204) `\305\306!\210` {\211\nB\fB,\311 \210\312\313!\207" [beg end old new woman0-rename-alist woman-forward-arg unquote concat nil beginning-of-line woman-delete-line 1] 4 (#$ . 65092)])
#@43 Effect renaming required by .rn requests.
(defalias 'woman0-rename #[nil "\304\211\2058 \n@\211A @eb\210\305\306 !P\307 P\310 \304\311#\203/ \312 \304\311#\210\202 *\nA\211\204 \304*\207" [woman0-rename-alist new --dolist-tail-- old nil "^[.'][ ]*" regexp-quote "." re-search-forward t replace-match] 5 (#$ . 65402)])
(defconst woman-unescape-regex (concat woman-escaped-escape-string "\\(" woman-escaped-escape-string "\\)?"))
#@115 Replace escape sequences in the body of MACRO.
Replaces || by |, but | by \, where | denotes the internal escape.
(defalias 'woman-unescape #[(macro) "\303\304 \n#\211\203( \305\224\203 \306\307\310\211\n\305%\202! \306\311\310\211\n$T\202 \n)\207" [start woman-unescape-regex macro nil string-match 1 replace-match "" t "\\"] 6 (#$ . 65849)])
(put 'woman-unescape 'byte-optimizer 'byte-compile-inline-expand)
#@176 Process .de/am xx yy -- (re)define/append macro xx; end at `..'.
(Should be up to call of yy, which defaults to `.')
Optional argument APPEND, if non-nil, means append macro.
(defalias 'woman0-de #[(&optional append) "l\204\224 \306\307!\210\310\311!\312\313\n\"\211\204# \f\314\315!Q\211
P\312y\210`\316\317!\210\320 \210 `{\312 \321#\211\203a \322\224\203R \323\324\325\211\322%\202X \323\326\325\211$T\2026 * \203| \203| A AP @ BB)\nB\312y\210 `|\210\327u\210+\320 \210\330\322!\207" [macro from woman0-macro-alist previous woman0-search-regex-start woman0-search-regex-end looking-at "[^ \n]+" match-string 0 nil assoc "\\|" regexp-quote re-search-forward "^\\.[ ]*\\." beginning-of-line string-match 1 replace-match "" t "\\" -1 woman-delete-line woman0-search-regex start woman-unescape-regex body append] 7 (#$ . 66274)])
#@45 Process the macro call named WOMAN-REQUEST.
(defalias 'woman0-macro #[(woman-request) "\303 \"\211\203 \304\nA!\202 \305\306\")\207" [woman-request woman0-macro-alist macro assoc woman-interpolate-macro WoMan-warn "Undefined macro %s not interpolated!"] 4 (#$ . 67156)])
#@71 Interpolate (.de) or append (.am) expansion of MACRO into the buffer.
(defalias 'woman-interpolate-macro #[(macro) "\306\307w\210\310@\307\211\211\211\211 Al\204P T\311\312\"\313
P`\314\315\316\"\210 `{\306\307w\210\307\317\f #\211\203 \320\n\321\211$\202< \307\317\322 #\211\203f \320\323\321\211$\202R \307\317\324 #\211\203| \320
\321\211$\202h \203\207 \307u\210\202\216 \325 \210\326\327!\210\212c.\207" [macro start actual-arg from formal-arg argno-string " " nil 0 format "%d" "\\\\\\$" woman-forward-arg unquote noskip string-match replace-match t "\\\\\\$." "" "\\\\n(\\.\\$" beginning-of-line woman-delete-line 1 append argno] 7 (#$ . 67438)])
#@142 Match and move over name of form: x, (xx or [xxx...].
Applies to number registers, fonts, strings/macros/diversions, and
special characters.
(defalias 'woman-match-name #[nil "g\300U\203 \301u\210\302\303!\210\301u\207g\304U\203 \301u\210\302\305!\207\302\306!\207" [91 nil re-search-forward "[^]]+" 40 ".." "."] 2 (#$ . 68141)])
#@181 Process ?roff string requests and escape sequences up to buffer position TO.
Strings are defined/updated by `.ds xx string' requests and
interpolated by `\*x' and `\*(xx' escapes.
(defalias 'woman-strings #[(&optional to) "\306\307\310#\205~ \311\224\203@ \312\313w\210l\2046 \306\314!\210\315\316!\312\313w\210g\317U\203* \313u\210 `\320 {B\211\nB)\321 \210\322\311!\210\202 \316\224\323 \210\315\316! \324\f\n\"\211\203g `|\210n\203_ \325\326!\210\325 A!\210\202z \327\330\f\"\210
\203z `|\210\f\331B\nB+\202 \207" [to string woman-string-alist beg stringname woman-ignore re-search-forward "\\(^[.'][ ]*ds\\)\\|\\\\\\*" t 1 " " nil "[^ \n]+" match-string 0 34 line-end-position beginning-of-line woman-delete-line woman-match-name assoc insert-before-markers "\\&" WoMan-warn "Undefined string %s not interpolated!" ""] 5 (#$ . 68480)])
#@842 Alist of special character codes with ASCII and extended-font equivalents.
Each alist elements has the form
(input-string ascii-string extended-font-string . use-symbol-font)
where
* `\(input-string' is the ?roff encoding,
* `ascii-string' is the (multi-character) ASCII simulation,
* `extended-font-string' is the single-character string representing
the character position in the extended 256-character font, and
* `use-symbol-font' is t to indicate use of the symbol font or nil,
i.e. omitted, to indicate use of the default font.
Any element may be nil. Avoid control character codes (0 to \37, \180
to \237) in `extended-font-string' for now, since they can be
displayed only with a modified display table.
Use the WoMan command `woman-display-extended-fonts' or a character
map accessory to help construct this alist.
(defconst woman-special-characters '(("em" "--" "\276" . t) ("bu" "*" "\267" . t) ("fm" "'") ("co" "(C)" "\251") ("pl" "+" "+" . t) ("mi" "-" "-" . t) ("**" "*" "*" . t) ("aa" "'" "\242" . t) ("ul" "_") ("*S" "Sigma" "S" . t) (">=" ">=" "\263" . t) ("<=" "<=" "\243" . t) ("->" "->" "\256" . t) ("<-" "<-" "\254" . t) ("mu" " x " "\264" . t) ("+-" "+/-" "\261" . t) ("bv" "|") ("lq" "\"") ("rq" "\"") ("aq" "'") ("ha" "^") ("ti" "~") ("oq" "‘") ("cq" "’") ("hy" "‐")) (#$ . 69341))
#@103 Replace text matched by last search with NEWTEXT and return t.
Set NEWTEXT in face FACE if specified.
(defalias 'woman-replace-match #[(newtext &optional face) "\303\211\224\225|)\210\304 !\210\n\203 \305`S`\302\306$\210\307\207" [subexp newtext face 0 insert-before-markers put-text-property woman-symbol t] 6 (#$ . 70677)])
(put 'woman-replace-match 'byte-optimizer 'byte-compile-inline-expand)
#@147 Process special character escapes \(xx, \[xxx] up to buffer position TO.
(This must be done AFTER translation, which may use special characters.)
(defalias 'woman-special-characters #[(to) "\306\307\310#\205\320 \311\312!\206 \311\313!\314 \n\"\211\203\253 AA\203~ \315 \233\203R \f\203~ \313 8\316 \317\211 \224\225|)\210\320!\210
\203N \321`S`\305\316$\210*\202\314 \203~ \313 8\322 \317\211 \224\225|)\210\320!\210
\203z \321`S`\305\316$\210*\202\314 A@\203\253 A@\322 \317\211 \224\225|)\210\320!\210
\203\247 \321`S`\305\316$\210*\202\314 \323\324\312\224\203\266 \325\202\267 \326\327Q \"\210\203\314 \317\211 \224\225|)\210*\202 \207" [to name woman-special-characters replacement woman-use-symbol-font face re-search-forward "\\\\\\(?:(\\(..\\)\\|\\[\\([[^]]+\\)\\]\\)" t match-string-no-properties 1 2 assoc 3 woman-symbol 0 insert-before-markers put-text-property nil WoMan-warn "Special character " "\\(%s" "\\[%s]" " not interpolated!" newtext subexp woman-use-extended-font woman-ignore] 6 (#$ . 71084)])
#@288 Display table of glyphs of graphic characters and their octal codes.
All the octal codes in the ranges [32..127] and [160..255] are displayed
together with the corresponding glyphs from the default and symbol fonts.
Useful for constructing the alist variable `woman-special-characters'.
(defalias 'woman-display-extended-fonts #[nil "r\306\307!q\210p\310 \210 \311\211\312\211\312 \313 \210\314\315!\210+\211 !r!q\210\316 \"\"\317W\203q \320\321\"\"\322\"!\323\322\"!\261\210\324`S`\325\326$\210\327c\210\"T\211\"\330U\203b \331\"\332c\210\"\333\246\334U\203. \332c\210\202. *\335 \336 !\210+\207" [default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks get-buffer-create "*WoMan Extended Font Map*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook 32 256 format "\\%03o " string " " put-text-property face woman-symbol " " 128 160 "\n" 8 0 help-print-return-message internal-temp-output-buffer-show inhibit-read-only #2=#:buf standard-output i] 6 (#$ . 72145) nil])
#@104 Delete any double-quote characters between point and TO.
Leave point at TO (which should be a marker).
(defalias 'woman-unquote #[(to) "\303\304\305 \306#\203/ \203 \307\305!\203 \310\306!\210\202 \204% \307\311!\203) \310\312!\210?\202 \2057 \313\314\n\")\207" [in-quote to woman-request nil search-forward "\"" 1 looking-at delete-char ".*\"" -1 WoMan-warn "Unpaired \" in .%s arguments."] 4 (#$ . 73224)])
#@63 Delete any double-quote characters up to the end of the line.
(defalias 'woman-unquote-args #[nil "\300\212\301\210\302 )!\207" [woman-unquote nil point-marker] 2 (#$ . 73649)])
(put 'woman-unquote-args 'byte-optimizer 'byte-compile-inline-expand)
#@32 Process non-breaking requests.
(defalias 'woman1-roff-buffer #[nil "\306\307\211\211\310\f\307\306#\205Q \311\312\313\314!\211P!\211\203 \315N\203* \210\202 \316\211 \224
\225|)\210l?l\203> \317\314!\210 \210\203 g\320>\203 \321c\210\202 ,\207" [woman1-unquote fn woman-request case-fold-search woman-request-regexp subexp t nil re-search-forward intern-soft "woman1-" match-string 1 notfont 0 delete-char (46 39) "\\&"] 5 (#$ . 73904)])
#@47 .B -- Set words of current line in bold font.
(defalias 'woman1-B #[nil "\300\301!\207" [woman1-B-or-I ".ft B\n"] 2 (#$ . 74365)])
#@49 .I -- Set words of current line in italic font.
(defalias 'woman1-I #[nil "\300\301!\207" [woman1-B-or-I ".ft I\n"] 2 (#$ . 74502)])
#@105 .B/I -- Set words of current line in bold/italic font.
B-OR-I is the appropriate complete control line.
(defalias 'woman1-B-or-I #[(B-or-I) "c\210\212 \203 \302\212\303\210\304 )!\210\202' \305\306!\203! \303y\210\202 \303\210\307 \210\310c)\207" [B-or-I woman1-unquote woman-unquote nil point-marker looking-at "^[.']" delete-horizontal-space "\\fR"] 2 (#$ . 74642)])
#@57 .SM -- Set the current line in small font, i.e. IGNORE!
(defalias 'woman1-SM #[nil "\300\207" [nil] 1 (#$ . 75022)])
(defalias 'woman1-SB 'woman1-B)
#@70 .BI -- Join words of current line alternating bold and italic fonts.
(defalias 'woman1-BI #[nil "\300\301\302D!\207" [woman1-alt-fonts "\\fB" "\\fI"] 3 (#$ . 75177)])
#@69 .BR -- Join words of current line alternating bold and Roman fonts.
(defalias 'woman1-BR #[nil "\300\301\302D!\207" [woman1-alt-fonts "\\fB" "\\fR"] 3 (#$ . 75350)])
#@70 .IB -- Join words of current line alternating italic and bold fonts.
(defalias 'woman1-IB #[nil "\300\301\302D!\207" [woman1-alt-fonts "\\fI" "\\fB"] 3 (#$ . 75522)])
#@71 .IR -- Join words of current line alternating italic and Roman fonts.
(defalias 'woman1-IR #[nil "\300\301\302D!\207" [woman1-alt-fonts "\\fI" "\\fR"] 3 (#$ . 75695)])
#@69 .RB -- Join words of current line alternating Roman and bold fonts.
(defalias 'woman1-RB #[nil "\300\301\302D!\207" [woman1-alt-fonts "\\fR" "\\fB"] 3 (#$ . 75869)])
#@71 .RI -- Join words of current line alternating Roman and italic fonts.
(defalias 'woman1-RI #[nil "\300\301\302D!\207" [woman1-alt-fonts "\\fR" "\\fI"] 3 (#$ . 76041)])
#@76 Join words using alternating fonts in FONTS, which MUST be a dynamic list.
(defalias 'woman1-alt-fonts #[(fonts) "\211\244\210@c\210\212A\302 \303\"\210l\204$ @c\210A\302 \303\"\210\202 \304c)\207" [fonts woman1-unquote woman-forward-arg concat "\\fR"] 3 (#$ . 76215)])
#@199 Move forward over one ?roff argument, optionally unquoting and/or joining.
If optional arg UNQUOTE is non-nil then delete any argument quotes.
If optional arg CONCAT is non-nil then join arguments.
(defalias 'woman-forward-arg #[(&optional unquote concat) "g\303=\203L \203 \304\305!\210\202 \306u\210\307\310!\210g\303=\2033 \203) \304\305!\210\202, \306u\210\307\310!\210\202 h\303=\203D \203P \304\311!\210\202P \312\313 \"\210\202P \314\315!\210\n\204X \316\306w\207\n\317=\206e `\316\306w\210`|\207" [unquote woman-request concat 34 delete-char 1 nil re-search-forward "\"\\|$" -1 WoMan-warn "Unpaired \" in .%s arguments." skip-syntax-forward "^ " " " noskip] 3 (#$ . 76500)])
(put 'woman1-TP 'notfont t)
#@64 .TP -- After tag line, reset font to Roman for paragraph body.
(defalias 'woman1-TP #[nil "\212\300y\210\301\302!\203 \303\202 \304y\210\305c)\207" [nil looking-at "\\.\\S-+[ ]*$" 2 1 ".ft R\n"] 2 (#$ . 77224)])
(put 'woman1-ul 'notfont t)
#@71 .ul N -- Underline (italicize) the next N input lines, default N = 1.
(defalias 'woman1-ul #[nil "l\203 \301\202\n \302 \303 \210\304\301!\210\305c\210y\210\306c)\207" [N 1 woman-parse-numeric-arg beginning-of-line woman-delete-line ".ft I\n" ".ft R\n"] 2 (#$ . 77473)])
(put 'woman1-nh 'notfont t)
#@37 .nh -- No hyphenation, i.e. IGNORE!
(defalias 'woman1-nh #[nil "\300 \210\301\302!\207" [beginning-of-line woman-delete-line 1] 2 (#$ . 77781)])
(put 'woman1-hy 'notfont t)
#@50 .hy N -- Set hyphenation mode to N, i.e. IGNORE!
(defalias 'woman1-hy #[nil "\300 \210\301\302!\207" [beginning-of-line woman-delete-line 1] 2 (#$ . 77960)])
(put 'woman1-hc 'notfont t)
#@58 .hc c -- Set hyphenation character to c, i.e. delete it!
(defalias 'woman1-hc #[nil "\301g!\302 \210\303\304!\210\305\306Q\212\307\310\311#\205% \304\224\205% \312\313!\210\202 *\207" [c char-to-string beginning-of-line woman-delete-line 1 "\\(" "\\)\\|^[.'][ ]*hc" re-search-forward nil t delete-char -1] 4 (#$ . 78152)])
(put 'woman1-hw 'notfont t)
#@60 .hw words -- Set hyphenation exception words, i.e. IGNORE!
(defalias 'woman1-hw #[nil "\300 \210\301\302!\207" [beginning-of-line woman-delete-line 1] 2 (#$ . 78515)])
(byte-code "\300\301\302\303#\210\304\301\305\"\210\300\306\302\303#\210\304\306\305\"\210\300\307\302\303#\210\304\307\305\"\210\300\310\302\303#\210\304\310\305\"\210\300\311\302\303#\210\304\311\305\"\210\300\312\302\303#\210\304\312\305\"\207" [put woman1-ps notfont t defalias woman-delete-whole-line woman1-ss woman1-cs woman1-ne woman1-vs woman1-bd] 4)
#@72 .TX t p -- Resolve SunOS abbrev t and join to p (usually punctuation).
(defalias 'woman1-TX #[nil "\300c\210\301\302\303\"\207" ["SunOS " woman-forward-arg unquote concat] 3 (#$ . 79049)])
(byte-code "\300\301\302\303#\210\304\301\305\"\207" [put woman1-IX notfont t defalias woman-delete-whole-line] 4)
#@68 Alist of ?roff font indicators and woman font variables and names.
(defconst woman-font-alist '(("R" . default) ("I" . woman-italic) ("B" . woman-bold) ("P" . previous) ("1" . default) ("2" . woman-italic) ("3" . woman-bold)) (#$ . 79359))
#@23 Process font changes.
(defalias 'woman-change-fonts #[nil "`\306\211 \307\310\311\312#\203\313 \311\211\211\211 \313\224\203< \314\224 \315\311w\210l\2032 \n \2026 \316\317!\210\311y\210\202[ \320\224\203G \306 \202[ \321\224\203X \314\224 \322\323 \210\202[ \322 \204\307 \204\214 \324\314! \325 \f\"\211 \203{ A\202\211 \326\327 \"\210 \330B\fB\330 ) \203\240 `|\210 \331=\203\240 \n
\203\256 \316 !\203\256 \332c\210\333 ` #\210 \203\300 ` \202\304 `\306 ,\202 \333 ` #,\207" [woman-font-alist current-font previous-font previous-pos font-alist fescape default re-search-forward "^[.'][ ]*\\(\\(ft\\)\\|\\(.P\\)\\)\\|\\(\\\\f\\)" nil 1 2 0 " " looking-at "[^ \n]+" 3 4 t woman-match-name match-string assoc WoMan-warn "Unknown font %s." woman-unknown previous "\\&" woman-set-face notfont beg font fontstring woman-request-regexp] 5 (#$ . 79605)])
#@116 Set the face of the text from FROM to TO to face FACE.
Ignore the default face and underline only word characters.
(defalias 'woman-set-face #[(from to face) "\305=\206J ?\206J \306!\203D \212\307\310!\311P! b\210`\fW\205B \312\313\f\"\210\314 `\300$\210`\312\315\f\"\210\314 `\300\n$\210`\202 *\207\314 \f\300$\207" [face woman-fontify face-no-ul from to default face-underline-p intern symbol-name "-no-ul" skip-syntax-forward "w" put-text-property "^w"] 5 (#$ . 80510)])
#@65 Return and delete next char in buffer, including special chars.
(defalias 'woman-get-next-char #[nil "\301\302!\203 \303\304!\304\211\224\225|)\210\207\305g!\306\307!\210\207" [subexp looking-at "\\\\\\((..\\|\\*\\(\\[[^]]+\\]\\|(..\\|.\\)\\)" match-string 0 char-to-string delete-char 1] 4 (#$ . 81000)])
#@135 .tr abcde -- Translate a -> b, c -> d, ..., e -> space.
Format paragraphs upto TO. Supports special chars.
(Breaks, but should not.)
(defalias 'woman2-tr #[(to) "@A\306\211\211 \205 \307\f\310\311#\312Pl\204D \313 l\203& \314\202) \313 \nG\310U\2036 \n\fP\202: \f\315\nQ\n B B\202 \316\310!\210\317\f!\320U\203W \307\f\321\"\202Z \322\fP\211 B\323
!,\207" [woman-translations b a alist matches to nil substring 1 -1 "]" woman-get-next-char " " "\\|\\" delete-char string-to-char 93 3 "[" woman2-format-paragraphs] 5 (#$ . 81316)])
#@66 Translate up to marker TO. Do this last of all transformations.
(defalias 'woman-translate #[(to) "\306\300!\2054 \2054 @A\307\310 \f\311#\2053 \312\313\314\315\224\315\225\"\n\"A!\210\315\211 \224
\225|)\210\202 +\207" [woman-translations case-fold-search alist matches to subexp boundp nil re-search-forward t insert-before-markers-and-inherit assoc buffer-substring-no-properties 0] 6 (#$ . 81869)])
(put 'woman-translate 'byte-optimizer 'byte-compile-inline-expand)
#@166 Register alist: the key is the register name as a string.
Each element has the form (KEY VALUE . INC) -- inc may be nil.
Also bound locally in `woman2-roff-buffer'.
(defvar woman-registers '((".H" 24) (".V" 48) (".g" 0) (".i" left-margin) (".j" woman-adjust) (".l" fill-column) (".s" 12) (".u" (if woman-nofill 0 1)) (".v" 48)) (#$ . 82354))
#@71 \kx -- Store current horizontal position in INPUT LINE in register x.
(defalias 'woman-mark-horizontal-position #[nil "\302\303\304\305#\205 \306\224b\210\307\310!iDB\306\211\224 \225|)\210\202 \207" [woman-registers subexp re-search-forward "\\\\k\\(.\\)" nil t 0 match-string 1] 5 (#$ . 82702)])
#@123 Process remaining escape sequences up to eol.
Handle numeric arguments specially if optional argument NUMERIC is non-nil.
(defalias 'woman2-process-escapes-to-eol #[(&optional numeric) "\301\302\303 \304\"\"\207" [numeric woman2-process-escapes copy-marker line-end-position t] 4 (#$ . 83012)])
(put 'woman2-process-escapes-to-eol 'byte-optimizer 'byte-compile-inline-expand)
#@179 .nr R +/-N M -- Assign +/-N (wrt to previous value, if any) to register R.
The increment for auto-incrementing is set to M.
Format paragraphs upto TO. (Breaks, but should not!)
(defalias 'woman2-nr #[(to) "`\306\307!\210`{\310\311w\210\311f\312>\205 \311u\210`Sfl?\205- \302\313\314\315 \316\"\n\")\210\317 \310\311w\210l?\2059 \317 \320
\"\211 \203Q A\f\204Q A \204_ \321\322\323\"\210\202h 9\203h \324 D \203\214 \203w @\202x \321 \325=\203\207 \\\202\213 Z \fBB
B\326 \210\327\330!\210\331!-\207" [name pm numeric value inc woman-registers skip-syntax-forward "^ " " " nil (43 45) woman2-process-escapes copy-marker line-end-position t woman-parse-numeric-arg assoc 0 WoMan-warn "nr %s -- null value assigned as zero!" quote 43 beginning-of-line woman-delete-line 1 woman2-format-paragraphs oldvalue to] 5 (#$ . 83396)])
#@176 Get the value of a numeric argument at or after point.
The argument can include the width function and scale indicators.
Assumes 10 characters per inch. Does not move point.
(defalias 'woman-get-numeric-arg #[nil "\300\301\302\303 \304\"\")\210\212\305 )\207" [numeric woman2-process-escapes copy-marker line-end-position t woman-parse-numeric-arg] 4 (#$ . 84265)])
(put 'woman-get-numeric-arg 'byte-optimizer 'byte-compile-inline-expand)
#@168 Get the value of a numeric expression at or after point.
Unlike `woman-get-numeric-arg', leaves point after the argument.
The expression may be an argument in quotes.
(defalias 'woman-parse-numeric-arg #[nil "g\302U\203 \303u\210\304\305!\203 \306\202 \307 \303\304\310!\2031 \303u\210\311\312\306!!\211 \307 \"\211\202\247 \304\313!\203_ \306\225b\210\311\312\306!\314\230\203H \315\202K \312\306!!\211 \307 \"\203Y \316\202Z \306\211\202\247 g\211\317>\203\252 \303u\210\320=\203\214 \306V\203\205 \307 \306V\203\201 \316\202\245 \306\202\245 \306\307 \210\202\245 \306V\203\231 \316\307 \210\202\245 \307 \306V\203\244 \316\202\245 \306\211\204 *\207" [op value 34 nil looking-at "[+-]" 0 woman-parse-numeric-value "[+/*%-]" intern-soft match-string "[<=>]=?" "==" "=" 1 (38 58) 38] 4 (#$ . 84714)])
#@245 Get a single numeric value at or after point.
The value can be a number register or width function (which assumes 10
characters per inch) and can include scale indicators. It may be an
expression in parentheses. Leaves point after the value.
(defalias 'woman-parse-numeric-value #[nil "g\306=\203' \307\211u\210\310 \311\312\313 \"\210g\314=\203 \307u\210\202$ \315\316!\210)\207\317\320!\2035 \321\322\323!!\202\263 \317\324!\203\213 \325\326!\325\327!\206N \325\330!\206N \325\331!\332\n \"\211 \203\201 \307 \fA\211A\333\f@! \203|
\203| \334 !\f
\"\n\f
BB B\f)\202\207 \315\335\n\"\210\323+\202\263 \336\337\307\340#\205\263 \323\225\341\322\326!! 0 1\3360\307\340#\203\257 \323\2241Z\202\262 \315\342!*\211\204\312 \315\343`\313 {\"\210\311\344\313 \"\210\323\202&\323\225b\210\317\345!\204\317\346!\204\317\347!\203\350 \350_\211\202\317\351!\203\366 \352_\211\202\307 2\317\353!)\203\354_\211\202\317\355!\203\356_\211\203\323\225b\210\247\203%\357!\202&)\207" [n pm name woman-registers value inc 40 nil woman-parse-numeric-arg skip-syntax-forward " " line-end-position 41 WoMan-warn "Parenthesis confusion in numeric expression!" looking-at "[-+]?[.0-9]+" string-to-number match-string 0 "\\\\n\\([-+]\\)?\\(?:\\[\\([^]]+\\)\\]\\|(\\(..\\)\\|\\(.\\)\\)" match-string-no-properties 1 2 3 4 assoc eval intern-soft "Undefined register %s defaulted to 0." re-search-forward "\\=\\\\w\\(\\\\\\[[^]]+\\]\\|\\\\(..\\|.\\)" t regexp-quote "Width escape delimiter error!" "Numeric/register argument error: %s" "^ " "\\s " "[mnuv]" "i" 10 "c" 3.9 "P" 1.7 "p" 0.14 round delim from case-fold-search] 5 (#$ . 85540)])
#@50 Process breaks. Format paragraphs and headings.
(defalias 'woman2-roff-buffer #[nil "\306\307 \310K\311K\305K\312\211\211\211 \" #\313\"\306\"\210\310\314M\210\311\315KM\210\305\314M\210\316\216\317$\312\306#\203\252 \320\321\322\323!\211P!\211\203V \324\211 %\224%\225|)\210\202z \312\325 \326\"\210\204z \327\330!\204j &\203t \331 \210\332\323!\210\202z \312\210\333c\210\f\204\212 g\334>\2041 \335\211\2031 \336\232\203\233 \"\337\340!\312\223\210\202\242 \"\337 \312\223\210\f\"!\210\2021 m?\205\267 \335\341d\306\"'\". \207" [woman-registers tab-stop-list woman-translations woman-request fn set-text-properties t make-marker canonically-space-region insert-and-inherit nil set-marker-insertion-type ignore insert #[nil "\300M\210\301 M\210\302\nM\210 \304\211\223\207" [canonically-space-region set-text-properties insert-and-inherit to nil] 3] re-search-forward intern-soft "woman2-" match-string 1 0 WoMan-warn-ignored "ignored!" looking-at "[ ]*$" beginning-of-line woman-delete-line 10 (46 39) woman2-format-paragraphs "TS" woman-find-next-control-line "TE" copy-marker to case-fold-search woman-request-regexp subexp woman-ignore woman-left-margin] 11 (#$ . 87207)])
#@199 Find and return start of next control line.
PAT, if non-nil, specifies an additional component of the control
line regexp to search for, which is appended to the default
regexp, "\(\\c\)?\n[.\=']".
(defalias 'woman-find-next-control-line #[(&optional pat) "\303P\304\212\305\n\304\306#\211\203' \307\224\203' \310\311!\203' \312\224b\210\313\314!\210\202 ) \2034 GTZ\2025 d*\207" [pat to pattern "\\(\\\\c\\)?\n[.']" nil re-search-forward t 1 looking-at "br" 0 woman-delete-line 2] 4 (#$ . 88419)])
#@140 .PD d -- Set the interparagraph distance to d.
Round to whole lines, default 1 line. Format paragraphs upto TO.
(Breaks, but should not.)
(defalias 'woman2-PD #[(to) "\301 \210\302!\207" [to woman-set-interparagraph-distance woman2-format-paragraphs] 2 (#$ . 88932)])
#@62 Set the interparagraph distance from a .PD request at point.
(defalias 'woman-set-interparagraph-distance #[nil "l\203 \302\202 \300\303\304\305 \306\"\")\210\212\307 )\310\302!\207" [numeric woman-interparagraph-distance 1 woman2-process-escapes copy-marker line-end-position t woman-parse-numeric-arg woman-delete-line] 4 (#$ . 89208)])
#@78 Set variable `woman-leave-blank-lines' from `woman-interparagraph-distance'.
(defalias 'woman-interparagraph-space #[nil "\211\207" [woman-interparagraph-distance woman-leave-blank-lines] 2 (#$ . 89558)])
(put 'woman-interparagraph-space 'byte-optimizer 'byte-compile-inline-expand)
#@225 .TH n c x v m -- Begin a man page. Format paragraphs upto TO.
n is the name of the page in chapter c; x is extra commentary;
v alters page foot left; m alters page head center.
(Should set prevailing indent and tabs to 5.)
(defalias 'woman2-TH #[(to) "\306\307\310\"\210\311c\210\306\307\310\"\210\312c\210`\313l\204@ \314\315!\203\" \316\317!\210\320 \210`\321c\210\306\307\310\"\210`{ {\230\203 `|\210\202 *\322\323 `\324#\210\313y\210\325 \210\n\n\326
\"\207" [here start woman-default-indent woman-left-margin woman-prevailing-indent to woman-forward-arg unquote concat 40 41 nil looking-at "\"\"[ ]" delete-char 2 delete-horizontal-space " -- " woman-set-face line-beginning-position woman-bold delete-blank-lines woman2-format-paragraphs] 4 (#$ . 89850)])
#@105 .SH -- Sub-head. Leave blank line and subhead.
Format paragraphs upto TO. Set prevailing indent to 5.
(defalias 'woman2-SH #[(to) "l\203 \306\307!\210\202 \310\212\311\210\312 )!\210\313 \210\311\314\315\316 \317\"\")\210\302 !\210\311 \2035 \320`\316 \321#\210\311y\210\f\311\f\322
\"\207" [numeric woman-interparagraph-distance woman-leave-blank-lines woman-bold-headings woman-default-indent woman-left-margin delete-char 1 woman-unquote nil point-marker beginning-of-line woman2-process-escapes copy-marker line-end-position t woman-set-face woman-bold woman2-format-paragraphs woman-nofill woman-prevailing-indent to] 4 (#$ . 90632)])
#@88 .SS -- Sub-sub-head. Like .SH but indent heading 3 spaces.
Format paragraphs upto TO.
(defalias 'woman2-SS #[(to) "l\203 \301\302!\210\303c\210\304 \210\305!\207" [to delete-char 1 " " beginning-of-line woman2-SH] 2 (#$ . 91293)])
#@106 .LP,.PP -- Begin paragraph. Set prevailing indent to 5.
Leave 1 blank line. Format paragraphs upto TO.
(defalias 'woman2-LP #[(to) "\306\307!\210\n\310\f
\"\207" [woman-interparagraph-distance woman-leave-blank-lines woman-default-indent woman-prevailing-indent to woman-left-margin woman-delete-line 1 woman2-format-paragraphs] 3 (#$ . 91536)])
(byte-code "\300\301\302\"\210\300\303\302\"\207" [defalias woman2-PP woman2-LP woman2-P] 3)
#@59 .ns -- Turn on no-space mode. Format paragraphs upto TO.
(defalias 'woman2-ns #[(to) "\302\303!\210\304\305 !\207" [woman-nospace to woman-delete-line 1 t woman2-format-paragraphs] 2 (#$ . 91986)])
#@60 .rs -- Turn off no-space mode. Format paragraphs upto TO.
(defalias 'woman2-rs #[(to) "\302\303!\210\304\305 !\207" [woman-nospace to woman-delete-line 1 nil woman2-format-paragraphs] 2 (#$ . 92192)])
#@72 .sp N -- If N > 0 then leave 1 blank line. Format paragraphs upto TO.
(defalias 'woman2-sp #[(to) "l\203 \305\202 \300\306\307\310 \311\"\")\210\212\312 )\211\313Y\203& \314\305!\210\202. \311\315c\210\316y\210 \317\f!)\207" [numeric N woman-negative-vertical-space woman-leave-blank-lines to 1 woman2-process-escapes copy-marker line-end-position t woman-parse-numeric-arg 0 woman-delete-line ".sp " nil woman2-format-paragraphs] 5 (#$ . 92401)])
#@69 .sp N with N < 0 => overlap following with preceding lines at FROM.
(defalias 'woman-negative-vertical-space #[(from) "\306\307!\210b\210\310\311\312\313#\205\360 \301\314\315\316 \313\" \")\210\212\317 )\312\211 \320 \210\321\322!\210`\211\f[y\210`{`|\210\fy\210 G\323\312 W\203\353 H\211\324=\203^ \312y\210\202\342 l\203\200 \325\326 # \327 #c\210 \206z )\202\342
\330\267\202\301 \312u\210\202\342 g\331=\203\230 \312u\210\202\342 !\323 \" #\"#W\203\275 l\203\261 \332c\210\202\264 \312u\210\"T\211\"\202\241 *\202\342 g\332=\204\325 \n\204\325 \313\306\333\334\322`\"\"\210\335\322!\210\327 \211T#c\210 T\211 \202G .\202 \207" [from numeric overwritten overlap N c WoMan-warn "Negative vertical spacing support is experimental!" re-search-forward "^\\.sp " nil t woman2-process-escapes copy-marker line-end-position woman-parse-numeric-arg beginning-of-line woman-delete-line 1 0 10 string-match "\n" substring #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (32 134 9 140)) 9 32 "Character(s) overwritten by negative vertical spacing in line %d" count-lines delete-char i imax eol woman-tab-width _ --dotimes-limit--] 6 (#$ . 92863)])
#@141 Process remaining escape sequences up to marker TO, preserving point.
Optional argument NUMERIC, if non-nil, means the argument is numeric.
(defalias 'woman2-process-escapes #[(to &optional numeric) "\306!\203\f \307!\204 \310\311!\210`\312\313\314#\203C \315\211\224\n\225|)\210 \204 \315\224\206- `Sf\316=\203 \315\224f\316=\203 \317\320!\210\202 b\210\312\321\314#\203Z \315\211\224\n\225|)\210\202F m\204d `U\203l n\204l \322\316!\210 b\210\323\304!\205\251 \f\205\251 \f@\fA\324 & '\312'\314#\205\250 \325\326\327\315\224\315\225\"&\"A!\210\315\211\224\n\225|)\210\202\205 +)\210 b\210\330!\210 b\210\331\332\314#\203g\211 (\333\267\202\352 \317\334!\210)\203 \317\320!\210\335c\210\202 \202 \317\320!\210\317\334!\210\336c\210\202 )\203\366 (\337>\204 (\340=\203 \341 \210)\202\265 b\210*\203 \331\336\314#\203\342 \210\202\f b\210\312\343\314#\203A\315\224\324 +\211b\210\344 + `|\210\322\345+!!\210*\202 b)\207" [to from subexp woman-nofill woman-translations case-fold-search markerp marker-insertion-type cl--assertion-failed (and (markerp to) (marker-insertion-type to)) re-search-forward "\\\\[&|^]" t 0 10 delete-char 1 "\\\\c.*\n?" insert-before-markers boundp nil insert-before-markers-and-inherit assoc buffer-substring-no-properties woman-special-characters search-forward "\\" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (39 198 40 217 116 220)) -1 96 " " (119 110 104) 108 woman-horizontal-line woman-tab-to-tab-stop "\\\\[nw]" woman-parse-numeric-value number-to-string alist matches c numeric tab-stop-list N] 6 (#$ . 94092)])
#@80 \l\='Nc\=' -- Draw a horizontal line of length N using character c, default _.
(defalias 'woman-horizontal-line #[nil "\304\305!\210\304\306!\210\307\310!\210\306u\210\311\225\312\224\313 `W\203\" g\202# \314 |\210\304\306!\210\315\n \"c,\207" [to from N c delete-char -1 1 looking-at "\\(.\\)\\(.*\\)\\1" 2 0 woman-parse-numeric-arg 95 make-string] 3 (#$ . 95736)])
#@65 .br -- Break. Leave no blank line. Format paragraphs upto TO.
(defalias 'woman2-br #[(to) "\301\302!\210\303!\207" [to woman-delete-line 1 woman2-format-paragraphs] 2 (#$ . 96115)])
#@87 .fi -- Fill subsequent output lines. Leave no blank line.
Format paragraphs upto TO.
(defalias 'woman2-fi #[(to) "\303\304\305!\210\212\306y\210\307\310!\203 \305)\311\n!\207" [woman-nofill woman-leave-blank-lines to nil woman-delete-line 1 -1 looking-at "[ ]*$" woman2-format-paragraphs] 2 (#$ . 96306)])
#@193 .nf -- Nofill. Subsequent lines are neither filled nor adjusted.
Input text lines are copied directly to output lines without regard
for the current line length. Format paragraphs up to TO.
(defalias 'woman2-nf #[(to) "\302\303\304!\210\305 !\207" [woman-nofill to t woman-delete-line 1 woman2-format-paragraphs] 2 (#$ . 96624)])
#@155 .ad c -- Line adjustment is begun (once fill mode is on).
Set justification mode to c if specified.
Format paragraphs upto TO. (Breaks, but should not.)
(defalias 'woman2-ad #[(to) "l\203 \202@ g\306=\203 \202@ g\307=\203 \n\202@ g\310=\203& \202@ g\311>\2030 \f\202@ \305 \312\313\314 \315\"
\")\210\212\316 )H\317\320!\210\321!\207" [woman-adjust-previous woman-adjust-left woman-adjust-right woman-adjust-center woman-adjust-both numeric 108 114 99 (98 110) woman2-process-escapes copy-marker line-end-position t woman-parse-numeric-arg woman-delete-line 1 woman2-format-paragraphs woman-adjust woman-justify-styles woman-justify to] 4 (#$ . 96964)])
#@76 .na -- No adjusting. Format paragraphs upto TO.
(Breaks, but should not.)
(defalias 'woman2-na #[(to) "\n\f
H\306\307!\210\310 !\207" [woman-adjust woman-adjust-previous woman-justify woman-justify-previous woman-adjust-left woman-justify-styles woman-delete-line 1 woman2-format-paragraphs to] 2 (#$ . 97641)])
#@194 Delete all blank lines around point.
Leave one blank line if optional argument LEAVE is non-nil and
non-zero, or if LEAVE is nil and variable `woman-leave-blank-lines' is
non-nil and non-zero.
(defalias 'woman-leave-blank-lines #[(&optional leave) "\212\303\304!\305=\204\f \306y\210`)\307\304!\210\310 \210`|\210\2046 \203& \305=\203( \n \2036 \305V\2036 \311\312!\210\306\211\207" [woman-nospace leave woman-leave-blank-lines skip-syntax-backward " " 0 nil skip-syntax-forward beginning-of-line insert-before-markers 10] 3 (#$ . 97968)])
(defvar woman-temp-indent nil)
#@207 Indent, fill and adjust paragraphs upto TO to current left margin.
If optional arg NEW-LEFT is non-nil then reset current left margin.
If `woman-nofill' is non-nil then indent without filling or adjusting.
(defalias 'woman2-format-paragraphs #[(to &optional new-left) "\203 \306\307!\203 \310\311\312!\210` Y?\205\303 \313\314 \315\"\210
\203@ \302 \210\2033 j\210\313y\210\316` #\210\317 !\210\202\277 ` W\203\277 \302 \210` \206R j\210\317 !\210\313y\210\320\321 \310#\203o l\203o \311\312!\203o \310l\203w m\204z \322 \210\323`\"\310V\204\220 \212\324u\210iV)\203\273 \203\263 W\203\263 \325`#\210\212b\210\313y\210`*\325`#\210)\202@ \313\211\207" [new-left left-margin woman-leave-blank-lines to woman-nospace woman-nofill looking-at "^\\s *$" 1 skip-syntax-forward " " nil woman2-process-escapes numeric indent-rigidly woman-horizontal-escapes re-search-forward "\\(^\\s *$\\)\\|\\(^\\s +\\)" beginning-of-line count-lines -1 fill-region-as-paragraph woman-temp-indent from fill-column woman-justify] 4 (#$ . 98552)])
#@182 .TP i -- Set prevailing indent to i. Format paragraphs upto TO.
Begin indented paragraph with hanging tag given by next text line.
If tag doesn't fit, place it on a separate line.
(defalias 'woman2-TP #[(to) "\303 \304 !\210\305\n\")\207" [i woman-interparagraph-distance to woman2-get-prevailing-indent woman-leave-blank-lines woman2-tagged-paragraph] 3 (#$ . 99625)])
#@64 .IP x i -- Same as .TP with tag x. Format paragraphs upto TO.
(defalias 'woman2-IP #[(to) "l\203
\306\n \f\\\"\207\307\310!\210\311\312! \313 \210\301 \210\314\315!\2064 \314\316!\2054 \212\317y\320U\2053 \314!)?\205< \321\n
\")\207" [woman-interparagraph-distance woman-leave-blank-lines to woman-left-margin woman-prevailing-indent i woman2-format-paragraphs woman-forward-arg unquote woman2-get-prevailing-indent leave-eol beginning-of-line looking-at "^\\.IP" "^\\.sp" 1 0 woman2-tagged-paragraph woman-request-regexp] 4 (#$ . 100004)])
#@68 Find and return start of next control line, even if already there!
(defalias 'woman-find-next-control-line-carefully #[nil "\300\301!\203 `\207\302 \207" [looking-at "^[.']" woman-find-next-control-line] 2 (#$ . 100557)])
#@174 Begin indented paragraph with hanging tag given by current text line.
If tag doesn't fit, leave it on separate line.
Format paragraphs upto TO. Set prevailing indent to I.
(defalias 'woman2-tagged-paragraph #[(to i) "\306\307!\204 \310` U\203D \306\311!\203D \312\313!\314\235\203# \315\313!\210\202> \316\211\224\n\225|)\210\312\313!\317\230\203; \320 !\210\202> \321 \210 \322 \310\223\210`\310\211 \323\324\325 \326\"
\")\210 \310y\210\327\212\330y\210`)`!#\210` U\203\205 \306\331!\203\205 \316\211\224\n\225|)\210\321 \210 \322 \310\223\210 \"\\ ` W\205\267 \332 !\210 b\210\310\210 iZ\211\"\316V\203\265 \333\313!\210\334 \210\335\336\"\"\210 b)\207" [woman-leave-blank-lines to subexp tag woman-nospace numeric looking-at "\\s *$" nil "^[.'][ ]*\\(PD\\|br\\|ta\\|sp\\) *" match-string 1 ("br" "sp") woman-delete-line 0 "ta" woman2-ta woman-set-interparagraph-distance woman-find-next-control-line-carefully woman2-process-escapes copy-marker line-end-position t fill-region-as-paragraph -1 "^[.'][ ]*PD *" woman2-format-paragraphs delete-char delete-horizontal-space insert-char 32 woman-left-margin left-margin woman-justify i] 5 (#$ . 100787)])
#@103 .HP i -- Set prevailing indent to i. Format paragraphs upto TO.
Begin paragraph with hanging indent.
(defalias 'woman2-HP #[(to) "\306 \307
\\\")\207" [i woman-interparagraph-distance woman-leave-blank-lines woman-left-margin woman-temp-indent to woman2-get-prevailing-indent woman2-format-paragraphs] 4 (#$ . 101968)])
#@187 Set prevailing indent to integer argument at point, and return it.
If no argument then return the existing prevailing indent.
Delete line from point and eol unless LEAVE-EOL is non-nil.
(defalias 'woman2-get-prevailing-indent #[(&optional leave-eol) "l\203 \2044 \304\305!\210\2024 \301\306\307\310 \311\" \")\210\212\312 )\313 \210\204+ \304\305!\210\n\314V\2033 \n) \207" [leave-eol numeric i woman-prevailing-indent delete-char 1 woman2-process-escapes copy-marker line-end-position t woman-parse-numeric-arg woman-delete-line 0] 4 (#$ . 102303)])
#@140 .RS i -- Start relative indent, move left margin in distance i.
Set prevailing indent to 5 for nested indents. Format paragraphs upto TO.
(defalias 'woman2-RS #[(to) " B\n B\306 \\\f\307
\"\207" [woman-left-margin woman-RS-left-margin woman-prevailing-indent woman-RS-prevailing-indent woman-default-indent to woman2-get-prevailing-indent woman2-format-paragraphs] 3 (#$ . 102867)])
#@109 .RE -- End of relative indent. Format paragraphs upto TO.
Set prevailing indent to amount of starting .RS.
(defalias 'woman2-RE #[(to) "\203\n \211A\242\n\203 \n\211A\242\305\306!\210\307\f \"\207" [woman-RS-left-margin woman-left-margin woman-RS-prevailing-indent woman-prevailing-indent to woman-delete-line 1 woman2-format-paragraphs] 3 (#$ . 103265)])
#@200 Reset, increment or decrement argument ARG, which must be quoted.
If no argument then use value of optional arg PREVIOUS if non-nil,
otherwise set PREVIOUS. Delete the whole remaining control line.
(defalias 'woman-set-arg #[(arg &optional previous) "l\203 \203 \305 !\202 \306L\210\202g \203 \305!L\210\302\307\310\311 \312\"\n\")\210\313\314!\2055 g\315u\210\316 \211 \204D L\210\202c \f\317U\203U \305! \\L\210\202c \f\320U\203c \305! ZL\210*\321 \210\322\315!\207" [arg previous numeric i pm eval 0 woman2-process-escapes copy-marker line-end-position t looking-at "[+-]" 1 woman-parse-numeric-arg 43 45 beginning-of-line woman-delete-line] 5 (#$ . 103636)])
(defvar woman-ll-fill-column woman-fill-column)
(defvar woman-in-left-margin woman-left-margin)
#@108 .ll +/-N -- Set, increment or decrement line length.
Format paragraphs upto TO. (Breaks, but should not.)
(defalias 'woman2-ll #[(to) "\301\302\303\"\210\304!\207" [to woman-set-arg fill-column woman-ll-fill-column woman2-format-paragraphs] 3 (#$ . 104420)])
#@80 .in +/-N -- Set, increment or decrement the indent.
Format paragraphs upto TO.
(defalias 'woman2-in #[(to) "\301\302\303\"\210\304!\207" [to woman-set-arg left-margin woman-in-left-margin woman2-format-paragraphs] 3 (#$ . 104687)])
#@59 .ti +/-N -- Temporary indent. Format paragraphs upto TO.
(defalias 'woman2-ti #[(to) "\303\301!\210\304\n\305\"\207" [left-margin woman-temp-indent to woman-set-arg woman2-format-paragraphs nil] 3 (#$ . 104926)])
#@235 .ta Nt ... -- Set tabs, left type, unless t=R(right), C(centered).
(Breaks, but should not.) The tab stops are separated by spaces;
a value preceded by + represents an increment to the previous stop value.
Format paragraphs upto TO.
(defalias 'woman2-ta #[(to) "\306\301\307\310\311 \312\" \")\210\212\313l\204I g\314=\205 \315u\210\312\316 \211 \203- \n \\\202. *g\317>\203: \ngB\nB\320\321!\210\322\306w\210\202 *\323\315!\210\324!\325
!\207" [tab-stop-list numeric tab-stop i plus to nil woman2-process-escapes copy-marker line-end-position t 0 43 1 woman-parse-numeric-arg (82 67) skip-syntax-forward "^ " " " woman-delete-line reverse woman2-format-paragraphs] 5 (#$ . 105149)])
#@64 If TAB-STOPS is a cons, return its car, else return TAB-STOPS.
(defalias 'woman-get-tab-stop #[(tab-stops) ":\203 @\207\207" [tab-stops] 1 (#$ . 105854)])
(put 'woman-get-tab-stop 'byte-optimizer 'byte-compile-inline-expand)
#@182 Insert spaces to next defined tab-stop column.
The variable `tab-stop-list' is a list whose elements are either left
tab stop columns or pairs (COLUMN . TYPE) where TYPE is R or C.
(defalias 'woman-tab-to-tab-stop #[nil "\306\307!\210\211\203% i @\211:\203 \n@\202 \n)Y\203% A\211\204\n \203\207 @\211:\2053 A \310\211 \f\203y \211:\203I \n@\202J \n)\311 \212\312\313
\314#)\211\203b S\202c
`Z \f\315=\203u \316\245\202w Z iZ\317\320\",\202\211 \320c)\207" [tab-stop-list tabs tab-stops tab type eol delete-char -1 nil line-end-position search-forward " " t 67 2 insert-char 32 n] 5 (#$ . 106090)])
#@84 .DT -- Restore default tabs. Format paragraphs upto TO.
(Breaks, but should not.)
(defalias 'woman2-DT #[(to) "\302\303\304!\210\305 !\207" [tab-stop-list to nil woman-delete-line 1 woman2-format-paragraphs] 2 (#$ . 106728)])
#@159 .fc a b -- Set field delimiter a and pad character b.
Format paragraphs upto TO.
A VERY FIRST ATTEMPT to make fields at least readable!
Needs doing properly!
(defalias 'woman2-fc #[(to) "l\203 \305 \210\306\307!\210\202n g\310\311\311u\210\312\311w\210l\204! g\305 \210\306\307!\210\212\313\314\311\315#\2034 \316\224)\317\n\320\321\n\322\323\n&\212\313\n\315#\203m \316\224b\210\324\307!\210 c\210\316\225b\210\324\325!\210\326 !\210\327\316\224\316\225 \315%\210\202A ,\330\f!\207" [end pad delim woman-unpadded-space-char to beginning-of-line woman-delete-line 1 32 nil " " re-search-forward "^[.'][ ]*fc\\s " t 0 string 91 94 93 42 delete-char -1 insert-before-markers subst-char-in-region woman2-format-paragraphs] 8 (#$ . 106963)])
#@78 .TS -- Start of table code for the tbl processor.
Format paragraphs upto TO.
(defalias 'woman2-TS #[(to) "\203\306\307!\203 \310\311!\210\306\312!\204 \310\311!\210\202 \310\311!\210`\311\313\314\n\211\315\\{\"\210\316\317 \320#\203_ \321\322!\210\3232[ \316\324 \320#\205Z \321\325!\210\306\326!\203< \327\330!\210\331\323\320\"\210\202< 0\210\202, \nb\210\332\333 \320#\203t \334 \210\310\311!\210\202b \nb\210\316\335 \320#\nb\210\203\315 ` W\203\241 \316\335 \320#\203\233 \336u\210i V\203\233 i\337y\210\202\202 \nb\210 \340\\` W\203\307 \316\335 \320#\203\301 \327\336!\210\341\342 iZ\"\210\337y\210\202\250 \nb\210\202w \343 \316\324 \320#\203\350 \336u\210i\fV\203\342 i\337u\210\202\317 \nb\210\f
V\203
V\203
\344 \n#\210\nb\210\332\345 \320#\203\321\346\f\347\"!\210\202\nb\210+\320)\350 !\207" [woman-emulate-tbl col start to max-col woman-fill-column looking-at ".*;[ ]*$" woman-delete-line 1 ".*\\.[ ]*$" WoMan-log "%s" 40 search-forward "T{\n" t replace-match "" end "\n" " " "T}" delete-char 2 throw re-search-forward "^\\.TH\\|\\.sp" beginning-of-line " " -1 nil 3 insert-char 32 0 woman-break-table "^_$" make-string 95 woman2-format-paragraphs woman-nofill] 5 (#$ . 107719)])
(defalias 'woman2-TE 'woman2-fi)
(defalias 'woman-break-table #[(start-column to start) "`W\2057 \304 !\210l\203 \305y\210\202 \306\307\n\310#\2031 i V\2031 \311\312\313\"\210\311\314 \315Z\"\210\202 \305y\210\202 \207" [to woman-fill-column start start-column move-to-column nil search-backward " " t insert-char 10 1 32 5] 4])
#@49 Log the beginning of formatting in *WoMan-Log*.
(defalias 'WoMan-log-begin #[nil "\305 r\306\307!q\210 \310=\204 \310\311!\210\312db\210\313 ;\203$ \314 P\202' \315P\316\317 \320\261\210d\211*\207" [WoMan-current-buffer major-mode buffer-read-only WoMan-current-file WoMan-Log-header-point-max buffer-name get-buffer-create "*WoMan-Log*" view-mode 1 nil "\n\f\nFormatting " "file " "buffer " " at " current-time-string "\n"] 5 (#$ . 109278)])
#@63 Log a message out of FORMAT control string and optional ARGS.
(defalias 'WoMan-log #[(format &rest args) "\302\303\304 #!\207" [format args WoMan-log-1 apply format-message] 5 (#$ . 109733)])
#@71 Log a warning message out of FORMAT control string and optional ARGS.
(defalias 'WoMan-warn #[(format &rest args) "\302\303 #\304\305P!\207" [format args apply format-message WoMan-log-1 "** "] 4 (#$ . 109932)])
#@105 Log a warning message about ignored directive REQUEST.
IGNORED is a string appended to the log message.
(defalias 'WoMan-warn-ignored #[(request ignored) "`\303 {\211G\304V\203 \305!\306U\204 \307P\310\311 \312\n\260!)\207" [tail request ignored line-end-position 0 string-to-char 32 " " WoMan-log-1 "** " " request "] 7 (#$ . 110155)])
#@131 Log the end of formatting in *WoMan-Log*.
TIME specifies the time it took to format the man page, to be printed
with the message.
(defalias 'WoMan-log-end #[(time) "\301\302\303\"\304\"\207" [time WoMan-log-1 format "Formatting time %g seconds." end] 4 (#$ . 110509)])
#@128 Log a message STRING in *WoMan-Log*.
If optional argument END is non-nil then make buffer read-only after
logging the message.
(defalias 'WoMan-log-1 #[(string &optional end) "r\305\306!q\210\307db\210 \204 \310c\210\n\311\261\210 \203 \312\202= \203= \313\314 \313\315p!!\210\f\203; \fb\210\316y\210\317\320!\210!\210)\307\207" [buffer-read-only end string woman-show-log WoMan-Log-header-point-max get-buffer-create "*WoMan-Log*" nil " " "\n" t select-window selected-window display-buffer -1 recenter 0] 5 (#$ . 110786)])
#@43 Make a bookmark entry for a Woman buffer.
(defalias 'woman-bookmark-make-record #[nil "\301 \302\303\304!\305\306PB\307B\310BB\"B\207" [woman-last-file-name Man-default-bookmark-title append bookmark-make-record-default no-file location "woman " man-args ((handler . woman-bookmark-jump))] 6 (#$ . 111324)])
#@45 Default bookmark handler for Woman buffers.
(defalias 'woman-bookmark-jump #[(bookmark) "\304\305\"\306 \307\216\310 !\210p*\311\312\313 B\314!BB!*\207" [bookmark file #1=#:wconfig buf bookmark-prop-get man-args current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] woman-find-file bookmark-default-handler "" buffer bookmark-get-bookmark-record] 5 (#$ . 111640)])
(provide 'woman)
Mini Shell