emacs-orgmode
[Top][All Lists]
Advanced

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





reply via email to

[Prev in Thread] Current Thread [Next in Thread]