From: Juanma Barranquero Date: Wed, 2 Jul 2008 13:27:18 +0000 (+0000) Subject: * org.el (org-agenda-skip-unavailable-files): X-Git-Tag: emacs-pretest-23.0.90~4344 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cf7241c896a4344dacc0fe70ee287d00a98d791a;p=emacs.git * org.el (org-agenda-skip-unavailable-files): * org-clock.el (org-clock-out-when-done): Doc fixes. --- diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog index 0f113854f2e..a7f3852404c 100644 --- a/lisp/org/ChangeLog +++ b/lisp/org/ChangeLog @@ -1,3 +1,8 @@ +2008-07-02 Juanma Barranquero + + * org.el (org-agenda-skip-unavailable-files): + * org-clock.el (org-clock-out-when-done): Doc fixes. + 2008-06-18 Glenn Morris * org.el (org-map-entries): Let-bind `file'. @@ -21,7 +26,7 @@ (org-read-date): Respect `org-overriding-default-time'. * org-remember.el (org-remember-apply-template): Respect the - ovverriding default time. + overriding default time. * org-agenda.el (org-agenda-action-marker): New variable. (org-agenda-action): New command. diff --git a/lisp/org/org-clock.el b/lisp/org/org-clock.el index 99be3907cd7..44d8840482a 100644 --- a/lisp/org/org-clock.el +++ b/lisp/org/org-clock.el @@ -55,7 +55,7 @@ reaches or exceeds this number, a drawer will be created." (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 nil, 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) @@ -136,7 +136,7 @@ of a different task.") "Select a task that recently was associated with clocking." (interactive) (let (sel-list rpl file task (i 0) s) - (save-window-excursion + (save-window-excursion (org-switch-to-buffer-other-window (get-buffer-create "*Clock Task Select*")) (erase-buffer) @@ -190,7 +190,7 @@ of a different task.") (when (and cat task) (insert (format "[%c] %-15s %s\n" i cat task)) (cons i marker))))) - + (defun org-update-mode-line () (let* ((delta (- (time-to-seconds (current-time)) (time-to-seconds org-clock-start-time))) @@ -226,13 +226,13 @@ the clocking selection, associated with the letter `d'." (marker-position org-clock-marker) (marker-buffer org-clock-marker)) (org-clock-out t)) - + (when (equal select '(16)) ;; Mark as default clocking task (save-excursion (org-back-to-heading t) (move-marker org-clock-default-task (point)))) - + (setq target-pos (point)) ;; we want to clock in at this location (save-excursion (when (and selected-task (marker-buffer selected-task)) @@ -261,7 +261,7 @@ the clocking selection, associated with the letter `d'." (setq org-clock-heading "???"))) (setq org-clock-heading (propertize org-clock-heading 'face nil)) (org-clock-find-position) - + (insert "\n") (backward-char 1) (indent-relative) (insert org-clock-string " ") @@ -735,9 +735,9 @@ the currently selected interval size." (ins (make-marker)) (total-time nil) (scope (plist-get params :scope)) - (tostring (plist-get params :tostring)) - (multifile (plist-get params :multifile)) - (header (plist-get params :header)) + (tostring (plist-get params :tostring)) + (multifile (plist-get params :multifile)) + (header (plist-get params :header)) (maxlevel (or (plist-get params :maxlevel) 3)) (step (plist-get params :step)) (emph (plist-get params :emphasize)) diff --git a/lisp/org/org.el b/lisp/org/org.el index 7a63ad74cfb..3186185259e 100644 --- a/lisp/org/org.el +++ b/lisp/org/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)