Lines Matching defs:?r
15 ;; GNU Emacs is free software; you can redistribute it and/or modify
17 ;; the Free Software Foundation; either version 2, or (at your option)
22 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
33 ;; `man' (or `manual-entry') command to format a UN*X manual `page'
47 ;; Not a complete emulation. Currently no support for eqn or tbl.
52 ;; works less well on idiosyncratic files that `break the rules' or
65 ;; command `woman-mini-help', or selecting the WoMan menu option `Mini
86 ;; extended command `woman', enter or select a manual entry topic,
91 ;; Or (2): Execute the extended command `woman-find-file' and enter a
96 ;; Or (3): Put the next two sexpr's in your .emacs:
134 ;; and then (e.g. from a command prompt or the Run... option in the
222 ;; should be either 0 or 1. A blank line should leave a space like
279 ;; If WoMan fails completely, or formats a file incorrectly
280 ;; (i.e. obviously wrongly or significantly differently from man) or
320 ;; directories or files in the paths specified by `woman-manpath' or
333 ;; MUST PROCESS .if, .nr IN ORDER ENCOUNTERED IN FILE! (rcsfile, mf).
342 ;; Make 10 or 12 pitch (cpi) optional -- 12 => ll = 78
365 ;; escape or request and then calls the appropriate function to
388 ;; Frederic Corne <frederic.corne@erli.fr>
447 FN must return a list, cons or nil. Useful for splicing into a list."
486 (parse-colon-path (or paths "")))))
504 ;; Hack /cygdrive/x/ or /x/ or (obsolete) //x/ to x:/
506 (if (match-string 1) ; /cygdrive/x/ or //x/ -> /x/
532 Change only via `Customization' or the function `add-hook'."
538 Change only via `Customization' or the function `add-hook'."
556 "*List of dirs to search and/or files to try for man config file.
568 Used only if MANPATH is not set or contains null components.
572 or
574 or
576 or
586 (or (not (file-directory-p file))
610 (or (woman-parse-colon-path (getenv "MANPATH"))
614 subdirectories of the form `man?', or more precisely subdirectories
640 separated or UN*X/Cygwin colon-separated syntax (but not mixed)."
662 string or nil, which represents the current directory when the path is
673 (\"$EMACSDATA\") [or equivalently (\"$emacs_dir/etc\")].
692 Run the `woman' command with a prefix argument or delete the cache
714 E.g. '(\"w\" \"W\"), or any non-null atom to automatically define
715 \"w\" and \"W\" if they are unbound, or nil to do nothing.
792 MUST NOT end with any kind of string terminator such as $ or \\'."
802 e.g. \"\\\\.\\\\(g?z\\\\|bz2\\\\)\\\\'\" for `gzip' or `bzip2'.
813 (or (and (fboundp 'display-graphic-p) (display-graphic-p)) ; Emacs 21
816 Only useful when run on a graphic display such as X or MS-Windows."
866 buffer text is searched, copied or saved to a file."
872 "*WoMan emulation, currently either nroff or troff. Default is nroff.
889 (or (and (fboundp 'display-color-p) (display-color-p))
894 or different fonts."
899 ;; You should probably select either italic or underline as you prefer, but
922 ;; non-standard fonts seem to do so badly or in idiosyncratic ways!)
947 This is usually either black or white."
989 (or (woman-select-symbol-fonts (x-list-fonts "*" 'default))
1026 "Adjustment indicator `b' or `n' -- adjust both margins.")
1057 Set by `.ns' request; reset by any output or `.rs' request")
1091 Should include ?e, ?o (page even/odd) and either ?n (nroff) or ?t (troff).
1161 (if (or (not (stringp topic)) (string-match "\\S " topic))
1244 (or
1261 (or (stringp topic)
1266 (setq topic (or (current-word t) "")) ; only within or adjacent to word
1311 (or
1328 (or (file-readable-p dir)
1334 directory HEAD, or the current directory if HEAD is nil, that match the
1336 (or (directory-files
1337 (or head (directory-file-name default-directory)) ; was "."
1344 (or (file-accessible-directory-p dir)
1351 Ignore any paths that are unreadable or not directories."
1352 ;; Allow each path to be a single string or a list of strings:
1375 (if (or (null dir)
1538 (if (or (eq (lookup-key dired-mode-map key) 'undefined)
1569 (or (eq major-mode 'tar-mode)
1615 (or (and (setq exists
1618 ;; Format new buffer or reformat current buffer:
1629 (or exists
1658 (or (and (frame-live-p woman-frame) woman-frame)
1751 If COMPRESSED is t, or is non-nil and the filename implies compression,
1760 (or (eq compressed t)
1799 (if (or (not topic)
1811 (woman (or (current-word t) "")))
1966 (or (commandp symbol)
2015 ;; "Use WoMan unless invoked outside a WoMan buffer or invoked explicitly.
2230 ;; specify the sequence of preprocessors to run before nroff or
2281 (if (or woman-fill-frame
2365 (repl (if (or (= (aref esc 0) ?u)
2388 ; ;; Delimiter can be a special char escape sequence \(.. or
2459 ;; Delimiter can be a special char escape sequence \(.. or
2549 (let ((yy (or (match-string 1) "."))
2573 ;; c evaluates to a one-character built-in condition name or
2574 ;; 'string1'string2' or a number > 0, prefix ! negates.
2701 (or (file-exists-p filename)
2702 ;; or the parent directory ...
2829 "Interpolate (.de) or append (.am) expansion of MACRO into the buffer."
2874 "Match and move over name of form: x, (xx or [xxx...].
2985 * `use-symbol-font' is t to indicate use of the symbol font or nil,
2991 Use the WoMan command `woman-display-extended-fonts' or a character
3006 (let* ((name (or (match-string-no-properties 1)
3065 (if (or in-quote (looking-at ".*\"")) ; paired
3091 ;; Delete request or macro name:
3113 (woman1-B-or-I ".ft B\n"))
3117 (woman1-B-or-I ".ft I\n"))
3119 (defun woman1-B-or-I (B-or-I)
3123 (insert B-or-I) ; because it might be a control line
3125 ;; or start of first arg to hide leading control char.
3183 "Move forward over one ?roff argument, optionally unquoting and/or joining.
3357 (or font
3370 ;; Delete font control line or escape sequence:
3399 (or (eq face 'default) ; ignore
3421 ;; A list of the form (\"[ace]\" (a . b) (c . d) (e . ?\ )) or nil.
3433 (defun woman2-tr (to)
3434 ".tr abcde -- Translate a -> b, c -> d, ..., e -> space.
3446 ;; Process .tr arguments:
3518 (defun woman2-nr (to)
3519 ".nr R +/-N M -- Assign +/-N (wrt to previous value, if any) to register R.
3544 (WoMan-warn "nr %s -- null value assigned as zero!" name))
3562 "Get the value of a numeric argument at or after point.
3569 "Get the value of a numeric expression at or after point.
3583 (setq op (or (intern-soft (match-string 0))
3587 ((memq (setq op (following-char)) '(?& ?:)) ; Boolean and / or
3590 ;; and / or are special forms, not functions, in ELisp
3597 ;; or
3616 "Get a single numeric value at or after point.
3617 The value can be a number register or width function (which assumes 10
3641 (name (or (match-string-no-properties 2)
3665 ;; \(xx or single normal char (usually '):
3693 ;; NB: May be immediately followed by + or -, etc.,
3734 ;; Delete request or macro name:
3746 ((or (looking-at "[ \t]*$") ; no argument
3753 (if (not (or fn
3778 ;; .br (and other requests?)
3785 (looking-at "br"))
3794 ;; .ie \\n[.$] .nr PD (v;\\$1)
3795 ;; .el .nr PD .4v>?\n[.V]
3939 (setq i (or eol imax)))
3954 (if (or (eq (following-char) ?\ ) ; overwrite OK
3990 (if (and (or (eobp) (= (point) to)) (not (bolp)))
4058 (defun woman2-br (to)
4059 ".br -- Break. Leave no blank line. Format paragraphs upto TO."
4086 ;; c = l -- left, r -- right, c -- center, b or n -- both,
4115 non-zero, or if LEAVE is nil and variable `woman-leave-blank-lines' is
4130 (if (or (null leave) (eq leave 0))
4146 If `woman-nofill' is non-nil then indent without filling or adjusting."
4162 ;; Indent without filling or adjusting ...
4181 (indent-to (or woman-temp-indent left-margin))
4205 (if (or (> (count-lines from (point)) 1)
4267 ;; i) For IP followed by one or more IPs, we ignore all but the
4270 ;; ii) For IP followed by SP followed by one or more requests,
4273 (unless (or (looking-at "^\\.IP")
4299 (looking-at "^[.'][ \t]*\\(PD\\|br\\|ta\\|sp\\) *"))
4300 (if (member (match-string 1) '("br" "sp"))
4359 (or leave-eol (delete-char 1))
4361 (woman-delete-line) (or leave-eol (delete-char 1))
4401 "Reset, increment or decrement argument ARG, which must be quoted.
4424 ".ll +/-N -- Set, increment or decrement line length.
4430 ".in +/-N -- Set, increment or decrement the indent.
4478 tab stop columns or pairs (COLUMN . TYPE) where TYPE is R or C."
4522 (or (eolp) (setq pad (following-char)))
4582 ;; Format table with no filling or adjusting (cf. woman2-nf):
4605 (or (eq major-mode 'view-mode) (view-mode 1))
4651 (or end (insert " ")) (insert string "\n")