From 9e6ee30cbec3e24b04c1774b398e56858fa206e7 Mon Sep 17 00:00:00 2001 From: Carl Worth Date: Mon, 30 Nov 2009 23:02:10 -0800 Subject: [PATCH] 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. --- notmuch.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/notmuch.el b/notmuch.el index a6b71b77..118c0ee7 100644 --- a/notmuch.el +++ b/notmuch.el @@ -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 () -- 2.26.2