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

org-latex.el: Delete trailing whitespaces.

This commit is contained in:
Bastien Guerry 2011-07-12 08:31:07 +02:00
parent 2b9afb9e63
commit 0b0684aa95
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/org-latex.el
View File

@ -338,13 +338,13 @@ string defines the replacement string for this quote."
:group 'org-export-latex :group 'org-export-latex
:type '(list :type '(list
(cons :tag "Opening quote" (cons :tag "Opening quote"
(string :tag "Regexp for char before") (string :tag "Regexp for char before")
(string :tag "Replacement quote ")) (string :tag "Replacement quote "))
(cons :tag "Closing quote" (cons :tag "Closing quote"
(string :tag "Regexp for char after ") (string :tag "Regexp for char after ")
(string :tag "Replacement quote ")) (string :tag "Replacement quote "))
(cons :tag "Single quote" (cons :tag "Single quote"
(string :tag "Regexp for char before") (string :tag "Regexp for char before")
(string :tag "Replacement quote ")))) (string :tag "Replacement quote "))))
(defcustom org-export-latex-tables-verbatim nil (defcustom org-export-latex-tables-verbatim nil
@ -1657,7 +1657,7 @@ links, keywords, lists, tables, fixed-width"
(org-export-latex-protect-string (org-export-latex-protect-string
(copy-sequence (cdr l)))))) (copy-sequence (cdr l))))))
(org-if-unprotected-1 (org-if-unprotected-1
(replace-match rpl t t))))) (replace-match rpl t t)))))
(cdr (or (assoc (plist-get org-export-latex-options-plist :language) (cdr (or (assoc (plist-get org-export-latex-options-plist :language)
org-export-latex-quotes) org-export-latex-quotes)
;; falls back on english ;; falls back on english
@ -1951,7 +1951,7 @@ The conversion is made depending of STRING-BEFORE and STRING-AFTER."
(mapcar (mapcar
(lambda(elem) (lambda(elem)
(or (and (string-match "[ \t]*|-+" elem) 'hline) (or (and (string-match "[ \t]*|-+" elem) 'hline)
(org-split-string (org-split-string
(progn (set-text-properties 0 (length elem) nil elem) (progn (set-text-properties 0 (length elem) nil elem)
(org-trim elem)) "|"))) (org-trim elem)) "|")))
lines)) lines))
@ -2377,7 +2377,7 @@ The conversion is made depending of STRING-BEFORE and STRING-AFTER."
(while (re-search-forward (while (re-search-forward
"^[ \t]*#\\+index:[ \t]*\\([^ \t\r\n].*?\\)[ \t]*$" "^[ \t]*#\\+index:[ \t]*\\([^ \t\r\n].*?\\)[ \t]*$"
nil t) nil t)
(setq entry (setq entry
(save-match-data (save-match-data
(org-export-latex-protect-string (org-export-latex-protect-string
(org-export-latex-fontify-headline (match-string 1))))) (org-export-latex-fontify-headline (match-string 1)))))