diff options
| author | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-03-09 01:02:02 +0100 |
|---|---|---|
| committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-03-11 08:33:10 +0100 |
| commit | 5c25ede5d9012c1bb31d02a3b8e54aba6b783285 (patch) | |
| tree | 72f9a6c199f8121842e27bd80631439d66690800 | |
| parent | 59cb22d63864a68c3ff47ca1ace6e02276f5b49c (diff) | |
| download | org-mode-5c25ede5d9012c1bb31d02a3b8e54aba6b783285.tar.gz | |
ox-texinfo: Fix small bug
* lisp/ox-texinfo.el (org-texinfo-plain-list): Use `member' instead of
`memq' when matching strings.
| -rw-r--r-- | lisp/ox-texinfo.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el index addc4ce..27bde3e 100644 --- a/lisp/ox-texinfo.el +++ b/lisp/ox-texinfo.el @@ -1282,11 +1282,9 @@ contextual information." (indic (or (plist-get attr :indic) org-texinfo-def-table-markup)) (type (org-element-property :type plain-list)) - (table-type (or (plist-get attr :table-type) - "table")) + (table-type (plist-get attr :table-type)) ;; Ensure valid texinfo table type. - (table-type (if (memq table-type '("table" "ftable" "vtable")) - table-type + (table-type (if (member table-type '("ftable" "vtable")) table-type "table")) (list-type (cond ((eq type 'ordered) "enumerate") |