06/8a3a53eccd566054c6beebd3963bc9993f1f1b

   1 Return-Path: <markwalters1009@gmail.com>\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 A259B431FC0\r
   6         for <notmuch@notmuchmail.org>; Tue, 23 Oct 2012 17:13:50 -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.201\r
  10 X-Spam-Level: \r
  11 X-Spam-Status: No, score=0.201 tagged_above=-999 required=5\r
  12         tests=[DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1,\r
  13         FREEMAIL_ENVFROM_END_DIGIT=1, FREEMAIL_FROM=0.001,\r
  14         RCVD_IN_DNSWL_LOW=-0.7] autolearn=disabled\r
  15 Received: from olra.theworths.org ([127.0.0.1])\r
  16         by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)\r
  17         with ESMTP id 7sT1hkUgQ3Ac for <notmuch@notmuchmail.org>;\r
  18         Tue, 23 Oct 2012 17:13:49 -0700 (PDT)\r
  19 Received: from mail-we0-f181.google.com (mail-we0-f181.google.com\r
  20         [74.125.82.181]) (using TLSv1 with cipher RC4-SHA (128/128 bits))\r
  21         (No client certificate requested)\r
  22         by olra.theworths.org (Postfix) with ESMTPS id 2EF4E431FC9\r
  23         for <notmuch@notmuchmail.org>; Tue, 23 Oct 2012 17:13:48 -0700 (PDT)\r
  24 Received: by mail-we0-f181.google.com with SMTP id u54so2726156wey.26\r
  25         for <notmuch@notmuchmail.org>; Tue, 23 Oct 2012 17:13:46 -0700 (PDT)\r
  26 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113;\r
  27         h=from:to:cc:subject:date:message-id:x-mailer:in-reply-to:references;\r
  28         bh=8wez/w0wRY3dRCLyp0MVlQfsqPVN0HTMnX39ePhaNKc=;\r
  29         b=mXceZQ7iIPOsgwytXLTcHNovwmqna/phJjvkVB0ZrZfBUBd26wMb/aM6mnOXE/WKyC\r
  30         1IQAMSbDZtEj0GGUpZvmq+n82sWGF6S/qzj/CEaYGsuwnAkCeLZa6iV0zzEFvwexyOcG\r
  31         Rq+TYk3ANxV86M+jefiDxJ2X5Pb2hMyLUNko84SQZMKNf3WRK6+mAmIUbtGN+OU+2jFr\r
  32         mQQwGCO5EEUXvxJhmfCakbR8+749eUb9997tqY2bvNleXC7Ym0sgX2+xDPaawF2UP+RJ\r
  33         oScA6p8rPDdwmW9GPDRl2yqYiOLiEZlbE4umbNUfLn5OTJNnXGGnVDlSgWrd7mMaaQyR\r
  34         XoRg==\r
  35 Received: by 10.216.145.88 with SMTP id o66mr8714244wej.169.1351037626748;\r
  36         Tue, 23 Oct 2012 17:13:46 -0700 (PDT)\r
  37 Received: from localhost (93-97-24-31.zone5.bethere.co.uk. [93.97.24.31])\r
  38         by mx.google.com with ESMTPS id k20sm1387790wiv.11.2012.10.23.17.13.45\r
  39         (version=TLSv1/SSLv3 cipher=OTHER);\r
  40         Tue, 23 Oct 2012 17:13:45 -0700 (PDT)\r
  41 From: Mark Walters <markwalters1009@gmail.com>\r
  42 To: notmuch@notmuchmail.org\r
  43 Subject: [PATCH v3 2/3] emacs: Rename incremental JSON internal variables.\r
  44 Date: Wed, 24 Oct 2012 01:13:21 +0100\r
  45 Message-Id: <1351037602-11157-3-git-send-email-markwalters1009@gmail.com>\r
  46 X-Mailer: git-send-email 1.7.9.1\r
  47 In-Reply-To: <1351037602-11157-1-git-send-email-markwalters1009@gmail.com>\r
  48 References: <1351037602-11157-1-git-send-email-markwalters1009@gmail.com>\r
  49 X-BeenThere: notmuch@notmuchmail.org\r
  50 X-Mailman-Version: 2.1.13\r
  51 Precedence: list\r
  52 List-Id: "Use and development of the notmuch mail system."\r
  53         <notmuch.notmuchmail.org>\r
  54 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
  55         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  56 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
  57 List-Post: <mailto:notmuch@notmuchmail.org>\r
  58 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  59 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
  60         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  61 X-List-Received-Date: Wed, 24 Oct 2012 00:13:51 -0000\r
  62 \r
  63 This patch just renames the internal variables for the JSON parser now\r
  64 it is no longer specific to search mode. It also fixes up the white\r
  65 space after the previous patch. There should be no functional changes.\r
  66 ---\r
  67  emacs/notmuch.el |   46 +++++++++++++++++++++++-----------------------\r
  68  1 files changed, 23 insertions(+), 23 deletions(-)\r
  69 \r
  70 diff --git a/emacs/notmuch.el b/emacs/notmuch.el\r
  71 index 72a73dc..7e5d052 100644\r
  72 --- a/emacs/notmuch.el\r
  73 +++ b/emacs/notmuch.el\r
  74 @@ -812,11 +812,11 @@ non-authors is found, assume that all of the authors match."\r
  75      (insert (apply #'format string objects))\r
  76      (insert "\n")))\r
  77  \r
  78 -(defvar notmuch-search-process-state nil\r
  79 -  "Parsing state of the search process filter.")\r
  80 +(defvar notmuch-json-state nil\r
  81 +  "State of the internal JSON parser.")\r
  82  \r
  83 -(defvar notmuch-search-json-parser nil\r
  84 -  "Incremental JSON parser for the search process filter.")\r
  85 +(defvar notmuch-json-parser nil\r
  86 +  "Internal Incremental JSON parser Object.")\r
  87  \r
  88  (defun notmuch-search-process-filter (proc string)\r
  89    "Process and filter the output of \"notmuch search\""\r
  90 @@ -848,40 +848,40 @@ If there is a syntax error, this will attempt to resynchronize\r
  91  with the input and will apply ERROR-FUNCTION in buffer\r
  92  RESULT-BUFFER to any input that was skipped."\r
  93    (let (done)\r
  94 -    (unless (local-variable-p 'notmuch-search-json-parser)\r
  95 -      (set (make-local-variable 'notmuch-search-json-parser)\r
  96 +    (unless (local-variable-p 'notmuch-json-parser)\r
  97 +      (set (make-local-variable 'notmuch-json-parser)\r
  98            (notmuch-json-create-parser (current-buffer)))\r
  99 -      (set (make-local-variable 'notmuch-search-process-state) 'begin))\r
 100 -       (while (not done)\r
 101 -         (condition-case nil\r
 102 -             (case notmuch-search-process-state\r
 103 +      (set (make-local-variable 'notmuch-json-state) 'begin))\r
 104 +    (while (not done)\r
 105 +      (condition-case nil\r
 106 +         (case notmuch-json-state\r
 107                 ((begin)\r
 108                  ;; Enter the results list\r
 109                  (if (eq (notmuch-json-begin-compound\r
 110 -                         notmuch-search-json-parser) 'retry)\r
 111 +                         notmuch-json-parser) 'retry)\r
 112                      (setq done t)\r
 113 -                  (setq notmuch-search-process-state 'result)))\r
 114 +                  (setq notmuch-json-state 'result)))\r
 115                 ((result)\r
 116                  ;; Parse a result\r
 117 -                (let ((result (notmuch-json-read notmuch-search-json-parser)))\r
 118 +                (let ((result (notmuch-json-read notmuch-json-parser)))\r
 119                    (case result\r
 120 -                    ((retry) (setq done t))\r
 121 -                    ((end) (setq notmuch-search-process-state 'end))\r
 122 +                        ((retry) (setq done t))\r
 123 +                        ((end) (setq notmuch-json-state 'end))\r
 124                          (otherwise (with-current-buffer results-buf\r
 125                                       (funcall result-function result))))))\r
 126                 ((end)\r
 127                  ;; Any trailing data is unexpected\r
 128 -                (notmuch-json-eof notmuch-search-json-parser)\r
 129 +                (notmuch-json-eof notmuch-json-parser)\r
 130                  (setq done t)))\r
 131 -           (json-error\r
 132 -            ;; Do our best to resynchronize and ensure forward\r
 133 -            ;; progress\r
 134 -               (let ((bad (buffer-substring (line-beginning-position)\r
 135 -                                            (line-end-position))))\r
 136 -                 (forward-line)\r
 137 +       (json-error\r
 138 +        ;; Do our best to resynchronize and ensure forward\r
 139 +        ;; progress\r
 140 +        (let ((bad (buffer-substring (line-beginning-position)\r
 141 +                                     (line-end-position))))\r
 142 +          (forward-line)\r
 143            (with-current-buffer results-buf\r
 144              (funcall error-function "%s" bad))))))\r
 145 -       ;; Clear out what we've parsed\r
 146 +    ;; Clear out what we've parsed\r
 147      (delete-region (point-min) (point))))\r
 148  \r
 149  (defun notmuch-search-tag-all (&optional tag-changes)\r
 150 -- \r
 151 1.7.9.1\r
 152 \r