mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-16 14:16:26 +00:00
Code Releases Activity

Small doc fixes from Emacs (Juanma Barranquero) and a bug fix in org-exp.el.

Browse source 
See <E1KE2Mh-0005EC-CF@cvs.savannah.gnu.org> in emacs-commit@:
* org.el (org-agenda-skip-unavailable-files):
* org-clock.el (org-clock-out-when-done): Doc fixes.

The bug affected the exportation of commented subtree: case cannot be
ignored when checking for the COMMENT cookie ("Comment" is a frequent
word in french, and has a completely different meaning.)
This commit is contained in:
Bastien Guerry 2008-07-04 04:09:00 +02:00
parent e9cf673235
commit b68b57c99f
4 changed files with 15 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/ChangeLog
View file

@ -1,3 +1,12 @@
2008-07-04 Bastien Guerry <bzg@altern.org>
* org-clock.el (org-clock-out-when-done): Doc fix.
* org.el (org-agenda-skip-unavailable-files): Doc fix.
* org-exp.el (org-export-remove-comment-blocks-and-subtrees):
Ignore case when searching for the COMMENT cookie at export time.
2008-07-02 Carsten Dominik <dominik@science.uva.nl>
* org-exp.el (org-get-file-contents)

4
lisp/org-clock.el
View file

@ -54,8 +54,8 @@ reaches or exceeds this number, a drawer will be created."
(integer :tag "When at least N clock entries")))
(defcustom org-clock-out-when-done t
"When t, the clock will be stopped when the relevant entry is marked DONE.
Nil means, clock will keep running until stopped explicitly with
"When non-nil, the clock will be stopped when the relevant entry is marked DONE.
A nil value means, clock will keep running until stopped explicitly with
`C-c C-x C-o', or until the clock is started in a different item."
:group 'org-clock
:type 'boolean)

3
lisp/org-exp.el
View file

@ -1638,7 +1638,8 @@ These special cookies will later be interpreted by the backend."
(defun org-export-remove-comment-blocks-and-subtrees ()
"Remove the comment environment, and also commented subtrees."
(let ((re-commented (concat "^\\*+[ \t]+" org-comment-string "\\>")))
(let ((re-commented (concat "^\\*+[ \t]+" org-comment-string "\\>"))
(case-fold-search nil))
;; Remove comment environment
(goto-char (point-min))
(while (re-search-forward

4
lisp/org.el
View file

@ -1987,8 +1987,8 @@ scope."
'org-agenda-text-search-extra-files))
(defcustom org-agenda-skip-unavailable-files nil
"t means to just skip non-reachable files in `org-agenda-files'.
Nil means to remove them, after a query, from the list."
"Non-nil means to just skip non-reachable files in `org-agenda-files'.
A nil value means to remove them, after a query, from the list."
:group 'org-agenda
:type 'boolean)