[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Orgmode] Org-mode version 6.31 (release_6.31); org-clock-cancel erroneo
From: |
Reimar Finken |
Subject: |
[Orgmode] Org-mode version 6.31 (release_6.31); org-clock-cancel erroneous quotes |
Date: |
Wed, 30 Sep 2009 17:56:38 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/23.1 (gnu/linux) |
[Sorry for the double post, I was too quick with my C-c C-c]
Clocking in on any task (C-c C-x C-i) and cancelling afterwards (C-c C-x
C-x) results in the following backtrace:
,----
| Debugger entered--Lisp error: (wrong-type-argument markerp org-clock-marker)
| move-marker(org-clock-marker nil)
| org-clock-cancel()
| call-interactively(org-clock-cancel nil nil)
`----
Culprit are two erroneous quotes in front of org-clock-marker in org-clock-el.
The patch (output
of git diff -u on a clean checkout) fixes the problem:
diff --git a/lisp/org-clock.el b/lisp/org-clock.el
index e279898..91a4bcb 100644
--- a/lisp/org-clock.el
+++ b/lisp/org-clock.el
@@ -818,8 +818,8 @@ If there is no running clock, throw an error, unless
FAIL-QUIETLY is set."
(set-buffer (marker-buffer org-clock-marker))
(goto-char org-clock-marker)
(delete-region (1- (point-at-bol)) (point-at-eol)))
- (move-marker 'org-clock-marker nil)
- (move-marker 'org-clock-hd-marker nil)
+ (move-marker org-clock-marker nil)
+ (move-marker org-clock-hd-marker nil)
(setq global-mode-string
(delq 'org-mode-line-string global-mode-string))
(force-mode-line-update)
Emacs : GNU Emacs 23.1.1 (i586-suse-linux-gnu, GTK+ Version 2.14.4)
of 2009-07-30 on build21
Package: Org-mode version 6.31 (release_6.31)
current state:
==============
(setq
org-after-todo-state-change-hook '(org-clock-out-if-current)
org-export-preprocess-hook '(org-export-blocks-preprocess)
org-tab-first-hook '(org-hide-block-toggle-maybe)
org-src-mode-hook '(org-src-mode-configure-edit-buffer)
org-confirm-shell-link-function 'yes-or-no-p
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
org-cycle-show-empty-lines
org-optimize-window-after-visibility-change)
org-mode-hook '((lambda nil
(org-add-hook (quote change-major-mode-hook)
(quote org-show-block-all) (quote append) (quote local))
)
)
org-confirm-elisp-link-function 'yes-or-no-p
org-occur-hook '(org-first-headline-recenter)
)