From mboxrd@z Thu Jan 1 00:00:00 1970 From: Kyle Meyer Subject: Remaining org-src.el free variable warnings Date: Mon, 25 May 2015 18:01:14 -0400 Message-ID: <87y4kc2u6t.fsf@kyleam.com> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:55806) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Yx0Qy-0004EY-Jh for emacs-orgmode@gnu.org; Mon, 25 May 2015 18:01:24 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Yx0Qu-0005Co-9u for emacs-orgmode@gnu.org; Mon, 25 May 2015 18:01:20 -0400 Received: from mail-qg0-f45.google.com ([209.85.192.45]:36073) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Yx0Qu-0005Ck-5e for emacs-orgmode@gnu.org; Mon, 25 May 2015 18:01:16 -0400 Received: by qgf2 with SMTP id 2so19233406qgf.3 for ; Mon, 25 May 2015 15:01:15 -0700 (PDT) Received: from localhost (nat-130-132-173-5.central.yale.edu. [130.132.173.5]) by mx.google.com with ESMTPSA id 106sm7596034qge.22.2015.05.25.15.01.14 for (version=TLSv1.2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Mon, 25 May 2015 15:01:15 -0700 (PDT) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Org-mode Compiling org-src.el since 71641bc3a0882b has given free variable warnings. One of these was fixed in e50472d926f92c, but some still remain: In org-src--contents-area: org-src.el:303:49:Warning: reference to free variable `beg' org-src.el:303:53:Warning: reference to free variable `end' Despite the line numbers given, I think these are referring to the line marked below (line 284 in org-src.el). #+begin_src elisp (defun org-src--contents-area (datum) "Return contents boundaries of DATUM. DATUM is an element or object. Return a list (BEG END CONTENTS) where BEG and END are buffer positions and CONTENTS is a string." (let ((type (org-element-type datum))) (cond ((eq type 'footnote-definition) (let* ((beg (org-with-wide-buffer (goto-char (org-element-property :post-affiliated datum)) (search-forward "]"))) (end (or (org-element-property :contents-end datum) beg))) (list beg end (buffer-substring-no-properties beg end)))) ((org-element-property :contents-begin datum) (list (org-element-property :contents-begin datum) (org-element-property :contents-end datum) (buffer-substring-no-properties beg end))) ; <---- HERE ((memq type '(example-block export-block src-block)) [...] (t (error "Unsupported element or object: %s" type))))) #+end_src Also, what case does that branch of cond cover? -- Kyle