diff options
author | Carl Worth <cworth@cworth.org> | 2009-11-30 23:02:10 -0800 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2009-11-30 23:02:10 -0800 |
commit | 9e6ee30cbec3e24b04c1774b398e56858fa206e7 (patch) | |
tree | f0e0bcbf7a4a6444f064c32ea946b45e9cc3fd76 | |
parent | e9443aeafc0bdeb0d11fa44ee2ad523fb019281e (diff) |
notmuch.el: Make notmuch-help use a full-screen window.
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.
-rw-r--r-- | notmuch.el | 10 |
1 files changed, 7 insertions, 3 deletions
@@ -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 () |