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

Repair the export of source code line references in LaTeX 

Marting G. Skjaeveland writes:

> I pulled a fresh copy of org-mode this morning and noticed that
> references to source code line numbers no longer work as they used
> to. Instead of displaying the number of the line with the label, the
> label is displayed.
>
> Exporting the following example, retrieved from the online
> documentation (http://orgmode.org/manual/Literal-examples.html),
>
> -------------------------------------start
> #+BEGIN_SRC emacs-lisp -n -r
>  (save-excursion                  (ref:sc)
>  (goto-char (point-min))       (ref:jump)
> #+END_SRC
>
>  In line [[(sc)]] we remember the current position.  [[(jump)][Line
> (jump)]] jumps to point-min.
>
> -------------------------------------end
>
> gives me in latex export
>
> -------------------------------------start
> \begin{verbatim}
> 1:  (save-excursion
> 2:  (goto-char (point-min))
> \end{verbatim}
>
>  In line \hyperref[(sc)]{(sc)} we remember the current
>  position. \hyperref[(jump)]{Line (jump)} jumps to point-min.
>  -------------------------------------end
>
This commit is contained in:
Carsten Dominik 2010-01-14 18:06:22 +01:00
parent b83c03a898
commit bfad012629
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2010-01-14 Carsten Dominik <carsten.dominik@gmail.com> 2010-01-14 Carsten Dominik <carsten.dominik@gmail.com>
* org-exp.el (org-export-target-internal-links): Check for
protectedness after the first bracket.
* org.el (org-entry-properties): Don't match wrong-case TODO * org.el (org-entry-properties): Don't match wrong-case TODO
keywords. keywords.

2
lisp/org-exp.el
View File

@ -1537,7 +1537,7 @@ This function also handles the id links, if they have a match in
the current file." the current file."
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward org-bracket-link-regexp nil t) (while (re-search-forward org-bracket-link-regexp nil t)
(org-if-unprotected-at (match-beginning 1) (org-if-unprotected-at (1+ (match-beginning 0))
(let* ((md (match-data)) (let* ((md (match-data))
(desc (match-end 2)) (desc (match-end 2))
(link (org-link-unescape (match-string 1))) (link (org-link-unescape (match-string 1)))