ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bugfix: Use let* instead of let

This commit is contained in:
Dan Davison 2009-07-11 13:39:05 -04:00
parent f622d8d288
commit cd4c794af6
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-babel.el
View File

@ -387,10 +387,10 @@ source block. Specifically at the beginning of the #+RESNAME:
line. If no result exists for this block then create a line. If no result exists for this block then create a
#+RESNAME: line following the source block." #+RESNAME: line following the source block."
(save-excursion (save-excursion
(let ((on-lob-line (progn (beginning-of-line 1) (let* ((on-lob-line (progn (beginning-of-line 1)
(looking-at org-babel-lob-one-liner-regexp))) (looking-at org-babel-lob-one-liner-regexp)))
(name (if on-lob-line (org-babel-lob-get-info) (org-babel-get-src-block-name))) (name (if on-lob-line (org-babel-lob-get-info) (org-babel-get-src-block-name)))
end head) end head)
(unless on-lob-line (goto-char (org-babel-where-is-src-block-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)) (or (and name (message name) (org-babel-find-named-result name))
(and (or on-lob-line (re-search-forward "#\\+end_src" nil t)) (and (or on-lob-line (re-search-forward "#\\+end_src" nil t))