From mboxrd@z Thu Jan 1 00:00:00 1970 From: Julien Danjou Subject: [PATCH] org-scan-tags: remove useless variable Date: Tue, 21 Dec 2010 17:00:23 +0100 Message-ID: <1292947223-13884-1-git-send-email-julien@danjou.info> Return-path: Received: from [140.186.70.92] (port=60814 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PV4dg-0005nI-MG for emacs-orgmode@gnu.org; Tue, 21 Dec 2010 11:00:38 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PV4de-0005vX-NT for emacs-orgmode@gnu.org; Tue, 21 Dec 2010 11:00:36 -0500 Received: from prometheus.naquadah.org ([212.85.154.174]:50548 helo=mx1.naquadah.org) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PV4de-0005uu-Ih for emacs-orgmode@gnu.org; Tue, 21 Dec 2010 11:00:34 -0500 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Cc: Julien Danjou * lisp/org.el (org-scan-tags): remove useless todo variable. Signed-off-by: Julien Danjou --- lisp/org.el | 5 ++--- 1 files changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 3cecca7..85898ab 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -12198,7 +12198,7 @@ only lines with a TODO keyword are included in the output." lspos tags tags-list (tags-alist (list (cons 0 org-file-tags))) (llast 0) rtn rtn1 level category i txt - todo marker entry priority) + marker entry priority) (when (not (or (member action '(agenda sparse-tree)) (functionp action))) (setq action (list 'lambda nil action))) (save-excursion @@ -12208,8 +12208,7 @@ only lines with a TODO keyword are included in the output." (org-remove-occur-highlights)) (while (re-search-forward re nil t) (catch :skip - (setq todo (if (match-end 1) (org-match-string-no-properties 2)) - tags (if (match-end 4) (org-match-string-no-properties 4))) + (setq tags (if (match-end 4) (org-match-string-no-properties 4))) (goto-char (setq lspos (match-beginning 0))) (setq level (org-reduced-level (funcall outline-level)) category (org-get-category)) -- 1.7.2.3