Lines Matching +defs:tab +defs:stop +defs:list
341 ;; Buffer list handling not quite right.
446 "Return concatenated list of FN applied to successive `car' elements of X.
447 FN must return a list, cons or nil. Useful for splicing into a list."
453 "Explode search path string PATHS into a list of directory names.
460 ;; an empty substring of MANPATH denotes the default list.
465 ;; Assume DOS-style path-list...
466 (woman-mapcan ; splice list into list
469 (list x)
476 ;; Assume UNIX/Cygwin-style path-list...
477 (woman-mapcan ; splice list into list
480 (if x (list x) (woman-parse-man.conf))))
483 ;; Assume host-default-style path-list...
484 (woman-mapcan ; splice list into list
485 (lambda (x) (if x (list x) (woman-parse-man.conf)))
599 (add-to-list 'manpath
624 environment variable is found, the default list is determined by
627 denotes the default list.
665 string is expanded into a list of matching directories. Non-directory
959 "Select symbol fonts from a list FONTS of font name strings."
961 ;; With NTEmacs 20.5, the PATTERN option to `x-list-fonts' does
988 (defconst woman-symbol-font-list
989 (or (woman-select-symbol-fonts (x-list-fonts "*" 'default))
990 (woman-select-symbol-fonts (x-list-fonts "*")))
993 (defcustom woman-symbol-font (car woman-symbol-font-list)
999 ,@(mapcar (lambda (x) (list 'const x))
1000 woman-symbol-font-list)
1016 (defconst woman-justify-list
1033 (nth woman-adjust woman-justify-list) ; use vector?
1047 (defconst woman-tab-width 5
1048 "Default tab width set by -man macros.")
1142 "Expanded directory list cache. Resetting to nil forces update.")
1159 (interactive (list nil current-prefix-arg))
1179 "A list of cached data used to determine cache validity.
1183 "Generate a list of data used to determine cache validity.
1186 (list woman-cache-level
1194 (when dir (add-to-list 'lst (substitute-in-file-name dir)))))
1248 (message "Building list of manual directory expansions...")
1251 (message "Building completion list of all manual topics...")
1306 (defun woman-select (predicate list)
1309 ;; Intended to be fast by avoiding recursion and list copying.
1310 (while (and list
1312 (member (car list) (cdr list))
1313 (not (funcall predicate (car list)))))
1314 (setq list (cdr list)))
1315 (if list
1316 (let ((newlist list) cdr_list)
1317 (while (setq cdr_list (cdr list))
1321 (setq list cdr_list)
1322 (setcdr list (cdr cdr_list)))
1332 "Return a sorted list of files in directory HEAD matching regexp in DIR.
1333 Value is a sorted list of the absolute pathnames of all the files in
1335 regexp that is the final component of DIR. Log a warning if list is empty."
1349 WOMAN-MANPATH should be a list of general manual directories, while
1350 WOMAN-PATH should be a list of specific manual directory regexps.
1352 ;; Allow each path to be a single string or a list of strings:
1353 (if (not (listp woman-manpath)) (setq woman-manpath (list woman-manpath)))
1354 (if (not (listp woman-path)) (setq woman-path (list woman-path)))
1383 ;; was "." -- at head of list for later filtering
1402 "Return t if DIR is not a member of the list PATH, nil otherwise.
1407 "Return an alist of the man files in all man directories in the list PATH.
1410 ;; will be a list of the first `woman-cache-level' elements of the
1411 ;; following list: (topic path-index filename). This alist `files'
1429 Support 3 levels of caching: each element of the alist will be a list
1430 of the first `woman-cache-level' elements from the following list:
1457 (list file)))))
1462 Also make each path-info component into a list.
1467 ;; Sort list into reverse order
1477 (setcdr elt (list (cdr elt)))
1489 ;; woman-topic-all-completions is a list of one of the forms:
1514 (list (concat dir "/" filename))
1525 (mapcar 'list files)
1798 (interactive (list (Man-default-man-entry)))
1896 (let ((Man-build-page-list (symbol-function 'Man-build-page-list))
1901 (fset 'Man-build-page-list 'ignore)
1908 (fset 'Man-build-page-list Man-build-page-list)
1978 (setcar p (list ; must have 3 elements:
2205 (let ((face-list (face-list)))
2206 (while face-list
2207 (let* ((face (car face-list))
2214 (setq face-list (cdr face-list)))))
2261 woman-justify (nth woman-adjust woman-justify-list)
2314 ;; Process \k escapes BEFORE changing tab width (?):
2320 tab-width woman-tab-width)
2335 ;; (\' must be done after tab processing!):
3145 (woman1-alt-fonts (list "\\fB" "\\fI")))
3149 (woman1-alt-fonts (list "\\fB" "\\fR")))
3153 (woman1-alt-fonts (list "\\fI" "\\fB")))
3157 (woman1-alt-fonts (list "\\fI" "\\fR")))
3161 (woman1-alt-fonts (list "\\fR" "\\fB")))
3165 (woman1-alt-fonts (list "\\fR" "\\fI")))
3168 "Join words using alternating fonts in FONTS, which MUST be a dynamic list."
3169 (nconc fonts fonts) ; circular list!
3421 ;; A list of the form (\"[ace]\" (a . b) (c . d) (e . ?\ )) or nil.
3458 ;; Rebuild translations list:
3509 (cons (list (match-string 1) (current-column))
3546 (setq value (list 'quote value))))
3604 ; (if (looking-at "[ \t\nRC\)\"]") ; R, C are tab types
3718 tab-stop-list)
3946 (let ((i woman-tab-width))
4009 ((eq c ?t) ; non-interpreted tab \t
4022 ;; Process non-default tab settings:
4023 (cond (tab-stop-list
4025 (woman-tab-to-tab-stop))
4096 woman-justify (nth woman-adjust woman-justify-list))
4106 woman-justify (nth woman-adjust woman-justify-list))
4450 \(Breaks, but should not.) The tab stops are separated by spaces\;
4451 a value preceded by + represents an increment to the previous stop value.
4453 (setq tab-stop-list nil)
4456 (let ((tab-stop 0))
4460 (setq tab-stop (if plus (+ tab-stop i) i)))
4462 (setq tab-stop (cons tab-stop (following-char))))
4463 (setq tab-stop-list (cons tab-stop tab-stop-list))
4468 (setq tab-stop-list (reverse tab-stop-list))
4471 (defsubst woman-get-tab-stop (tab-stop-list)
4473 (if (consp tab-stop-list) (car tab-stop-list) tab-stop-list))
4475 (defun woman-tab-to-tab-stop ()
4476 "Insert spaces to next defined tab-stop column.
4477 The variable `tab-stop-list' is a list whose elements are either left
4478 tab stop columns or pairs (COLUMN . TYPE) where TYPE is R or C."
4479 ;; Based on tab-to-tab-stop in indent.el.
4482 (let ((tabs tab-stop-list))
4484 (woman-get-tab-stop (car tabs))))
4487 (let* ((tab (car tabs))
4488 (type (and (consp tab) (cdr tab)))
4491 (setq tab (woman-get-tab-stop tab)
4496 tab (- tab (if (eq type ?C) (/ n 2) n))) )
4497 (setq n (- tab (current-column)))
4506 ;; Currently just terminates special tab processing.
4507 (setq tab-stop-list nil)
4557 ;; The first line may optionally be a list of options terminated by