ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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: ;;; Code:
(require 'litorgy) (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)) (if (and (stringp string) (string-match "[\n\r]" string))
(concat (substring string 0 (match-beginning 0)) "...") (concat (substring string 0 (match-beginning 0)) "...")
string)) string))
@ -74,7 +74,7 @@ source code block.
results results
#+end_src" #+end_src"
(unless (stringp source-block) (setq source-block (symbol-name source-block))) (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)) (if (and source-block (> (length source-block) 0))
(let ((params (eval `(litorgy-parse-header-arguments (let ((params (eval `(litorgy-parse-header-arguments
(concat ":var results=" (concat ":var results="