22/8d5eebcab521446aa5a8f39b46846db60b8c99

   1 Return-Path: <too@guru.guru-group.fi>\r
   2 X-Original-To: notmuch@notmuchmail.org\r
   3 Delivered-To: notmuch@notmuchmail.org\r
   4 Received: from localhost (localhost [127.0.0.1])\r
   5         by olra.theworths.org (Postfix) with ESMTP id 407DF431FBC\r
   6         for <notmuch@notmuchmail.org>; Tue, 24 Apr 2012 14:11:18 -0700 (PDT)\r
   7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
   8 X-Spam-Flag: NO\r
   9 X-Spam-Score: 0\r
  10 X-Spam-Level: \r
  11 X-Spam-Status: No, score=0 tagged_above=-999 required=5 tests=[none]\r
  12         autolearn=disabled\r
  13 Received: from olra.theworths.org ([127.0.0.1])\r
  14         by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)\r
  15         with ESMTP id UkssQOnwwzcp for <notmuch@notmuchmail.org>;\r
  16         Tue, 24 Apr 2012 14:11:17 -0700 (PDT)\r
  17 Received: from guru.guru-group.fi (guru-group.fi [87.108.86.66])\r
  18         by olra.theworths.org (Postfix) with ESMTP id 62AB3431FAE\r
  19         for <notmuch@notmuchmail.org>; Tue, 24 Apr 2012 14:11:17 -0700 (PDT)\r
  20 Received: by guru.guru-group.fi (Postfix, from userid 501)\r
  21         id 12ED068055; Wed, 25 Apr 2012 00:11:12 +0300 (EEST)\r
  22 From: Tomi Ollila <tomi.ollila@iki.fi>\r
  23 To: notmuch@notmuchmail.org\r
  24 Subject: [PATCH 1/3] Removed variable notmuch-hello-search-pos\r
  25 Date: Wed, 25 Apr 2012 00:11:08 +0300\r
  26 Message-Id: <1335301870-11572-1-git-send-email-tomi.ollila@iki.fi>\r
  27 X-Mailer: git-send-email 1.7.6.1\r
  28 Cc: Tomi Ollila <too@iki.fi>\r
  29 X-BeenThere: notmuch@notmuchmail.org\r
  30 X-Mailman-Version: 2.1.13\r
  31 Precedence: list\r
  32 List-Id: "Use and development of the notmuch mail system."\r
  33         <notmuch.notmuchmail.org>\r
  34 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
  35         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  36 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
  37 List-Post: <mailto:notmuch@notmuchmail.org>\r
  38 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  39 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
  40         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  41 X-List-Received-Date: Tue, 24 Apr 2012 21:11:18 -0000\r
  42 \r
  43 From: Tomi Ollila <too@iki.fi>\r
  44 \r
  45 Variable 'notmuch-hello-search-pos' was used to locate cursor to\r
  46 the search bar in case no other location where to put it was known.\r
  47 (In case search bar is shown -- if not cursor will be at the end\r
  48 of buffer). More generic & versatile way to locace cursor follows. \r
  49 \r
  50 ---\r
  51  emacs/notmuch-hello.el |   11 +----------\r
  52  1 files changed, 1 insertions(+), 10 deletions(-)\r
  53 \r
  54 diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el\r
  55 index 71d37b8..8ae0aca 100644\r
  56 --- a/emacs/notmuch-hello.el\r
  57 +++ b/emacs/notmuch-hello.el\r
  58 @@ -154,11 +154,6 @@ International Bureau of Weights and Measures."\r
  59  (defvar notmuch-hello-url "http://notmuchmail.org"\r
  60    "The `notmuch' web site.")\r
  61  \r
  62 -(defvar notmuch-hello-search-pos nil\r
  63 -  "Position of search widget, if any.\r
  64 -\r
  65 -This should only be set by `notmuch-hello-insert-search'.")\r
  66 -\r
  67  (defvar notmuch-hello-custom-section-options\r
  68    '((:filter (string :tag "Filter for each tag"))\r
  69      (:filter-count (string :tag "Different filter to generate message counts"))\r
  70 @@ -589,7 +584,6 @@ Complete list of currently available key bindings:\r
  71  (defun notmuch-hello-insert-search ()\r
  72    "Insert a search widget."\r
  73    (widget-insert "Search: ")\r
  74 -  (setq notmuch-hello-search-pos (point-marker))\r
  75    (widget-create 'editable-field\r
  76                  ;; Leave some space at the start and end of the\r
  77                  ;; search boxes.\r
  78 @@ -807,11 +801,8 @@ following:\r
  79        (when final-target-pos\r
  80         (goto-char final-target-pos)\r
  81         (unless (widget-at)\r
  82 -         (widget-forward 1)))\r
  83 +         (widget-forward 1)))))\r
  84  \r
  85 -      (unless (widget-at)\r
  86 -       (when notmuch-hello-search-pos\r
  87 -         (goto-char notmuch-hello-search-pos)))))\r
  88    (run-hooks 'notmuch-hello-refresh-hook)\r
  89    (setq notmuch-hello-first-run nil))\r
  90  \r
  91 -- \r
  92 1.7.7.6\r
  93 \r