[Emacs-diffs] Changes to emacs/lisp/org/org-export-latex.el,v

[Carsten Dominik]

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