Return-Path: X-Original-To: notmuch@notmuchmail.org Delivered-To: notmuch@notmuchmail.org Received: from localhost (localhost [127.0.0.1]) by olra.theworths.org (Postfix) with ESMTP id 407DF431FBC for ; Tue, 24 Apr 2012 14:11:18 -0700 (PDT) X-Virus-Scanned: Debian amavisd-new at olra.theworths.org X-Spam-Flag: NO X-Spam-Score: 0 X-Spam-Level: X-Spam-Status: No, score=0 tagged_above=-999 required=5 tests=[none] autolearn=disabled Received: from olra.theworths.org ([127.0.0.1]) by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id UkssQOnwwzcp for ; Tue, 24 Apr 2012 14:11:17 -0700 (PDT) Received: from guru.guru-group.fi (guru-group.fi [87.108.86.66]) by olra.theworths.org (Postfix) with ESMTP id 62AB3431FAE for ; Tue, 24 Apr 2012 14:11:17 -0700 (PDT) Received: by guru.guru-group.fi (Postfix, from userid 501) id 12ED068055; Wed, 25 Apr 2012 00:11:12 +0300 (EEST) From: Tomi Ollila To: notmuch@notmuchmail.org Subject: [PATCH 1/3] Removed variable notmuch-hello-search-pos Date: Wed, 25 Apr 2012 00:11:08 +0300 Message-Id: <1335301870-11572-1-git-send-email-tomi.ollila@iki.fi> X-Mailer: git-send-email 1.7.6.1 Cc: Tomi Ollila X-BeenThere: notmuch@notmuchmail.org X-Mailman-Version: 2.1.13 Precedence: list List-Id: "Use and development of the notmuch mail system." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Tue, 24 Apr 2012 21:11:18 -0000 From: Tomi Ollila Variable 'notmuch-hello-search-pos' was used to locate cursor to the search bar in case no other location where to put it was known. (In case search bar is shown -- if not cursor will be at the end of buffer). More generic & versatile way to locace cursor follows. --- emacs/notmuch-hello.el | 11 +---------- 1 files changed, 1 insertions(+), 10 deletions(-) diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el index 71d37b8..8ae0aca 100644 --- a/emacs/notmuch-hello.el +++ b/emacs/notmuch-hello.el @@ -154,11 +154,6 @@ International Bureau of Weights and Measures." (defvar notmuch-hello-url "http://notmuchmail.org" "The `notmuch' web site.") -(defvar notmuch-hello-search-pos nil - "Position of search widget, if any. - -This should only be set by `notmuch-hello-insert-search'.") - (defvar notmuch-hello-custom-section-options '((:filter (string :tag "Filter for each tag")) (:filter-count (string :tag "Different filter to generate message counts")) @@ -589,7 +584,6 @@ Complete list of currently available key bindings: (defun notmuch-hello-insert-search () "Insert a search widget." (widget-insert "Search: ") - (setq notmuch-hello-search-pos (point-marker)) (widget-create 'editable-field ;; Leave some space at the start and end of the ;; search boxes. @@ -807,11 +801,8 @@ following: (when final-target-pos (goto-char final-target-pos) (unless (widget-at) - (widget-forward 1))) + (widget-forward 1))))) - (unless (widget-at) - (when notmuch-hello-search-pos - (goto-char notmuch-hello-search-pos))))) (run-hooks 'notmuch-hello-refresh-hook) (setq notmuch-hello-first-run nil)) -- 1.7.7.6