* MASH | id | Actor | Character | |----+---------------+---------------------------| | 1 | Allan Alda | "Hawkeye" Benjamin Pierce | | 2 | Gary Burghoff | "Radar" Walter O'Reilly | | 3 | Loretta Switt | "Hotlips" Margaret Hoolihan | Debugger entered--Lisp error: (wrong-number-of-arguments #[(string &optional separators) "†ÆÇȉÉ ƒ& ǔUƒ& GWƒ& T‚' #ƒYǔ GWƒYÊǔÇ=„SǔǕ=ƒKǔ =„S ǔO BǕ‚ G=„g ÈO B Ÿ,‡" [separators list notfirst start rexp string "[ ]+" 0 nil string-match t] 5 1390318] 3) split-string(#("| id | Actor | Character |\n|----+---------------+-------------------------------|\n| 1 | Allan Alda | ``Hawkeye'' Benjamin Pierce |\n| 2 | Gary Burghoff | ``Radar'' Walter O'Reilly |\n| 3 | Loretta Switt | ``Hotlips'' Margaret Hoolihan |\n" 0 2 nil 2 4 (org-label nil org-attributes nil org-caption nil fontified nil) 4 7 nil 7 12 (org-label nil org-attributes nil org-caption nil fontified nil) 12 23 nil 23 32 (org-label nil org-attributes nil org-caption nil fontified nil) 32 113 nil 113 114 (org-label nil org-attributes nil org-caption nil fontified nil) 114 117 nil 117 127 (org-label nil org-attributes nil org-caption nil fontified nil) 127 133 nil 133 135 (org-protected t) 135 141 (org-label nil org-attributes nil org-caption nil fontified nil) 141 142 (org-protected t fontified nil org-caption nil org-attributes nil org-label nil) 142 144 (org-protected t) 144 160 (org-label nil org-attributes nil org-caption nil fontified nil) 160 168 nil 168 169 (org-label nil org-attributes nil org-caption nil fontified nil) 169 172 nil 172 185 (org-label nil org-attributes nil org-caption nil fontified nil) 185 188 nil 188 190 (org-protected t) 190 194 (org-label nil org-attributes nil org-caption nil fontified nil) 194 195 (org-protected t fontified nil org-caption nil org-attributes nil org-label nil) 195 197 (org-protected t) 197 213 (org-label nil org-attributes nil org-caption nil fontified nil) 213 223 nil 223 224 (org-label nil org-attributes nil org-caption nil fontified nil) 224 227 nil 227 240 (org-label nil org-attributes nil org-caption nil fontified nil) 240 243 nil 243 245 (org-protected t) 245 251 (org-label nil org-attributes nil org-caption nil fontified nil) 251 252 (org-protected t fontified nil org-caption nil org-attributes nil org-label nil) 252 254 (org-protected t) 254 272 (org-label nil org-attributes nil org-caption nil fontified nil) 272 275 nil) "\n" t) (setq lines (split-string raw-table "\n" t)) (progn (setq caption (org-find-text-property-in-string ... raw-table) attr (org-find-text-property-in-string ... raw-table) label (org-find-text-property-in-string ... raw-table) longtblp (and attr ... ...) align (and attr ... ... ...) floatp (or caption label)) (setq lines (split-string raw-table "\n" t)) (apply (quote delete-region) (list beg end)) (when org-export-table-remove-special-lines (setq lines ...)) (setq olines lines) (while (and ... ...) (unless ... ... ... ...)) (setq line-fmt (replace-regexp-in-string "||" "|" line-fmt)) (when (and ... ...) (setq line-fmt ...)) (unless align (setq align ...)) (setq lines (mapcar ... lines)) (when insert (insert ... "\n\n"))) (if org-export-latex-tables-verbatim (let* (...) (apply ... ...) (insert ...)) (progn (setq caption ... attr ... label ... longtblp ... align ... floatp ...) (setq lines ...) (apply ... ...) (when org-export-table-remove-special-lines ...) (setq olines lines) (while ... ...) (setq line-fmt ...) (when ... ...) (unless align ...) (setq lines ...) (when insert ...))) (let* ((beg ...) (end ...) (raw-table ...) fnum fields line lines olines gr colgropen line-fmt align caption label attr floatp longtblp) (if org-export-latex-tables-verbatim (let* ... ... ...) (progn ... ... ... ... ... ... ... ... ... ... ...))) (while (re-search-forward "^\\([ ]*\\)|" nil t) (save-excursion (org-table-align)) (let* (... ... ... fnum fields line lines olines gr colgropen line-fmt align caption label attr floatp longtblp) (if org-export-latex-tables-verbatim ... ...))) org-export-latex-tables(t) (if (memq (quote tables) exclude-list) nil (org-export-latex-tables (plist-get org-export-latex-options-plist :tables))) (unless (memq (quote tables) exclude-list) (org-export-latex-tables (plist-get org-export-latex-options-plist :tables))) (save-current-buffer (set-buffer temp-buffer) (insert content) (unless (memq ... exclude-list) (org-export-latex-quotation-marks)) (unless (memq ... exclude-list) (when ... ...)) (unless (memq ... exclude-list) (org-export-latex-special-chars ...)) (unless (memq ... exclude-list) (org-export-latex-links)) (unless (memq ... exclude-list) (org-export-latex-keywords)) (unless (memq ... exclude-list) (org-export-latex-lists)) (unless (memq ... exclude-list) (org-export-latex-tables ...)) (unless (memq ... exclude-list) (org-export-latex-fixed-width ...)) (buffer-substring (point-min) (point-max))) (with-current-buffer temp-buffer (insert content) (unless (memq ... exclude-list) (org-export-latex-quotation-marks)) (unless (memq ... exclude-list) (when ... ...)) (unless (memq ... exclude-list) (org-export-latex-special-chars ...)) (unless (memq ... exclude-list) (org-export-latex-links)) (unless (memq ... exclude-list) (org-export-latex-keywords)) (unless (memq ... exclude-list) (org-export-latex-lists)) (unless (memq ... exclude-list) (org-export-latex-tables ...)) (unless (memq ... exclude-list) (org-export-latex-fixed-width ...)) (buffer-substring (point-min) (point-max))) (unwind-protect (with-current-buffer temp-buffer (insert content) (unless ... ...) (unless ... ...) (unless ... ...) (unless ... ...) (unless ... ...) (unless ... ...) (unless ... ...) (unless ... ...) (buffer-substring ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))) (let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer ... ... ... ... ... ... ... ... ... ...) (and ... ...))) (with-temp-buffer (insert content) (unless (memq ... exclude-list) (org-export-latex-quotation-marks)) (unless (memq ... exclude-list) (when ... ...)) (unless (memq ... exclude-list) (org-export-latex-special-chars ...)) (unless (memq ... exclude-list) (org-export-latex-links)) (unless (memq ... exclude-list) (org-export-latex-keywords)) (unless (memq ... exclude-list) (org-export-latex-lists)) (unless (memq ... exclude-list) (org-export-latex-tables ...)) (unless (memq ... exclude-list) (org-export-latex-fixed-width ...)) (buffer-substring (point-min) (point-max))) org-export-latex-content(#("| id | Actor | Character |\n|----+---------------+---------------------------|\n| 1 | Allan Alda | \"Hawkeye\" Benjamin Pierce |\n| 2 | Gary Burghoff | \"Radar\" Walter O'Reilly |\n| 3 | Loretta Switt | \"Hotlips\" Margaret Hoolihan |\n\n" 0 50 (org-label nil org-attributes nil org-caption nil fontified nil) 50 51 (fontified nil) 51 101 (fontified nil) 101 102 (fontified nil) 102 152 (org-label nil org-attributes nil org-caption nil fontified nil) 152 153 (fontified nil) 153 203 (org-label nil org-attributes nil org-caption nil fontified nil) 203 204 (fontified nil) 204 257 (org-label nil org-attributes nil org-caption nil fontified nil) 257 259 (fontified nil))) (prog1 (org-export-latex-content (org-export-preprocess-string ... :for-LaTeX t :emph-multiline t :add-text nil :comments nil :skip-before-1st-heading nil :LaTeX-fragments nil :timestamps ... :footnotes ...)) (org-unmodified (add-text-properties pt ... ...))) (let* ((pt ...) (end ...)) (prog1 (org-export-latex-content ...) (org-unmodified ...))) (save-excursion (goto-char (or beg ...)) (if (org-at-heading-p) (beginning-of-line 2)) (let* (... ...) (prog1 ... ...))) org-export-latex-first-lines((:exclude-tags ("noexport") :select-tags ("export") :email "andrew@kungfu" :author "andrew" :auto-postamble t :auto-preamble t :postamble nil :preamble nil :publishing-directory nil :timestamp nil :expand-quoted-html t :html-table-tag "" :html-extension "html" :inline-images maybe :convert-org-links t :agenda-style "" :style-extra "" :style "" :style-include-scripts t :style-include-default t :table-auto-headline t :tables t :time-stamp-file t :creator-info t :author-info t ...) nil) (if skip "" (org-export-latex-first-lines opt-plist rbeg)) (let* ((wcf ...) (opt-plist org-export-latex-options-plist) (region-p ...) (rbeg ...) (rend ...) (subtree-p ...) (opt-plist ...) (org-export-latex-options-plist opt-plist) (title ...) (filename ...) (filename ...) (buffer ...) (odd org-odd-levels-only) (header ...) (skip ...) (text ...) (first-lines ...) (coding-system ...) (coding-system-for-write ...) (save-buffer-coding-system ...) (region ...) (string-for-export ...)) (set-buffer buffer) (erase-buffer) (and (fboundp ...) (set-buffer-file-coding-system coding-system-for-write)) (unless (or ... body-only) (insert header)) (when (and text ...) (insert ... "\n\n")) (unless (or skip ...) (insert first-lines)) (org-export-latex-global (with-temp-buffer ... ... ...)) (unless body-only (insert "\n\\end{document}")) (or to-buffer (save-buffer)) (goto-char (point-min)) (message "Exporting to LaTeX...done") (prog1 (if ... ... ...) (set-window-configuration wcf))) org-export-as-latex(nil nil nil "*Org LaTeX Export*") org-export-as-latex-to-buffer(nil) call-interactively(org-export-as-latex-to-buffer) (if (and bg (nth 2 ass) (not ...) (not ...)) (let (...) (set-process-sentinel p ...) (message "Background process \"%s\": started" p)) (call-interactively (nth 1 ass))) (let* ((bg ...) (help "[t] insert the export option template\n[v] limit export to visible part of outline tree\n\n[a] export as ASCII\n\n[h] export as HTML\n[H] export as HTML to temporary buffer\n[R] export region as HTML\n[b] export as HTML and browse immediately\n[x] export as XOXO\n\n[l] export as LaTeX\n[p] export as LaTeX and process to PDF\n[d] export as LaTeX, process to PDF, and open the resulting PDF document\n[L] export as LaTeX to temporary buffer\n\n[i] export current file as iCalendar file\n[I] export all agenda files as iCalendar files\n[c] export agenda files into combined iCalendar file\n\n[F] publish current file\n[P] publish current project\n[X] publish... (project will be prompted for)\n[A] publish all projects") (cmds ...) r1 r2 ass) (save-excursion (save-window-excursion ... ... ... ... ...)) (setq r2 (if ... ... r1)) (unless (setq ass ...) (error "No command associated with key %c" r1)) (if (and bg ... ... ...) (let ... ... ...) (call-interactively ...))) org-export(nil) * call-interactively(org-export)