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

rename `org-table-truncate-at-newline' to `litorgy-table-truncate-at-newline'

This commit is contained in:
Eric Schulte 2009-05-24 10:35:05 -07:00
parent acda13f208
commit b8ecf9596b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
litorgy/litorgy-table.el
View File

@ -55,7 +55,7 @@
;;; Code:
(require 'litorgy)
(defun org-table-truncate-at-newline (string)
(defun litorgy-table-truncate-at-newline (string)
(if (and (stringp string) (string-match "[\n\r]" string))
(concat (substring string 0 (match-beginning 0)) "...")
string))
@ -74,7 +74,7 @@ source code block.
results
#+end_src"
(unless (stringp source-block) (setq source-block (symbol-name source-block)))
(org-table-truncate-at-newline ;; org-table cells can't be multi-line
(litorgy-table-truncate-at-newline ;; org-table cells can't be multi-line
(if (and source-block (> (length source-block) 0))
(let ((params (eval `(litorgy-parse-header-arguments
(concat ":var results="