瀏覽代碼

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

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.)
Bastien Guerry 17 年之前
父節點
當前提交
b68b57c99f
共有 4 個文件被更改,包括 15 次插入5 次删除
  1. 9 0
      lisp/ChangeLog
  2. 2 2
      lisp/org-clock.el
  3. 2 1
      lisp/org-exp.el
  4. 2 2
      lisp/org.el

+ 9 - 0
lisp/ChangeLog

@@ -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)

+ 2 - 2
lisp/org-clock.el

@@ -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)

+ 2 - 1
lisp/org-exp.el

@@ -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

+ 2 - 2
lisp/org.el

@@ -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)