debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-21 18:38:08 +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 ()
"Display help for the current notmuch mode."
(interactive)
(let ((mode major-mode))
(with-help-window (help-buffer)
(princ (substitute-command-keys (notmuch-substitute-command-keys (documentation mode t)))))))
(let* ((mode major-mode)
(doc (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
(defun notmuch-show-mode ()