Lines Matching +defs:tar +defs:mode
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.
335 ;; Improve major-mode documentation.
713 "*List of `dired' mode keys to define to run WoMan on current file.
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.
1150 The major browsing mode used is essentially the standard Man mode.
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
1566 (defun woman-tar-extract-file ()
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])
1585 [woman] '("Read Man Page (WoMan)" . woman-tar-extract-file) 'view)))
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)
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)
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)
2139 (defvar font-lock-mode) ; for the compiler
2147 (and (boundp 'font-lock-mode) font-lock-mode (font-lock-mode -1))
2148 ;; (fundamental-mode)
2245 ;; But this requires care to control major mode implied font locking.
3245 ".hy N -- Set hyphenation mode to N, i.e. IGNORE!"
3281 ;; .cs -- Constant character space (width) mode -- IGNORE!
3497 (".u" (if woman-nofill 0 1)) ; 1/0 in fill/nofill mode
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))