mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-02-08 21:38:10 +00:00
Code

org-babel-goto-named-source-block is working

Browse Source
This commit is contained in:
Eric Schulte 2009-06-15 12:43:15 -07:00
parent ec38cffff0
commit 793f5205e2
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/org-babel.el
View File

@ -272,15 +272,10 @@ If the point is not on a source block then return nil."
(defun org-babel-goto-named-source-block (&optional name)
"Go to a named source-code block."
(interactive "ssource-block name: ")
(let ((S (format "#+srcname: %s" name)))
(let ((point (org-babel-find-named-block name)))
(if point
;; taken from `org-open-at-point'
(progn
(switch-to-buffer-other-window
(org-get-buffer-for-internal-link (current-buffer)))
(org-mark-ring-push)
(condition-case nil (org-link-search (format "#+srcname: %s" name))
(error (progn (widen) (org-link-search (format "#+srcname: %s" name))))))
(progn (goto-char point) (org-show-context))
(message "source-code block '%s' not found in this buffer" name))))
(defun org-babel-find-named-block (name)