mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-15 17:00:45 +00:00
Code

Get rid of some compiler messages by fixing bugs and definitions.

Browse Source
This commit is contained in:
Carsten Dominik 2008-09-17 13:55:59 +02:00
parent ad7e092f98
commit 1b23a3fd20
4 changed files with 24 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -1,5 +1,7 @@
2008-09-17 Carsten Dominik <dominik@science.uva.nl>
* org-agenda.el (org-global-tags-completion-table): New variable.
* org-exp.el (org-export-handle-export-tags): New function.
(org-export-preprocess-string): Call
`org-export-handle-export-tags'.

3
lisp/org-agenda.el
View File

@ -4079,12 +4079,13 @@ When this is the global TODO list, a prefix argument will be interpreted."
(goto-line line)
(recenter window-line)))
(defvar org-global-tags-completion-table nil)
(defun org-agenda-filter-by-tag (strip &optional char)
"Keep only those lines in the agenda buffer that have a specific tag.
The tag is selected with its fast selection letter, as configured.
With prefix argument STRIP, remove all lines that do have the tag."
(interactive "P")
(let (char a tag (inhibit-read-only t))
(let (char a tag tags (inhibit-read-only t))
(message "Select tag [%s] or no tag [ ], [TAB] to complete, [/] to restore: "
(mapconcat
(lambda (x) (if (cdr x) (char-to-string (cdr x)) ""))

38
lisp/org-exp.el
View File

@ -64,6 +64,24 @@ force an export command into the current process."
:group 'org-export-general
:type 'boolean)
(defcustom org-export-select-tags '("export")
"Tags that select a tree for export.
If any such tag is found in a buffer, all trees that do not carry one
of these tags will be deleted before export.
Inside trees that are selected like this, you can still deselect a
subtree by tagging it with one of the `org-export-excude-tags'."
:group 'org-export-general
:type '(repeat (string :tag "Tag")))
(defcustom org-export-exclude-tags '("noexport")
"Tags that exclude a tree from export.
All trees carrying any of these tags will be excluded from export.
This is without contition, so even subtrees inside that carry one of the
`org-export-select-tags' will be removed."
:group 'org-export-general
:type '(repeat (string :tag "Tag")))
(defcustom org-export-with-special-strings t
"Non-nil means, interpret \"\-\", \"--\" and \"---\" for export.
When this option is turned on, these strings will be exported as:
@ -1579,7 +1597,7 @@ removed as well."
(re-excl (concat ":\\(" (mapconcat 'regexp-quote
exclude-tags "\\|")
"\\):"))
beg end)
beg end cont)
(goto-char (point-min))
(when (and select-tags
(re-search-forward
@ -4513,24 +4531,6 @@ The XOXO buffer is named *xoxo-<source buffer name>*"
(provide 'org-exp)
(defcustom org-export-select-tags '("export")
"Tags that select a tree for export.
If any such tag is found in a buffer, all trees that do not carry one
of these tags will be deleted before export.
Inside trees that are selected like this, you can still deselect a
subtree by tagging it with one of the `org-export-excude-tags'."
:group 'org-export
:type '(repeat (string :tag "Tag")))
(defcustom org-export-exclude-tags '("noexport")
"Tags that exclude a tree from export.
All trees carrying any of these tags will be excluded from export.
This is without contition, so even subtrees inside that carry one of the
`org-export-select-tags' will be removed."
:group 'org-export
:type '(repeat (string :tag "Tag")))
;; arch-tag: 65985fe9-095c-49c7-a7b6-cb4ee15c0a95
;;; org-exp.el ends here

2
lisp/org-publish.el
View File

@ -410,7 +410,7 @@ If NO-EXCLUSION is non-nil, don't exclude files."
(defun org-publish-expand-projects (projects-alist)
"Expand projects in PROJECTS-ALIST.
This splices all the components into the list."
(let ((rest projects-alist) rtn p c)
(let ((rest projects-alist) rtn p components)
(while (setq p (pop rest))
(if (setq components (plist-get (cdr p) :components))
(setq rest (append