From 3ac2727dae9a703324982cdb2ac243f195c8c958 Mon Sep 17 00:00:00 2001 From: Carl Worth Date: Mon, 26 Apr 2010 18:40:04 -0700 Subject: [PATCH] emacs: notmuch-hello: Move to first saved search item. This give us a useful active widget by default, ("inbox"), and otherwise gives the first saved search in the user's customized list. Not having point on the search bar means that the various keybindings are all available. --- emacs/notmuch-hello.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el index 61e85bb6..24e3133d 100644 --- a/emacs/notmuch-hello.el +++ b/emacs/notmuch-hello.el @@ -272,9 +272,10 @@ diagonal." (customize-variable 'notmuch-hello-saved-searches)) "edit") (widget-insert "\n\n") + (setq final-target-pos (point-marker)) (let ((start (point))) (setq found-target-pos (notmuch-hello-insert-tags saved-alist widest target)) - (if (not final-target-pos) + (if found-target-pos (setq final-target-pos found-target-pos)) (indent-rigidly start (point) notmuch-hello-indent))) @@ -365,11 +366,9 @@ diagonal." (widget-setup) - (if final-target-pos - (goto-char final-target-pos) - (progn - (goto-char (point-min)) - (widget-forward 1))))) + (goto-char final-target-pos) + (if (not (widget-at)) + (widget-forward 1)))) ;;