From: Carl Worth <cworth@cworth.org>
Date: Tue, 1 Dec 2009 07:02:10 +0000 (-0800)
Subject: notmuch.el: Make notmuch-help use a full-screen window.
X-Git-Tag: 0.1~280
X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=commitdiff_plain;h=9e6ee30cbec3e24b04c1774b398e56858fa206e7;ds=sidebyside

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.
---

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 ()