From cd4c794af635a8cfa4917a15438b2f6998171445 Mon Sep 17 00:00:00 2001 From: Dan Davison Date: Sat, 11 Jul 2009 13:39:05 -0400 Subject: [PATCH] Bugfix: Use let* instead of let --- lisp/org-babel.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/org-babel.el b/lisp/org-babel.el index bf07d0e4d..21d15e8f9 100644 --- a/lisp/org-babel.el +++ b/lisp/org-babel.el @@ -387,10 +387,10 @@ source block. Specifically at the beginning of the #+RESNAME: line. If no result exists for this block then create a #+RESNAME: line following the source block." (save-excursion - (let ((on-lob-line (progn (beginning-of-line 1) - (looking-at org-babel-lob-one-liner-regexp))) - (name (if on-lob-line (org-babel-lob-get-info) (org-babel-get-src-block-name))) - end head) + (let* ((on-lob-line (progn (beginning-of-line 1) + (looking-at org-babel-lob-one-liner-regexp))) + (name (if on-lob-line (org-babel-lob-get-info) (org-babel-get-src-block-name))) + end head) (unless on-lob-line (goto-char (org-babel-where-is-src-block-head))) (or (and name (message name) (org-babel-find-named-result name)) (and (or on-lob-line (re-search-forward "#\\+end_src" nil t))