notmuch.el: Make notmuch-help use a full-screen window.
authorCarl Worth <cworth@cworth.org>
Tue, 1 Dec 2009 07:02:10 +0000 (23:02 -0800)
committerCarl Worth <cworth@cworth.org>
Tue, 1 Dec 2009 07:02:10 +0000 (23:02 -0800)
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

index a6b71b777795d3c6b8b53a2dc75cf16b402c7fc6..118c0ee7b6e816ff7c5bb44eff12987468ddb127 100644 (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 ()