emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Christopher Genovese <genovese@cmu.edu>
To: emacs-orgmode@gnu.org
Subject: Tangling does not detect src blocks with capital BEGIN_SRC/END_SRC when case-fold-search nil
Date: Sat, 13 Dec 2014 18:49:58 -0500	[thread overview]
Message-ID: <CAPum5FgRdZ7vOir5o5ULS+H6TLpLCjTrRjWPXx1CkQGXrjaZEA@mail.gmail.com> (raw)

[-- Attachment #1: Type: text/plain, Size: 2221 bytes --]

When tangling a file whose source code blocks have capitalized BEGIN_SRC and
END_SRC (as produced by <s-TAB for instance),  org-babel-tangle will not
detect the source code blocks when case-fold-search is nil.

The variable org-babel-src-block-regexp has the begin_src and end_src in
case, and neither the code generated by the macro org-babel-map-src-blocks
ob-core.el) nor its caller org-babel-tangle-collect-blocks (in
ob-tangle.el) set
case-fold-search dynamically to make this regex match the capitalized
blocks in

I've included a minimal sample file below, but it's pretty simple to
with Emacs -q. I also included a simple patch to ob-core.el (in
that I tested quickly, in case it helps.

For reference, I'm running org 8.2.10 and GNU Emacs 24.4.1 on Mac OS X

  -- Chris

### Small example
The source code block is not detected by =org-babel-tangle= when
=case-fold-search= is nil. Then change the begin/end to lower case.

  matrix(c(1:9), ncol=3)

| 1 | 4 | 7 |
| 2 | 5 | 8 |
| 3 | 6 | 9 |

See =org-babel-src-block-regexp=,  =org-babel-map-src-blocks=, and its

#+PROPERTY: header-args :tangle yes :comments org

# Local Variables:
# org-confirm-babel-evaluate: nil
# End:

### Quick patch (only tested quickly)
*** ~/.emacs.d/elpa/org-20141027/ob-core.el    Sun Nov  2 16:58:38 2014
--- /tmp/ob-core.el    Sat Dec 13 18:42:21 2014
*************** beg-body --------- point at the beginnin
*** 995,1001 ****
  end-body --------- point at the end of the body"
    (declare (indent 1))
    (let ((tempvar (make-symbol "file")))
!     `(let* ((,tempvar ,file)
          (visited-p (or (null ,tempvar)
                 (get-file-buffer (expand-file-name ,tempvar))))
          (point (point)) to-be-removed)
--- 995,1002 ----
  end-body --------- point at the end of the body"
    (declare (indent 1))
    (let ((tempvar (make-symbol "file")))
!     `(let* ((case-fold-search t)
!             (,tempvar ,file)
          (visited-p (or (null ,tempvar)
                 (get-file-buffer (expand-file-name ,tempvar))))
          (point (point)) to-be-removed)

[-- Attachment #2: Type: text/html, Size: 2769 bytes --]

             reply	other threads:[~2014-12-13 23:50 UTC|newest]

Thread overview: 2+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2014-12-13 23:49 Christopher Genovese [this message]
2014-12-14  8:42 ` Tangling does not detect src blocks with capital BEGIN_SRC/END_SRC when case-fold-search nil Nicolas Goaziou

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=CAPum5FgRdZ7vOir5o5ULS+H6TLpLCjTrRjWPXx1CkQGXrjaZEA@mail.gmail.com \
    --to=genovese@cmu.edu \
    --cc=emacs-orgmode@gnu.org \


* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox


This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).