tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org-entities: Fix `org-entities-create-table'

Browse source 
* lisp/org-entities.el (org-entities-create-table): Function chokes
  when CAR of `org-entities' is a string.
This commit is contained in:
Nicolas Goaziou 2012-07-11 17:56:33 +02:00
parent af6cb0bd35
commit a821be219a
1 changed files with 23 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/org-entities.el
View file

@ -492,15 +492,11 @@ Kind can be any of `latex', `html', `ascii', `latin1', or `utf8'."
;; Helpfunctions to create a table for orgmode.org/worg/org-symbols.org
(defun org-entities-create-table ()
"Create an org-mode table with all entities."
"Create an Org mode table with all entities."
(interactive)
(let ((ll org-entities)
(pos (point))
e latex mathp html latin utf8 name ascii)
(let ((pos (point)) e latex mathp html latin utf8 name ascii)
(insert "|Name|LaTeX code|LaTeX|HTML code |HTML|ASCII|Latin1|UTF-8\n|-\n")
(while ll
(when (listp e)
(setq e (pop ll))
(mapc (lambda (e) (when (listp e)
(setq name (car e)
latex (nth 1 e)
mathp (nth 2 e)
@ -520,6 +516,7 @@ Kind can be any of `latex', `html', `ascii', `latin1', or `utf8'."
"|" (format "=%s=" html) "|" html
"|" ascii "|" latin "|" utf8
"|\n")))
org-entities)
(goto-char pos)
(org-table-align)))