Lines Matching +defs:describe +defs:mode
1 ;;; gnus-art.el --- article mode commands for Gnus
33 (defvar w3m-minor-mode-map))
434 "A regexp to describe whitespace which should not be emphasized.
671 (defcustom gnus-article-mode-line-format "Gnus: %g [%w] %S%m"
672 "*The format specification for the article mode line.
673 See `gnus-summary-mode-line-format' for a closer description.
682 (defcustom gnus-article-mode-hook nil
683 "*A hook for Gnus article mode."
690 (add-hook 'gnus-article-mode-hook 'turn-off-scroll-in-place))
692 (add-hook 'gnus-article-mode-hook 'gnus-xmas-article-menu-add))
695 "*Hook run after the creation of the article mode menu."
1602 (defvar gnus-article-mode-syntax-table
1603 (let ((table (copy-syntax-table text-mode-syntax-table)))
1612 "Syntax table used in article mode buffers.
1613 Initialized from `text-mode-syntax-table.")
1617 (defvar gnus-article-mode-line-format-alist
1620 gnus-summary-mode-line-format-alist))
1626 (defvar gnus-article-edit-mode nil)
2158 (let ((adaptive-fill-mode nil)) ;Why? -sm
2592 (url-standalone-mode t)
2606 (boundp 'w3m-minor-mode-map)
2607 w3m-minor-mode-map)
2610 (list 'keymap w3m-minor-mode-map
2760 (gnus-set-mode-line 'article))
3193 (when (eq major-mode 'gnus-article-mode)
3818 ;;; Gnus article mode
3821 (put 'gnus-article-mode 'mode-class 'special)
3823 (set-keymap-parent gnus-article-mode-map widget-keymap)
3825 (gnus-define-keys gnus-article-mode-map
3834 "?" gnus-article-describe-briefly
3842 "\C-hk" gnus-article-describe-key
3843 "\C-hc" gnus-article-describe-key-briefly
3852 'undefined 'gnus-article-read-summary-keys gnus-article-mode-map)
3860 gnus-article-article-menu gnus-article-mode-map ""
3870 gnus-article-treatment-menu gnus-article-mode-map ""
3891 (defun gnus-article-mode ()
3892 "Major mode for displaying an article.
3896 The following commands are available in addition to all summary mode
3898 \\<gnus-article-mode-map>
3904 \\[gnus-article-describe-briefly]\t Describe the current mode briefly
3908 (gnus-simplify-mode-line)
3909 (setq mode-name "Article")
3910 (setq major-mode 'gnus-article-mode)
3911 (make-local-variable 'minor-mode-alist)
3912 (use-local-map gnus-article-mode-map)
3917 (gnus-update-format-specifications nil 'article-mode)
3935 (set-syntax-table gnus-article-mode-syntax-table)
3937 (gnus-run-mode-hooks 'gnus-article-mode-hook))
3970 (setq major-mode 'gnus-original-article-mode)
3974 (if gnus-article-edit-mode
3975 (if (y-or-n-p "Article mode edit in progress; discard? ")
3985 (set (make-local-variable 'gnus-article-edit-mode) nil)
3995 (unless (eq major-mode 'gnus-article-mode)
3996 (gnus-article-mode))
4000 (gnus-article-mode)
4021 "Prepare ARTICLE in article mode buffer.
4027 (unless (eq major-mode 'gnus-summary-mode)
4039 (when (and (boundp 'transient-mark-mode)
4040 transient-mark-mode)
4078 (gnus-set-mode-line 'article)))
4105 (gnus-set-mode-line 'summary)
4123 (gnus-set-mode-line 'article))
4139 (unless (eq major-mode 'gnus-article-mode)
4140 (gnus-article-mode))
4204 (set-keymap-parent map gnus-article-mode-map))
4496 "Uncompress the current buffer if `auto-compression-mode' is enabled.
4521 If `auto-compression-mode' is enabled, compressed files like .gz and .bz2
4538 ;; We do it this way to make `normal-mode' set the appropriate mode.
4543 (normal-mode))
5276 "Alist of strings describing wash status in the mode line.
5279 in the article mode line when the washing function is active, and OFF
5437 ;; Article mode commands
5454 ;; This is cleaner but currently breaks `gnus-pick-mode':
5504 (if mode-line-format 1 0)
5588 (defun gnus-article-describe-briefly ()
5589 "Describe article mode commands briefly."
5591 (gnus-message 6 (substitute-command-keys "\\<gnus-article-mode-map>\\[gnus-article-goto-next-page]:Next page \\[gnus-article-goto-prev-page]:Prev page \\[gnus-article-show-summary]:Show summary \\[gnus-info-find-node]:Run Info \\[gnus-article-describe-briefly]:This help")))
5616 (unless (equal major-mode 'gnus-article-mode)
5636 (let (gnus-pick-mode)
5650 ;; We disable the pick minor mode commands.
5651 (let (gnus-pick-mode)
5674 ;; We disable the pick minor mode commands.
5675 (if (and (setq func (let (gnus-pick-mode)
5703 (defun gnus-article-describe-key (key)
5710 (let (gnus-pick-mode)
5721 (describe-key key))
5722 (describe-key key)))
5724 (defun gnus-article-describe-key-briefly (key &optional insert)
5731 (let (gnus-pick-mode)
5742 (describe-key-briefly key insert))
5743 (describe-key-briefly key insert)))
5757 (when (and (boundp 'transient-mark-mode)
5758 transient-mark-mode)
5776 (when (and (boundp 'transient-mark-mode)
5777 transient-mark-mode)
5962 (setq major-mode 'gnus-original-article-mode)
5990 (defcustom gnus-article-edit-mode-hook nil
5991 "Hook run in article edit mode buffers."
5997 (defvar gnus-article-edit-mode-map nil)
5998 (defvar gnus-article-edit-mode nil)
6001 (unless gnus-article-edit-mode-map
6002 (setq gnus-article-edit-mode-map (make-keymap))
6003 (set-keymap-parent gnus-article-edit-mode-map text-mode-map)
6005 (gnus-define-keys gnus-article-edit-mode-map
6006 "\C-c?" describe-mode
6040 "\C-c\C-w" gnus-article-edit-mode-map)
6044 gnus-article-edit-mode-field-menu gnus-article-edit-mode-map ""
6063 (define-derived-mode gnus-article-edit-mode message-mode "Article Edit"
6064 "Major mode for editing articles.
6065 This is an extended text-mode.
6067 \\{gnus-article-edit-mode-map}"
6073 (set (make-local-variable 'gnus-article-edit-mode) t)
6074 (easy-menu-add message-mode-field-menu message-mode-map)
6075 (mml-mode)
6105 (gnus-article-edit-mode))
6139 (gnus-article-mode)
6159 (gnus-article-mode)
6444 (defvar gnus-button-handle-describe-prefix "^\\(C-h\\|<?[Ff]1>?\\)")
6449 (defun gnus-button-handle-describe-function (url)
6450 "Call `describe-function' when pushing the corresponding URL button."
6451 (describe-function
6453 (gnus-replace-in-string url gnus-button-handle-describe-prefix ""))))
6455 (defun gnus-button-handle-describe-variable (url)
6456 "Call `describe-variable' when pushing the corresponding URL button."
6457 (describe-variable
6459 (gnus-replace-in-string url gnus-button-handle-describe-prefix ""))))
6463 Calls `describe-variable' or `describe-function'."
6466 ((fboundp sym) (describe-function sym))
6467 ((boundp sym) (describe-variable sym))
6470 (defun gnus-button-handle-describe-key (url)
6471 "Call `describe-key' when pushing the corresponding URL button."
6473 (gnus-replace-in-string url gnus-button-handle-describe-prefix ""))
6476 (describe-key keys)
6481 (apropos (gnus-replace-in-string url gnus-button-handle-describe-prefix "")))
6486 (gnus-replace-in-string url gnus-button-handle-describe-prefix "")))
6492 (gnus-replace-in-string url gnus-button-handle-describe-prefix "")))
6498 (gnus-replace-in-string url gnus-button-handle-describe-prefix "")))
6648 1 (>= gnus-button-emacs-level 7) gnus-button-handle-describe-variable 1)
6650 1 (>= gnus-button-emacs-level 7) gnus-button-handle-describe-function 1)
6652 0 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-function 2)
6654 0 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-variable 2)
6658 1 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-key 3)
6986 (gnus-set-mode-line 'article))))
7203 (set-keymap-parent map gnus-article-mode-map))
7212 (set-keymap-parent map gnus-article-mode-map))
7491 (set-keymap-parent map gnus-article-mode-map))