ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Keep byte compiler happy

This commit is contained in:
Carsten Dominik 2009-11-13 07:09:47 +01:00
parent eea7bf8d3f
commit f24ef5c577
3 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ORGWEBPAGE/index.org
View File

@ -93,6 +93,7 @@ a look at our [[http://orgmode.org/worg/org-quotes.php][collected quotes about O
#+ATTR_HTML: style="float:right;" #+ATTR_HTML: style="float:right;"
[[http://mobileorg.ncogni.to/][http://mobileorg.ncogni.to/images/screenshot-browse.png]] [[http://mobileorg.ncogni.to/][http://mobileorg.ncogni.to/images/screenshot-browse.png]]
- <2009-11-13 Fri>: Release 6.33
- <2009-11-03 Tue>: iPhone App [[http://mobileorg.ncogni.to/][MobileOrg]] available in the AppStore - <2009-11-03 Tue>: iPhone App [[http://mobileorg.ncogni.to/][MobileOrg]] available in the AppStore
- <2009-10-26 Mon>: Release 6.32 - <2009-10-26 Mon>: Release 6.32
- <2009-09-30 Wed>: Release 6.31 - <2009-09-30 Wed>: Release 6.31

1
lisp/org-colview.el
View File

@ -34,6 +34,7 @@
(require 'org) (require 'org)
(declare-function org-agenda-redo "org-agenda" ()) (declare-function org-agenda-redo "org-agenda" ())
(declare-function org-agenda-show "org-agenda" (&optional full-entry))
;;; Column View ;;; Column View

22
lisp/org-exp.el
View File

@ -1535,6 +1535,15 @@ the current file."
(unless desc (insert "][" link)) (unless desc (insert "][" link))
(add-text-properties pos (point) props)))))) (add-text-properties pos (point) props))))))
(defvar org-export-format-drawer-function nil
"Function to be called to format the contents of a drawer.
The function must accept three parameters:
BACKEND one of the symbols html, docbook, latex, ascii, xoxo
NAME the drawer name, like \"PROPERTIES\"
CONTENT the content of the drawer.
The function should return the text to be inserted into the buffer.
If this is nil, `org-export-format-drawer' is used as a default.")
(defun org-export-remove-or-extract-drawers (all-drawers exp-drawers backend) (defun org-export-remove-or-extract-drawers (all-drawers exp-drawers backend)
"Remove drawers, or extract and format the content. "Remove drawers, or extract and format the content.
ALL-DRAWERS is a list of all drawer names valid in the current buffer. ALL-DRAWERS is a list of all drawer names valid in the current buffer.
@ -1546,7 +1555,7 @@ BACKEND is the current export backend."
(let ((re (concat "^[ \t]*:\\(" (let ((re (concat "^[ \t]*:\\("
(mapconcat 'identity all-drawers "\\|") (mapconcat 'identity all-drawers "\\|")
"\\):[ \t]*$")) "\\):[ \t]*$"))
name beg beg-content eol) name beg beg-content eol content)
(while (re-search-forward re nil t) (while (re-search-forward re nil t)
(org-if-unprotected (org-if-unprotected
(setq name (match-string 1)) (setq name (match-string 1))
@ -1568,21 +1577,12 @@ BACKEND is the current export backend."
name content backend)) name content backend))
(insert content))))))) (insert content)))))))
(defvar org-export-format-drawer-function nil
"Function to be called to format the contents of a drawer.
The function must accept three parameters:
BACKEND one of the symbols html, docbook, latex, ascii, xoxo
NAME the drawer name, like \"PROPERTIES\"
CONTENT the content of the drawer.
The function should return the text to be inserted into the buffer.
If this is nil, `org-export-format-drawer' is used as a default.")
(defun org-export-format-drawer (name content backend) (defun org-export-format-drawer (name content backend)
"Format the content of a drawer as a colon example." "Format the content of a drawer as a colon example."
(if (string-match "[ \t]+\\'" content) (if (string-match "[ \t]+\\'" content)
(setq content (substring content (match-beginning 0)))) (setq content (substring content (match-beginning 0))))
(while (string-match "\\`[ \t]*\n" content) (while (string-match "\\`[ \t]*\n" content)
(steq content (substring content (match-end 0)))) (setq content (substring content (match-end 0))))
(setq content (org-remove-indentation content)) (setq content (org-remove-indentation content))
(setq content (concat ": " (mapconcat 'identity (setq content (concat ": " (mapconcat 'identity
(org-split-string content "\n") (org-split-string content "\n")