Lines Matching +defs:indent +defs:string
436 (if (string-match Man-reference-regexp arg)
453 "Explode search path string PATHS into a list of directory names.
464 ((string-match ";" paths)
472 ((string-match "\\`[a-zA-Z]:" paths)
505 (when (string-match "\\`\\(/cygdrive\\|/\\)?/./" file)
506 (if (match-string 1) ; /cygdrive/x/ or //x/ -> /x/
563 :type '(repeat string)
601 (match-string 1)
602 (cons (match-string 2)
603 (match-string 3)))))
641 :type '(repeat (choice string (cons string string)))
650 :type 'string
662 string or nil, which represents the current directory when the path is
664 directory string is treated as a regexp \(Emacs, not shell) and the
665 string is expanded into a list of matching directories. Non-directory
678 :type '(repeat (choice string (const nil)))
718 (repeat string)
740 :type 'string
792 MUST NOT end with any kind of string terminator such as $ or \\'."
840 (defcustom woman-default-indent 5
841 "*Default prevailing indent set by -man macros -- default is 5.
964 (and (string-match "-Symbol-" (car fonts))
994 "*A string describing the symbol font to use for special characters.
1001 string)
1038 (defvar woman-left-margin woman-default-indent
1040 (defvar woman-prevailing-indent woman-default-indent
1041 "Current prevailing indent.")
1053 (defvar woman-RS-prevailing-indent nil
1054 "Prevailing indent stack for nested use of `.RS/.RE'.")
1158 should be a topic string and non-nil RE-CACHE forces re-caching."
1161 (if (or (not (stringp topic)) (string-match "\\S " topic))
1192 (split-string (getenv "PATH") path-separator t)))
1283 ;; Note that completing-read always returns a string.
1289 ;; rather than the string entered by the user:
1352 ;; Allow each path to be a single string or a list of strings:
1361 (setq path (split-string (getenv "PATH") path-separator t)))
1393 (if (string= (substring dir -1) "/")
1450 (if (string-match ext file)
1468 (setq alist (sort alist (lambda(x y) (string< (car y) (car x)))))
1612 (while (and alist-tail (not (string= file-name (car (car alist-tail)))))
1622 (not (not (string-match woman-file-compression-regexp bufname)))))
1640 (let ((dot (string-match "\\." bufname)))
1693 (regexp-quote (match-string 0)) ; header
1761 (string-match woman-file-compression-regexp filename))
1800 (string= topic ""))
1802 (woman (if (string-match Man-reference-regexp topic)
1982 (substring doc 0 (string-match "\n" doc))
1987 (substring doc 0 (string-match "\n" doc))))))
1997 ;; topic is a string, generally of the form "section topic"
1998 (let ((s (string-match " " topic)))
2095 (defconst woman-escaped-escape-string
2096 (char-to-string woman-escaped-escape-char)
2097 "Internal string representation of escaped escape characters.")
2102 (defconst woman-unpadded-space-string
2103 (char-to-string woman-unpadded-space-char)
2104 "Internal string representation of unpadded space characters.")
2166 (defvar woman-string-alist ; rebound in woman-decode-region
2185 (if (match-string 1)
2186 (replace-match woman-escaped-escape-string t t)
2192 (match-string 1))
2193 (replace-match woman-escaped-escape-string t t))
2209 (if (and (string-match "\\`woman-" face-name)
2224 ;; preprocessor string. To contain a valid preprocessor string, the
2227 ;; '\" <string>
2229 ;; where string can be any combination of the following letters that
2251 (woman-string-alist woman-string-alist)
2254 (setq woman-left-margin woman-default-indent
2255 woman-prevailing-indent woman-default-indent
2259 woman-RS-prevailing-indent nil
2265 (cons (string-to-char (symbol-name woman-emulation)) '(?e ?o)))
2283 (setq woman-fill-column (- (window-width) woman-default-indent)))
2288 (let ((letters (append (match-string 1) nil)))
2325 (replace-match woman-unpadded-space-string t t))
2364 (let* ((esc (match-string 1))
2393 ; (delim (regexp-quote (match-string 1)))
2394 ; (absolute (match-string 2)) ; absolute position?
2441 (while (search-forward woman-escaped-escape-string nil t)
2444 (while (search-forward woman-unpadded-space-string nil t)
2464 (delim (regexp-quote (match-string 1)))
2465 (absolute (match-string 2)) ; absolute position?
2528 (setq request (match-string 1))
2529 (cond ((string= request "ig") (woman0-ig))
2530 ((string= request "if") (woman0-if "if"))
2531 ((string= request "ie") (woman0-if "ie"))
2532 ((string= request "el") (woman0-el))
2533 ((string= request "so") (woman0-so))
2534 ((string= request "rn") (woman0-rn))
2535 ((string= request "de") (woman0-de))
2536 ((string= request "am") (woman0-de 'append))
2549 (let ((yy (or (match-string 1) "."))
2593 request (match-string 0)))
2600 (let ((end1 (copy-marker (match-end 2) t))) ; End of first string.
2606 (setq c (string= (buffer-substring (point) end1)
2645 (match-string 1))
2653 (cond ((string= request "ie")
2660 ((string= request "el")
2761 (concat woman-escaped-escape-string
2762 "\\(" woman-escaped-escape-string "\\)?"))
2768 (while (setq start (string-match woman-unescape-regex macro start))
2770 (if (match-string 1 macro)
2786 (let* ((macro (match-string 0)) from
2808 ;; This should be an update, but consing a new string
2835 argno-string formal-arg from actual-arg start)
2840 (setq argno-string (format "%d" argno))
2841 (setq formal-arg (concat "\\\\\\$" argno-string)) ; regexp
2848 (while (setq start (string-match formal-arg macro start))
2854 (setq start (string-match "\\\\\\$." macro start))
2860 (setq start (string-match "\\\\n(\\.\\$" macro start)) ; regexp
2861 (setq macro (replace-match argno-string t t macro)))
2887 "Process ?roff string requests and escape sequences up to buffer position TO.
2888 Strings are defined/updated by `.ds xx string' requests and
2894 (cond ((match-string 1) ; .ds
2899 (let ((string (match-string 0)))
2901 ; (setq string
2902 ; (cons string
2905 ; ((looking-at ".*") (match-string 0)))
2909 (setq string (cons string (match-string 0)))
2910 ;; This should be an update, but consing a new string
2912 (setq woman-string-alist (cons string woman-string-alist))
2919 (let* ((stringname (match-string 0))
2920 (string (assoc stringname woman-string-alist)))
2921 (cond (string
2923 ;; Temporary hack in case string starts with a
2926 (insert-before-markers (cdr string)))
2928 (WoMan-warn "Undefined string %s not interpolated!"
2933 (setq woman-string-alist
2935 woman-string-alist))))
2979 (input-string ascii-string extended-font-string . use-symbol-font)
2981 * `\\(input-string' is the ?roff encoding,
2982 * `ascii-string' is the (multi-character) ASCII simulation,
2983 * `extended-font-string' is the single-character string representing
2988 to \\237) in `extended-font-string' for now, since they can be
3006 (let* ((name (or (match-string-no-properties 1)
3007 (match-string-no-properties 2)))
3024 (if (match-string 1) "\\(%s" "\\[%s]")
3040 (insert (format "\\%03o " i) (string i) " " (string i))
3088 (setq request (match-string 1)))))
3252 (let ((c (char-to-string (following-char))))
3259 (match-string 1))
3337 (cond ((match-string 2)
3345 ((match-string 3)
3348 ((match-string 4)
3358 (let ((fontstring (match-string 0)))
3428 (prog1 (match-string 0)
3430 (prog1 (char-to-string (following-char))
3443 ;; `matches' must be a string:
3460 (if (= (string-to-char matches) ?\])
3493 (".i" left-margin) ; current indent
3500 "Register alist: the key is the register name as a string.
3509 (cons (list (match-string 1) (current-column))
3579 (setq op (intern-soft (match-string 0)))
3583 (setq op (or (intern-soft (match-string 0))
3635 ;; string-to-number returns 0 if number not parsed.
3636 (string-to-number (match-string 0)))
3640 (let* ((pm (match-string-no-properties 1))
3641 (name (or (match-string-no-properties 2)
3642 (match-string-no-properties 3)
3643 (match-string-no-properties 4)))
3668 (delim (regexp-quote (match-string 1))))
3670 ;; Return width of string:
3733 (setq request (match-string 1)))))
3784 (match-string 1)
3818 \(Should set prevailing indent and tabs to 5.)"
3834 (if (string-match (buffer-substring here (point))
3843 (setq woman-left-margin woman-default-indent)
3844 (setq woman-prevailing-indent woman-default-indent)
3849 Format paragraphs upto TO. Set prevailing indent to 5."
3862 (setq woman-left-margin woman-default-indent
3864 (setq woman-prevailing-indent woman-default-indent)
3868 ".SS -- Sub-sub-head. Like .SH but indent heading 3 spaces.
3877 ".LP,.PP -- Begin paragraph. Set prevailing indent to 5.
3881 (setq woman-prevailing-indent woman-default-indent)
3937 (let ((eol (string-match "\n" overlap i)))
4038 (insert-before-markers (number-to-string N))))
4053 (insert (make-string N c))
4141 (defvar woman-temp-indent nil)
4146 If `woman-nofill' is non-nil then indent without filling or adjusting."
4165 (cond (woman-temp-indent
4166 (indent-to woman-temp-indent)
4168 (indent-rigidly (point) to left-margin)
4181 (indent-to (or woman-temp-indent left-margin))
4216 (if (and woman-temp-indent (< woman-temp-indent left-margin))
4217 (let ((left-margin woman-temp-indent))
4230 (setq woman-temp-indent nil)
4240 ".TP i -- Set prevailing indent to i. Format paragraphs upto TO.
4243 (let ((i (woman2-get-prevailing-indent)))
4251 ;; Like LP without resetting prevailing indent
4253 woman-prevailing-indent))
4255 (let ((i (woman2-get-prevailing-indent 'leave-eol)))
4289 Format paragraphs upto TO. Set prevailing indent to I."
4300 (if (member (match-string 1) '("br" "sp"))
4303 (if (string= (match-string 1) "ta") ; for GetInt.3
4314 ;; (indent-to woman-left-margin)
4346 ".HP i -- Set prevailing indent to i. Format paragraphs upto TO.
4347 Begin paragraph with hanging indent."
4348 (let ((i (woman2-get-prevailing-indent)))
4350 (setq woman-temp-indent woman-left-margin)
4354 (defun woman2-get-prevailing-indent (&optional leave-eol)
4355 "Set prevailing indent to integer argument at point, and return it.
4356 If no argument then return the existing prevailing indent.
4363 ;; FIXME should this be >= 0? How else to reset to 0 indent?
4364 (if (> i 0) (setq woman-prevailing-indent i))))
4365 woman-prevailing-indent)
4379 ".RS i -- Start relative indent, move left margin in distance i.
4380 Set prevailing indent to 5 for nested indents. Format paragraphs upto TO."
4382 (woman-push woman-prevailing-indent woman-RS-prevailing-indent)
4384 (woman2-get-prevailing-indent))
4385 woman-prevailing-indent woman-default-indent)
4389 ".RE -- End of relative indent. Format paragraphs upto TO.
4390 Set prevailing indent to amount of starting .RS."
4392 (woman-pop woman-prevailing-indent woman-RS-prevailing-indent)
4430 ".in +/-N -- Set, increment or decrement the indent.
4436 ".ti +/-N -- Temporary indent. Format paragraphs upto TO."
4438 ;; Indent next output line only wrt current indent.
4439 ;; Current indent is not changed.
4440 (setq woman-temp-indent left-margin)
4441 (woman-set-arg 'woman-temp-indent)
4479 ;; Based on tab-to-tab-stop in indent.el.
4530 (setq delim (string delim ?[ ?^ delim ?] ?* delim))
4612 " at " (current-time-string) "\n")
4617 "Log a message out of FORMAT control string and optional ARGS."
4621 "Log a warning message out of FORMAT control string and optional ARGS."
4627 IGNORED is a string appended to the log message."
4632 (/= (string-to-char tail) ?\ ))
4643 (defun WoMan-log-1 (string &optional end)
4651 (or end (insert " ")) (insert string "\n")