debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-25 12:28:09 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

notmuch.el: Make notmuch-help use a full-screen window.

Browse source 
Our documentation is long enough that I think it will be more useful
to use an entire window for it (which is easily dismissed with 'q').
This is also kinder for a user not well-initiated with emacs, for
whom the multi-window help can be confusing.
This commit is contained in:
Carl Worth 2009-11-30 23:02:10 -08:00
parent e9443aeafc
commit 9e6ee30cbe
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
notmuch.el
View file

@ -826,9 +826,13 @@ For a mouse binding, return nil."
(defun notmuch-help () (defun notmuch-help ()
"Display help for the current notmuch mode." "Display help for the current notmuch mode."
(interactive) (interactive)
(let ((mode major-mode)) (let* ((mode major-mode)
(with-help-window (help-buffer) (doc (substitute-command-keys (notmuch-substitute-command-keys (documentation mode t)))))
(princ (substitute-command-keys (notmuch-substitute-command-keys (documentation mode t))))))) (with-current-buffer (generate-new-buffer "*notmuch-help*")
(insert doc)
(goto-char (point-min))
(set-buffer-modified-p nil)
(view-buffer (current-buffer) 'kill-buffer-if-not-modified))))
;;;###autoload ;;;###autoload
(defun notmuch-show-mode () (defun notmuch-show-mode ()