Lines Matching +defs:position +defs:if +defs:not
26 ;; along with GNU Emacs; see the file COPYING. If not, write to the
42 ;; Much more direct, does not require any external programs.
57 ;; `auto-compression-mode' by turning it on if necessary. But you may
87 ;; using completion, and if necessary select a filename, using
113 ;; "w" when it loads, but only if they are not already defined. This
119 ;; default) WoMan will not overwrite the `dired-x' binding.)
144 ;; buffer as the default topic to look up if it matches the name of a
185 ;; current man page (using imenu). Alternatively, if you set the
191 ;; This facility is not yet widely tested and may be fooled by obscure
194 ;; WoMan is configured not to replace spaces in an imenu *Completion*
240 ;; by WoMan, and if WoMan finds anything that it cannot handle then it
246 ;; level of paranoia will be reduced, but not until WoMan is more
258 ;; (Probably not a good idea. If you use it, be careful!)
286 ;; (b) check that the problem is not already described in the file
292 ;; the source file from, but do not send it to me unless I ask you to!
309 ;; sessions. This is recommended only if the command `woman' is too
318 ;; it to `woman-cache-filename' if this variable has a non-nil value.
319 ;; This is necessary if the NAMES (not contents) of any of the
323 ;; disc (if one is in use) the next time it is run in a new Emacs
333 ;; MUST PROCESS .if, .nr IN ORDER ENCOUNTERED IN FILE! (rcsfile, mf).
336 ;; Pre-process conditionals in macro bodies if possible for speed?
341 ;; Buffer list handling not quite right.
436 (if (string-match Man-reference-regexp arg)
456 As a special case, if PATHS is nil then replace it by calling
461 (if (memq system-type '(windows-nt ms-dos))
468 (if x
480 (if x (list x) (woman-parse-man.conf))))
485 (lambda (x) (if x (list x) (woman-parse-man.conf)))
490 ;; MANPATH_MAP conses are not converted since they presumably map
492 (if (consp file)
495 (if (eq (aref file 0) ?/)
506 (if (match-string 1) ; /cygdrive/x/ or //x/ -> /x/
525 "*If non-nil then show the *WoMan-Log* buffer if appropriate.
526 I.e. if any warning messages are written to it. Default is nil."
553 (if (eq system-type 'windows-nt)
558 optional, and the filename is used if a directory specified is
560 with \".conf\". If MANPATH is not set but a config file is found
567 "Parse if possible configuration file for man command.
568 Used only if MANPATH is not set or contains null components.
583 (not (and
585 ;; If not a file then find the file:
586 (or (not (file-directory-p file))
591 ;; Parse the file -- if no MANPATH data ignore it:
600 (if (match-beginning 1)
619 to manual trees: if such an element's car is equal to a path
623 If not set then the environment variable MANPATH is used. If no such
625 consulting the man configuration file if found, which is determined by
640 separated or UN*X/Cygwin colon-separated syntax (but not mixed)."
654 (if (eq system-type 'ms-dos) '("$DJDIR/info" "$DJDIR/man/cat[1-9onlp]"))
664 directory string is treated as a regexp \(Emacs, not shell) and the
715 \"w\" and \"W\" if they are unbound, or nil to do nothing.
723 '((nil "\n\\([A-Z].*\\)" 1) ; SECTION, but not TITLE
738 "*The title to use if WoMan adds a Contents menu to the menubar.
745 ;; in which case its global value does not get defined.
746 ;; `woman-file-name' sets it to this value if it is unbound.
755 without interactive confirmation, if it exists as a topic."
784 "*Do not change this unless you are sure you know what you are doing!
799 "*Do not change this unless you are sure you know what you are doing!
807 ;; not loaded by default!
893 It defaults to a non-nil value if the display supports either colors
900 ;; not both, although italic and underline work together perfectly well!
921 ;; but not enough so to make font errors look terrible. (Files that use
962 ;; not seem to work and fonts may be repeated, so ...
965 (not (member (car fonts) symbol-fonts))
973 ;; Set the symbol font only if `woman-use-symbol-font' is true, to
1072 "Buffer-local: set to true if function `woman-imenu' has been called.")
1089 (defvar woman-if-conditions-true '(?n ?e ?o)
1101 "Delete rest of current line; if all blank then delete thru newline.
1109 (if arg
1111 (if (eobp)
1113 (if (looking-at "[ \t]*$")
1132 ;; delete-char does not kill by default
1133 ;; delete-backward-char does not kill by default
1134 ;; delete-horizontal-space does not kill
1135 ;; delete-blank-lines does not kill
1157 Used non-interactively, arguments are optional: if given then TOPIC
1161 (if (or (not (stringp topic)) (string-match "\\S " topic))
1163 (if file-name
1200 Return t if the file exists, nil otherwise."
1209 (if woman-cache-filename
1238 automatically used as the topic, if the value of the user option
1239 `woman-use-topic-at-point' is non-nil. Return nil if no file can
1240 be found. Optional argument RE-CACHE, if non-nil, forces the
1243 (if (and (not re-cache)
1257 ;; does not seem to work properly by default, so I re-do the
1258 ;; completion if necessary.
1262 (and (if (boundp 'woman-use-topic-at-point)
1276 (if default
1284 (if (= (length topic) 0)
1313 (not (funcall predicate (car list)))))
1315 (if list
1318 (if (and
1319 (not (member (car cdr_list) (cdr cdr_list)))
1327 "Return t if DIR is readable, otherwise log a warning."
1334 directory HEAD, or the current directory if HEAD is nil, that match the
1335 regexp that is the final component of DIR. Log a warning if list is empty."
1343 "Return t if DIR is accessible, otherwise log a warning."
1351 Ignore any paths that are unreadable or not directories."
1353 (if (not (listp woman-manpath)) (setq woman-manpath (list woman-manpath)))
1354 (if (not (listp woman-path)) (setq woman-path (list woman-path)))
1364 (if (and dir (woman-file-readable-p dir))
1367 ;; If does not actually matter here if dir ends with `/'.
1375 (if (or (null dir)
1380 (if dir
1393 (if (string= (substring dir -1) "/")
1395 (if (memq system-type '(windows-nt ms-dos cygwin)) ; what else?
1401 (defsubst woman-not-member (dir path)
1402 "Return t if DIR is not a member of the list PATH, nil otherwise.
1404 (not (member dir path)))
1416 (if (woman-not-member dir path) ; use each directory only once!
1433 ;; not itself a directory, but this is very slow and should be
1435 ;; filter out any directories, which probably should not be there
1450 (if (string-match ext file)
1470 (if (> woman-cache-level 1)
1473 (if (equal (car elt) (caar newalist))
1503 (if (cdr (car topics))
1513 (if filename
1521 (if (woman-not-member dir path) ; use each directory only once!
1538 (if (or (eq (lookup-key dired-mode-map key) 'undefined)
1544 (if woman-dired-keys
1545 (if (listp woman-dired-keys)
1552 (if (featurep 'dired)
1594 (if woman-last-file-name
1601 Use existing buffer if possible; reformat only if prefix arg given.
1605 decompress the file if appropriate. See the documentation for the
1612 (while (and alist-tail (not (string= file-name (car (car alist-tail)))))
1617 (not reformat))
1622 (not (not (string-match woman-file-compression-regexp bufname)))))
1623 (if compressed
1625 (setq bufname (if exists
1641 (if dot (setq bufname (concat
1653 the file if necessary. Set buffer name BUFNAME and major mode.
1654 Do not call directly!"
1656 (if woman-use-own-frame
1677 (if (re-search-forward "^[.']" 1000 t)
1687 (if (looking-at "\\s-+") (woman-delete-match 0))
1700 (if (looking-at ".*[0-9]$")
1710 (if (< (buffer-size) (position-bytes (point-max)))
1737 ;; interpreted if I knew what to expect.)
1759 (if (and compressed
1762 ;; (not auto-compression-mode)
1763 (not (rassq 'jka-compr-handler file-name-handler-alist)) )
1770 ;; Run find-file-not-found-hooks until one returns non-nil.
1771 ;; (run-hook-with-args-until-success 'find-file-not-found-hooks)
1772 (insert "\n***** File " filename " not found! *****\n\n")
1799 (if (or (not topic)
1802 (woman (if (string-match Man-reference-regexp topic)
1840 ["Make Contents Menu" (woman-imenu t) (not woman-imenu-done)]
1844 ,@(if (fboundp 'customize-group)
1872 (setq woman-use-extended-font (not woman-use-extended-font))
1878 (setq woman-use-symbol-font (not woman-use-symbol-font))
1915 ;; not have pages)
1920 ;; `make-local-variable' in case imenu not yet loaded!
1928 (if woman-imenu (woman-imenu))
1936 Optional argument REDRAW, if non-nil, forces mode line to be updated."
1938 (if woman-imenu-done
1940 ;; causes it to corrupt the menu bar if it is run more than once
1945 (if redraw (force-mode-line-update))))
1950 (setq woman-fill-frame (not woman-fill-frame))
1952 (if woman-fill-frame "frame width" woman-fill-column)
1971 (if (get (car tem) 'apropos-inhibit)
1980 (if (functionp symbol) ; 2. command doc
1981 (if (setq doc (documentation symbol t))
1983 "(not documented)"))
1984 (if (user-variable-p symbol) ; 3. variable doc
1985 (if (setq doc (documentation-property
1999 (if s (setq topic (substring topic (1+ s))))
2005 ;; Both advices are disabled because "a file in Emacs should not put
2017 ;; (if (and (eq major-mode 'woman-mode)
2018 ;; (not (eq (caar command-history) 'man)))
2042 (if (null (cdr woman-buffer-alist))
2044 (if (>= (setq woman-buffer-number (1+ woman-buffer-number))
2047 (if (WoMan-find-buffer)
2049 (if (< (setq woman-buffer-number (1- woman-buffer-number)) 0)
2058 (if (null (cdr woman-buffer-alist))
2060 (if (< (setq woman-buffer-number (1- woman-buffer-number)) 0)
2062 (if (WoMan-find-buffer)
2068 If such a buffer does not exist then remove its association from the
2070 (if (zerop woman-buffer-number)
2072 (if buffer
2079 (if buffer
2083 (if (>= woman-buffer-number (length woman-buffer-alist))
2109 (if woman-syntax-table
2120 does not interfere with any existing display table, e.g. for displaying
2128 (if standard-display-table ; default is nil !!!
2154 ; ((re-search-forward "^\\.[ \t]*TH" nil t) ; wrong format if not found?
2157 ; (t (message "WARNING: .TH request not found -- not man-page format?")))
2175 "Set to t if .sp N with N < 0 encountered.")
2185 (if (match-string 1)
2189 ;; escape character to its argument, if any, which I'm ignoring
2209 (if (and (string-match "\\`woman-" face-name)
2222 ;; First, the environment variable $MANROFFSEQ is interrogated, and if
2223 ;; not set then the initial line of the nroff file is parsed for a
2238 "True if WoMan should emulate the tbl preprocessor.
2247 ;; NB: The `to' argument is bogus: it is not currently used, and if
2248 ;; it were it would need to be a marker rather than a position!
2264 (setq woman-if-conditions-true
2269 ;; Set font of `woman-symbol' face to `woman-symbol-font' if
2281 (if (or woman-fill-frame
2282 (not (and (integerp woman-fill-column) (> woman-fill-column 0))))
2287 (if (looking-at "'\\\\\"[ \t]*\\([a-z]+\\)")
2289 (if (memq ?t letters)
2292 (if letters
2310 (not (re-search-forward "^\\.\\([pnil]p\\|sh\\)[ \n]"
2316 (woman-mark-horizonal-position)
2365 (repl (if (or (= (aref esc 0) ?u)
2379 (setq first (not first))
2394 ; (absolute (match-string 2)) ; absolute position?
2398 ; (if (not (looking-at delim))
2407 ; (if absolute ; make relative
2409 ; (if (>= N 0)
2421 ; (if (<= N 0)
2430 ;; Go back and process negative vertical space if necessary:
2431 (if woman-negative-vertical-space
2434 (if woman-preserve-ascii
2437 ;; properties. This is not necessary, UNLESS the buffer is to
2448 ;; Must return the new end of file if used in format-alist.
2465 (absolute (match-string 2)) ; absolute position?
2469 (if (not (looking-at delim))
2478 (if absolute ; make relative
2480 (if (>= N 0)
2492 (if (<= N 0)
2501 ;; Process ignore requests (.ig), conditionals (.if etc.),
2505 (defvar woman0-if-to) ; marker bound in woman0-roff-buffer
2509 "^[.'][ \t]*\\(ig\\|if\\|ie\\|el\\|so\\|rn\\|de\\|am")
2520 (let ((woman0-if-to (make-marker))
2526 (set-marker-insertion-type woman0-if-to t)
2530 ((string= request "if") (woman0-if "if"))
2531 ((string= request "ie") (woman0-if "ie"))
2538 (set-marker woman0-if-to nil)
2540 ;; Should now re-run `woman0-roff-buffer' if any renaming was
2541 ;; done, but let's just hope this is not necessary for now!
2546 ;; The terminal request MUST begin with . (not ')!
2551 (if (re-search-forward
2555 "ig request ignored -- terminator `.%s' not found!" yy)
2560 "Process escapes within an if/ie condition between FROM and TO."
2569 (defun woman0-if (request)
2570 ".if/ie c anything -- Discard unless c evaluates to true.
2581 (set-marker woman0-if-to
2584 (if (setq negated (= (following-char) ?!)) (delete-char 1))
2589 (setq c (memq (following-char) woman-if-conditions-true)))
2594 ;; Accept strings if identical:
2596 (narrow-to-region from woman0-if-to)
2602 (delete-region (match-end 3) woman0-if-to)
2605 (woman0-process-escapes (point) woman0-if-to)
2607 (buffer-substring end1 woman0-if-to)))
2610 ;; Accept numeric value if > 0:
2612 (woman0-process-escapes from woman0-if-to)
2617 (if (eq c 0)
2618 (woman-if-ignore woman0-if-to request) ; ERROR!
2619 (woman-if-body request woman0-if-to (eq c negated)))
2622 (defun woman-if-body (request to delete) ; should be reversed as `accept'?
2623 "Process if-body, including \\{ ... \\}.
2625 If TO is non-nil then delete the if-body.
2629 (if to (delete-region (point) to))
2634 ;; including preceding .if(s) and following newline
2647 (delete-region (if delete from (match-beginning 0)) (point))
2648 (if (looking-at "^$") (delete-char 1))
2657 (woman-if-body "el" nil (not delete)))))
2663 (woman-if-body "el" nil t))))
2669 "Isolated .el request -- should not happen!"
2674 (woman-if-body "el" nil t))
2676 ;; This does not work too well, but it's only for debugging!
2678 (if (looking-at "[ \t]*\\{") (search-forward "\\}"))
2681 (defun woman-if-ignore (to request)
2682 "Ignore but warn about an if request ending at TO, named REQUEST."
2683 (WoMan-warn-ignored request "ignored -- condition not handled!")
2684 (if woman-ignore
2685 (woman-if-body request to t)
2687 ;; This does not work too well, but it's only for debugging!
2689 (if (looking-at "[ \t]*\\{") (search-forward "\\}"))
2700 ;; If the specified file does not exist in this ...
2712 (error "File `%s' not found" name))
2731 (if (eolp) ; ignore if no argument
2737 (if (eolp) ; ignore if no argument
2770 (if (match-string 1 macro)
2779 Optional argument APPEND, if non-nil, means append macro."
2783 (if (eolp) ; ignore if no argument
2788 (if (not previous)
2796 ;; The terminal request MUST begin with `.' (not ')!
2802 (if (and append previous)
2822 (if macro
2826 (WoMan-warn "Undefined macro %s not interpolated!" request))))
2837 (while (not (eolp))
2862 (if append
2887 "Process ?roff string requests and escape sequences up to buffer position TO.
2896 (if (eolp) ; ignore if no argument
2925 (if (bolp) (insert-before-markers "\\&"))
2928 (WoMan-warn "Undefined string %s not interpolated!"
2984 the character position in the extended 256-character font, and
2996 Set NEWTEXT in face FACE if specified."
2999 (if face (put-text-property (1- (point)) (point) 'face 'woman-symbol))
3003 "Process special character escapes \\(xx, \\[xxx] up to buffer position TO.
3013 (if (nthcdr 3 replacement)
3015 (if woman-use-symbol-font
3019 (if woman-use-extended-font
3024 (if (match-string 1) "\\(%s" "\\[%s]")
3025 " not interpolated!") name)
3026 (if woman-ignore (woman-delete-match 0))))
3046 (if (zerop (% i 8)) (insert "\n")))
3052 ;;; Formatting macros that do not cause a break:
3062 (if (and in-quote (looking-at "\""))
3065 (if (or in-quote (looking-at ".*\"")) ; paired
3067 (setq in-quote (not in-quote))
3069 (if in-quote
3089 (if (get fn 'notfont) ; not a font-change request
3095 (setq unquote (not (eolp)))
3096 (if (eolp) (delete-char 1))
3104 (if (and unquote (memq (following-char) '(?. ?')))
3124 ;; Return to bol to process .SM/.B, .B/.if etc.
3127 (if unquote
3175 (while (not (eolp))
3186 (if (eq (following-char) ?\")
3188 (if unquote (delete-char 1) (forward-char))
3192 (if unquote (delete-char 1) (forward-char))
3194 (if (eq (preceding-char) ?\")
3195 (if unquote (delete-backward-char 1))
3201 ((eq concat 'noskip)) ; do not skip following whitespace
3206 ;; The following requests are not explicit font-change requests and
3217 (forward-line (if (looking-at "\\.\\S-+[ \t]*$") 2 1))
3224 (let ((N (if (eolp) 1 (woman-parse-numeric-arg)))) ; woman-get-numeric-arg ?
3240 ;; (WoMan-log-1 ".nh request ignored -- hyphenation not supported!")
3246 ;; (WoMan-log-1 ".hy request ignored -- hyphenation not supported!")
3254 ;; "Hyphenation character %s deleted -- hyphenation not supported!" c)
3266 ;; (WoMan-log-1 ".hw request ignored -- hyphenation not supported!")
3341 (if (eolp) ; default is previous font
3354 (if notfont
3361 font (if font
3372 (if (eq font 'previous) (setq font previous-font))))
3381 (if beg
3400 (not woman-fontify)
3401 (if (face-underline-p face)
3425 (if ;;(looking-at "\\\\(\\(..\\)")
3436 \(Breaks, but should not.)"
3438 ;; has the same effect and match duplicates should not matter.
3445 (concat (if matches (substring matches 1 -1)) "]"))
3447 (while (not (eolp)) ; (looking-at "[ \t]*$") ???
3449 (if (eolp)
3453 (if (= (length a) 1)
3460 (if (= (string-to-char matches) ?\])
3470 (if translations
3490 (".g" 0) ; not groff
3497 (".u" (if woman-nofill 0 1)) ; 1/0 in fill/nofill mode
3504 (defun woman-mark-horizonal-position ()
3505 "\\kx -- Store current horizontal position in INPUT LINE in register x."
3515 Handle numeric arguments specially if optional argument NUMERIC is non-nil."
3516 (woman2-process-escapes (copy-marker (line-end-position) t) numeric))
3519 ".nr R +/-N M -- Assign +/-N (wrt to previous value, if any) to register R.
3521 Format paragraphs upto TO. (Breaks, but should not!)"
3529 (value (if (eolp) ; no value
3535 (if (eolp) ; no value
3547 (if pm ; increment old value
3548 (setq oldvalue (if oldvalue (car oldvalue) 0)
3549 value (if (eq pm ?+)
3564 Assumes 10 characters per inch. Does not move point."
3572 (if (= (following-char) ?\") (forward-char))
3574 (let ((value (if (looking-at "[+-]") 0 (woman-parse-numeric-value)))
3585 (setq value (if (funcall op value (woman-parse-numeric-value))
3590 ;; and / or are special forms, not functions, in ELisp
3591 (if (eq op ?&)
3593 (if (> value 0)
3594 (if (> (woman-parse-numeric-value) 0) 1 0)
3598 (if (> value 0)
3601 (if (> (woman-parse-numeric-value) 0) 1 0))
3604 ; (if (looking-at "[ \t\nRC\)\"]") ; R, C are tab types
3623 (if (eq (following-char) ?\()
3629 (if (eq (following-char) ?\))
3635 ;; string-to-number returns 0 if number not parsed.
3645 (if value
3652 (if (and pm inc) ; auto-increment
3669 (if (re-search-forward delim nil t)
3674 (if (null n)
3685 (if
3697 (if (numberp n) (round n) n))
3720 ;; ?roff does not squeeze multiple spaces, but does fill, so...
3753 (if (not (or fn
3754 (and (not (memq (following-char) '(?. ?')))
3761 (if (not (eobp)) ; This should not happen, but ...
3773 ; (if to (1- to) (point-max)))
3788 (if to (1- to) (point-max))))
3793 \(Breaks, but should not.)"
3802 (if (eolp) 1 (woman-get-numeric-arg)))
3808 ; (if (> woman-interparagraph-distance 0)
3810 ; (woman-delete-line 1)) ; do not leave blank line
3824 (while (not (eolp))
3834 (if (string-match (buffer-substring here (point))
3850 (if (eolp) ; If no args then
3858 (if woman-bold-headings
3870 (if (eolp) ; If no args then
3889 ;; Should not cause a break!
3896 ;; Should not cause a break!
3903 (let ((N (if (eolp) 1 (woman-get-numeric-arg))))
3904 (if (>= N 0)
3914 ;; Run by woman-decode-region if necessary -- not usually required.
3944 (if (eq (following-char) ?\t)
3948 (if (eolp)
3954 (if (or (eq (following-char) ?\ ) ; overwrite OK
3975 Optional argument NUMERIC, if non-nil, means the argument is numeric."
3989 ;; but do not delete the final newline ...
3990 (if (and (or (eobp) (= (point) to)) (not (bolp)))
4050 (c (if (< (point) to) (following-char) ?_)))
4071 (if (looking-at "[ \t]*$") (setq woman-leave-blank-lines 1)))
4084 Set justification mode to c if specified.
4085 Format paragraphs upto TO. (Breaks, but should not.)"
4102 \(Breaks, but should not.)"
4105 woman-adjust woman-adjust-left ; fill but do not adjust
4114 Leave one blank line if optional argument LEAVE is non-nil and
4115 non-zero, or if LEAVE is nil and variable `woman-leave-blank-lines' is
4122 (if (not (eq (skip-syntax-backward " ") 0))
4128 (if woman-nospace
4130 (if (or (null leave) (eq leave 0))
4133 (if (and leave (> leave 0)) (insert-before-markers ?\n))
4148 (if new-left (setq left-margin new-left))
4149 (if (looking-at "^\\s *$")
4155 (if (>= (point) to) ; >= as a precaution!
4161 (if woman-nofill
4172 ; (cond ((and (= (point) to) (not (looking-at ".nf"))) ; Yuk!!!
4176 ; (if (looking-at "^\\s *$") (kill-line) (forward-line))))
4185 ; (if (re-search-forward "\\(^\\s *$\\)\\|\\(^\\s +\\)" to 1)
4187 ; (if (eolp)
4205 (if (or (> (count-lines from (point)) 1)
4209 ;; ?roff does not squeeze multiple spaces
4211 ;; NOSQUEEZE has no effect if JUSTIFY is full, so
4216 (if (and woman-temp-indent (< woman-temp-indent left-margin))
4250 (if (eolp) ; no args
4281 "Find and return start of next control line, even if already there!"
4282 (if (looking-at "^[.']")
4290 (if (not (looking-at "\\s *$")) ; non-empty tag
4300 (if (member (match-string 1) '("br" "sp"))
4303 (if (string= (match-string 1) "ta") ; for GetInt.3
4327 ;; Format the paragraph body, if there is one! Set indented left
4358 (if (eolp)
4362 ;; i = 0 if the argument was not a number
4364 (if (> i 0) (setq woman-prevailing-indent i))))
4374 `(if ,stack
4402 If no argument then use value of optional arg PREVIOUS if non-nil,
4404 (if (eolp) ; space already skipped
4405 (set arg (if previous (eval previous) 0))
4406 (if previous (set previous (eval arg)))
4408 (let ((pm (if (looking-at "[+-]")
4425 Format paragraphs upto TO. (Breaks, but should not.)"
4437 ;; Ignore if no argument.
4439 ;; Current indent is not changed.
4450 \(Breaks, but should not.) The tab stops are separated by spaces\;
4457 (while (not (eolp))
4460 (setq tab-stop (if plus (+ tab-stop i) i)))
4461 (if (memq (following-char) '(?R ?C))
4473 (if (consp tab-stop-list) (car tab-stop-list) tab-stop-list))
4480 ;; R & C tabs probably not quite right!
4486 (if tabs
4490 (if type
4495 n (- (if n (1- n) eol) (point))
4496 tab (- tab (if (eq type ?C) (/ n 2) n))) )
4505 \(Breaks, but should not.)"
4516 (if (eolp)
4525 (if (re-search-forward "^[.'][ \t]*fc\\s " nil t)
4559 (if (looking-at ".*;[ \t]*$") (woman-delete-line 1)) ;
4562 (while (not (looking-at ".*\\.[ \t]*$")) (woman-delete-line 1))
4571 (if (> (current-column) col) (setq col (current-column))))
4609 (if (stringp WoMan-current-file)
4631 (if (and (> (length tail) 0)
4652 (if end
4654 (if woman-show-log