[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/org/org-export-latex.el,v
From: |
Carsten Dominik |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/org/org-export-latex.el,v |
Date: |
Thu, 24 Jul 2008 13:59:59 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Carsten Dominik <cdominik> 08/07/24 13:59:57
Index: org-export-latex.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/org/org-export-latex.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- org-export-latex.el 17 Jun 2008 15:21:57 -0000 1.4
+++ org-export-latex.el 24 Jul 2008 13:59:53 -0000 1.5
@@ -4,7 +4,7 @@
;;
;; Emacs Lisp Archive Entry
;; Filename: org-export-latex.el
-;; Version: 6.05a
+;; Version: 6.06a
;; Author: Bastien Guerry <bzg AT altern DOT org>
;; Maintainer: Bastien Guerry <bzg AT altern DOT org>
;; Keywords: org, wp, tex
@@ -762,11 +762,22 @@
(replace-match "")
(replace-match (format "\\texttt{%s}" (match-string 0)) t t)))
;; convert tags
- (when (re-search-forward "\\(:[a-zA-Z0-9]+\\)+:" nil t)
+ (when (re-search-forward "\\(:address@hidden)+:" nil t)
(if (or (not org-export-with-tags)
(plist-get remove-list :tags))
(replace-match "")
- (replace-match (format "\\texttt{%s}" (match-string 0)) t t)))))
+ (replace-match
+ (org-export-latex-protect-string
+ (format "\\texttt{%s}" (save-match-data
+ (org-quote-chars (match-string 0)))))
+ t t)))))
+
+(defun org-quote-chars (s)
+ (let ((start 0))
+ (while (string-match "_" s start)
+ (setq start (+ 2 (match-beginning 0))
+ s (replace-match "\\_" t t s))))
+ s)
(defun org-export-latex-fontify-headline (string)
"Fontify special words in string."
@@ -777,10 +788,10 @@
(goto-char (point-min))
(when (plist-get org-export-latex-options-plist :emphasize)
(org-export-latex-fontify))
- (org-export-latex-special-chars
- (plist-get org-export-latex-options-plist :sub-superscript))
(org-export-latex-keywords-maybe
org-export-latex-remove-from-headlines)
+ (org-export-latex-special-chars
+ (plist-get org-export-latex-options-plist :sub-superscript))
(org-export-latex-links)
(org-trim (buffer-substring-no-properties (point-min) (point-max)))))
@@ -1051,7 +1062,7 @@
(let* ((re-radio org-export-latex-all-targets-re)
(remove (list (match-beginning 0) (match-end 0)))
(type (match-string 2))
- (raw-path (match-string 3))
+ (raw-path (org-extract-attributes (match-string 3)))
(full-raw-path (concat (match-string 1) raw-path))
(desc (match-string 5))
imgp radiop
- [Emacs-diffs] Changes to emacs/lisp/org/org-export-latex.el,v,
Carsten Dominik <=