mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-27 22:02:52 +00:00
Bugfix: Use let* instead of let
This commit is contained in:
parent
f622d8d288
commit
cd4c794af6
|
@ -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))
|
||||||
|
|
Loading…
Reference in a new issue