mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-30 20:41:41 +00:00
Code

org-list: Fix `org-list-send-list' in LaTeX buffers

Browse Source 
* lisp/org-list.el (org-list-send-list): Find correct translator.

Reported-by: Charles Millar <millarc@verizon.net>
<http://permalink.gmane.org/gmane.emacs.orgmode/107290>
This commit is contained in:
Nicolas Goaziou 2016-05-23 01:12:51 +02:00
parent d07fafed4a
commit f311921ad3
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/org-list.el
View File

@ -3076,10 +3076,12 @@ for this list."
(catch 'exit
(unless (org-at-item-p) (error "Not at a list item"))
(save-excursion
(re-search-backward "#\\+ORGLST" nil t)
(unless (looking-at "\\(?:[ \t]\\)?#\\+ORGLST:[ \t]+SEND[ \t]+\\(\\S-+\\)[ \t]+\\(\\S-+\\)")
(if maybe (throw 'exit nil)
(error "Don't know how to transform this list"))))
(let ((case-fold-search t))
(re-search-backward "^[ \t]*#\\+ORGLST:" nil t)
(unless (looking-at
"[ \t]*#\\+ORGLST:[ \t]+SEND[ \t]+\\(\\S-+\\)[ \t]+\\([^ \t\n]+\\)")
(if maybe (throw 'exit nil)
(error "Don't know how to transform this list")))))
(let* ((name (match-string 1))
(transform (intern (match-string 2)))
(bottom-point