Lines Matching +defs:mode +defs:alist
57 ;; `auto-compression-mode' by turning it on if necessary. But you may
92 ;; filename, using completion. This mode of execution may be useful
99 ;; (add-hook 'dired-mode-hook
101 ;; (define-key dired-mode-map "W" 'woman-dired-find-file)))
105 ;; In each case, the result should (!) be a buffer in Man mode showing
106 ;; a formatted manual entry. When called from WoMan, Man mode should
262 ;; automatic major mode selection.
266 ;; (setq format-alist
273 ;; format-alist))
335 ;; Improve major-mode documentation.
713 "*List of `dired' mode keys to define to run WoMan on current file.
726 An alist with elements of the form (MENU-TITLE REGEXP INDEX) --
801 decompressors are available and handled by auto-compression mode,
1050 "Current fill mode: nil for filling.")
1056 "Current no-space mode: nil for normal spacing.
1079 (make-variable-buffer-local 'imenu--last-menubar-index-alist)
1081 (defvar woman-buffer-alist nil
1082 "An alist representing WoMan buffers that are already decoded.
1086 "Ordinal number of current buffer entry in `woman-buffer-alist'.
1145 "Expanded topic alist cache. Resetting to nil forces update.")
1150 The major browsing mode used is essentially the standard Man mode.
1407 "Return an alist of the man files in all man directories in the list PATH.
1408 The cdr of each alist element is the path-index / filename."
1409 ;; Support 3 levels of caching: each element of the alist `files'
1411 ;; following list: (topic path-index filename). This alist `files'
1427 "Return an alist of the man topics in directory DIR with index PATH-INDEX.
1429 Support 3 levels of caching: each element of the alist will be a list
1460 (defun woman-topic-all-completions-merge (alist)
1461 "Merge the alist ALIST so that the keys are unique.
1468 (setq alist (sort alist (lambda(x y) (string< (car y) (car x)))))
1471 (while alist
1472 (setq elt (pop alist))
1480 (while alist
1481 (setq elt (pop alist))
1487 "Return an alist of the files in all man directories that match TOPIC."
1534 (define-key dired-mode-map key 'woman-dired-find-file))
1538 (if (or (eq (lookup-key dired-mode-map key) 'undefined)
1539 (null (lookup-key dired-mode-map key)))
1549 (define-key-after (lookup-key dired-mode-map [menu-bar immediate])
1554 (add-hook 'dired-mode-hook 'woman-dired-define-keys))
1564 ;;; tar-mode support
1567 "In tar mode, run the WoMan man-page browser on this file."
1569 (or (eq major-mode 'tar-mode)
1570 (error "`woman-tar-extract-file' can be used only in `tar-mode'"))
1572 (let (global-font-lock-mode)
1573 (funcall (symbol-function 'tar-extract)) ; defined in tar-mode
1580 ;; There is currently no `tar-mode-hook' so use ...
1581 (eval-after-load "tar-mode"
1583 (define-key tar-mode-map "w" 'woman-tar-extract-file)
1584 (define-key-after (lookup-key tar-mode-map [menu-bar immediate])
1610 (let ((alist-tail woman-buffer-alist) exists)
1612 (while (and alist-tail (not (string= file-name (car (car alist-tail)))))
1613 (setq alist-tail (cdr alist-tail)
1616 (and alist-tail (WoMan-find-buffer))) ; buffer exists
1630 (setq woman-buffer-alist
1631 (cons (cons file-name bufname) woman-buffer-alist)
1634 (Man-build-section-alist)
1635 (Man-build-references-alist)
1652 If COMPRESSED is non-nil, turn on auto-compression mode to decompress
1653 the file if necessary. Set buffer name BUFNAME and major mode.
1682 (woman-mode))
1752 then turn on auto-compression mode to decompress the file.
1758 ;; Co-operate with auto-compression mode:
1762 ;; (not auto-compression-mode)
1763 (not (rassq 'jka-compr-handler file-name-handler-alist)) )
1765 (auto-compression-mode 1))
1778 ;;; Major mode (Man) interface:
1780 (defvar woman-mode-map nil "Keymap for woman mode.")
1782 (unless woman-mode-map
1783 (setq woman-mode-map (make-sparse-keymap))
1784 (set-keymap-parent woman-mode-map Man-mode-map)
1786 (define-key woman-mode-map "R" 'woman-reformat-last-file)
1787 (define-key woman-mode-map "w" 'woman)
1788 (define-key woman-mode-map "\en" 'WoMan-next-manpage)
1789 (define-key woman-mode-map "\ep" 'WoMan-previous-manpage)
1790 (define-key woman-mode-map [M-mouse-2] 'woman-follow-word)
1792 ;; We don't need to call `man' when we are in `woman-mode'.
1793 (define-key woman-mode-map [remap man] 'woman)
1794 (define-key woman-mode-map [remap man-follow] 'woman-follow))
1818 woman-mode-map
1842 ["Describe (Wo)Man Mode" describe-mode t]
1887 (put 'woman-mode 'mode-class 'special)
1889 (defun woman-mode ()
1890 "Turn on (most of) Man mode to browse a buffer formatted by WoMan.
1895 See `Man-mode' for additional details."
1906 (delay-mode-hooks (Man-mode))
1912 (setq major-mode 'woman-mode
1913 mode-name "WoMan")
1914 ;; Don't show page numbers like Man-mode does. (Online documents do
1916 (kill-local-variable 'mode-line-buffer-identification)
1917 (use-local-map woman-mode-map)
1925 (setq imenu--last-menubar-index-alist nil)
1932 (run-mode-hooks 'woman-mode-hook))
1936 Optional argument REDRAW, if non-nil, forces mode line to be updated."
1945 (if redraw (force-mode-line-update))))
2010 ;; key-binding in `woman-mode-map' has been remapped to call `woman'
2017 ;; (if (and (eq major-mode 'woman-mode)
2042 (if (null (cdr woman-buffer-alist))
2045 (length woman-buffer-alist))
2050 (setq woman-buffer-number (1- (length woman-buffer-alist))))
2058 (if (null (cdr woman-buffer-alist))
2061 (setq woman-buffer-number (1- (length woman-buffer-alist))))
2069 alist in `woman-buffer-alist' and return nil."
2071 (let ((buffer (get-buffer (cdr (car woman-buffer-alist)))))
2074 ;; Delete alist element:
2075 (setq woman-buffer-alist (cdr woman-buffer-alist))
2077 (let* ((prev-ptr (nthcdr (1- woman-buffer-number) woman-buffer-alist))
2081 ;; Delete alist element:
2083 (if (>= woman-buffer-number (length woman-buffer-alist))
2139 (defvar font-lock-mode) ; for the compiler
2147 (and (boundp 'font-lock-mode) font-lock-mode (font-lock-mode -1))
2148 ;; (fundamental-mode)
2166 (defvar woman-string-alist ; rebound in woman-decode-region
2244 ;; Suitable for use in format-alist.
2245 ;; But this requires care to control major mode implied font locking.
2251 (woman-string-alist woman-string-alist)
2448 ;; Must return the new end of file if used in format-alist.
2506 (defvar woman0-macro-alist) ; bound in woman0-roff-buffer
2514 (defvar woman0-rename-alist) ; bound in woman0-roff-buffer
2521 request woman0-macro-alist
2525 woman0-rename-alist)
2742 woman0-rename-alist (cons (cons new old) woman0-rename-alist)))
2749 (while woman0-rename-alist
2750 (let* ((new (car woman0-rename-alist))
2753 (setq woman0-rename-alist (cdr woman0-rename-alist))
2787 (previous (assoc macro woman0-macro-alist)))
2809 ;; onto the front of the alist has the same effect:
2810 (setq woman0-macro-alist (cons macro woman0-macro-alist))
2821 (let ((macro (assoc request woman0-macro-alist)))
2911 ;; onto the front of the alist has the same effect:
2912 (setq woman-string-alist (cons string woman-string-alist))
2920 (string (assoc stringname woman-string-alist)))
2933 (setq woman-string-alist
2935 woman-string-alist))))
2978 Each alist elements has the form
2992 map accessory to help construct this alist.")
3033 Useful for constructing the alist variable `woman-special-characters'."
3245 ".hy N -- Set hyphenation mode to N, i.e. IGNORE!"
3281 ;; .cs -- Constant character space (width) mode -- IGNORE!
3310 (defconst woman-font-alist
3327 (let ((font-alist woman-font-alist) ; for local updating
3359 (setq font (assoc fontstring font-alist)
3360 ;; NB: font-alist contains VARIABLE NAMES.
3365 (setq font-alist
3367 font-alist))
3437 ;; This should be an update, but consing onto the front of the alist
3441 (alist (cdr translations))
3456 alist (cons (cons a b) alist)))
3463 translations (cons matches alist))
3472 (alist (cdr translations)))
3480 alist)))
3497 (".u" (if woman-nofill 0 1)) ; 1/0 in fill/nofill mode
3500 "Register alist: the key is the register name as a string.
3888 ".ns -- Turn on no-space mode. Format paragraphs upto TO."
3895 ".rs -- Turn off no-space mode. Format paragraphs upto TO."
4083 ".ad c -- Line adjustment is begun (once fill mode is on).
4084 Set justification mode to c if specified.
4087 ;; absent -- unchanged. Initial mode adj,both.
4605 (or (eq major-mode 'view-mode) (view-mode 1))