Org-mode version 6.32trans (release_6.32b.127.g471c2); Clocking in with an open clock fails

Org-mode version 6.32trans (release_6.32b.127.g471c2); Clocking in with an open clock fails

[Bernt Hansen]

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

     http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org-mode mailing list.
------------------------------------------------------------------------

If there is an open clocking task and you move to another task and try
to clock that in org-mode used to close out the clocking task, and
clock in the new task.

This no longer works.  Now it closes out the clocking task and clocks
it right back in again.


Emacs  : GNU Emacs 22.2.1 (i486-pc-linux-gnu, GTK+ Version 2.12.11)
 of 2008-11-09 on raven, modified by Debian
Package: Org-mode version 6.32trans (release_6.32b.127.g471c2)

current state:
==============
(setq
 org-export-html-final-hook '(org-inlinetask-remove-terminator)
 org-log-done 'time
 org-remember-default-headline "Tasks"
 org-clock-in-switch-to-state "STARTED"
 org-todo-keyword-faces '(("TODO" :foreground "red" :weight bold) ("STARTED" :foreground "blue" :weight bold) ("DONE" :foreground "forest green" :weight bold) ("WAITING" :foreground "orange" :weight bold)
			  ("SOMEDAY" :foreground "magenta" :weight bold) ("CANCELLED" :foreground "forest green" :weight bold) ("QUOTE" :foreground "red" :weight bold)
			  ("QUOTED" :foreground "magenta" :weight bold) ("APPROVED" :foreground "forest green" :weight bold) ("EXPIRED" :foreground "forest green" :weight bold)
			  ("REJECTED" :foreground "forest green" :weight bold) ("OPEN" :foreground "blue" :weight bold))
 org-show-siblings nil
 org-special-ctrl-a/e t
 org-agenda-clockreport-parameter-plist '(:link nil :maxlevel 2)
 org-default-priority 71
 org-agenda-custom-commands '(("s" "Started Tasks" todo "STARTED" ((org-agenda-todo-ignore-scheduled nil) (org-agenda-todo-ignore-deadlines nil) (org-agenda-todo-ignore-with-date nil)))
			      ("w" "Tasks waiting on something" tags "WAITING/!" ((org-use-tag-inheritance nil)))
			      ("r" "Refile New Notes and Tasks" tags "LEVEL=1+REFILE" ((org-agenda-todo-ignore-with-date nil))) ("N" "Notes" tags "NOTE" nil)
			      ("n" "Next" tags "NEXT-WAITING-CANCELLED/!" nil) ("p" "Projects" tags-todo "LEVEL=2-NEXT-WAITING-CANCELLED/!-DONE" nil)
			      ("A" "Tasks to be Archived" tags "LEVEL=2/DONE|CANCELLED" nil))
 org-agenda-files '("~/git/bzflag/bzflag-website/TODO.org" "~/git/org/bzflag.org" "~/git/org/git.org" "~/git/org/todo.org" "~/git/org/jobs.org" "~/git/org/refile.org" "~/git/org/farm.org"
		    "~/git/org/mark.org" "~/git/org/org.org" "~/git/org/norang.org")
 org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
 org-agenda-tags-column -102
 org-export-ascii-final-hook '(org-inlinetask-remove-terminator)
 org-export-with-sub-superscripts nil
 org-clock-into-drawer "CLOCK"
 org-checklist-export-function 'org-export-as-ascii
 org-completion-use-ido t
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-agenda-skip-timestamp-if-done t
 org-after-todo-state-change-hook '(org-checklist org-clock-out-if-current)
 org-clock-out-when-done nil
 org-agenda-text-search-extra-files '(agenda-archives)
 org-agenda-todo-ignore-scheduled t
 org-clock-history-length 35
 org-babel-interpreters '("ditaa" "python" "ruby" "R" "sh" "emacs-lisp")
 org-show-hierarchy-above t
 org-time-stamp-rounding-minutes '(1 15)
 org-speed-commands-user '(("1" . delete-other-windows) ("2" . split-window-horizontally) ("3" . split-window-vertically))
 org-todo-state-tags-triggers '(("CANCELLED" ("CANCELLED" . t)) ("WAITING" ("WAITING" . t) ("NEXT")) ("SOMEDAY" ("WAITING" . t)) (done ("NEXT") ("WAITING")) ("TODO" ("WAITING") ("CANCELLED") ("NEXT"))
				("DONE" ("WAITING") ("CANCELLED") ("NEXT")))
 org-special-ctrl-k t
 org-remember-clock-out-on-exit nil
 org-agenda-sorting-strategy '((agenda habit-down time-up priority-down effort-up category-up) (todo priority-down) (tags priority-down))
 org-deadline-warning-days 30
 org-agenda-skip-scheduled-if-done t
 org-stuck-projects '("LEVEL=2-REFILE-WAITING|LEVEL=1+REFILE/!-DONE-CANCELLED-OPEN" nil ("NEXT") "")
 org-agenda-time-grid '(nil "----------------" (800 1000 1200 1400 1600 1800 2000))
 org-clock-in-resume t
 org-quote-string "FOOBAR"
 org-export-preprocess-hook '(org-export-blocks-preprocess)
 org-tags-exclude-from-inheritance '("crypt")
 org-tab-first-hook '(org-hide-block-toggle-maybe)
 outline-regexp "\\*+ "
 org-src-mode-hook '(org-src-mode-configure-edit-buffer)
 org-finalize-agenda-hook '(bh/org-agenda-to-appt)
 org-confirm-shell-link-function 'yes-or-no-p
 org-table-export-default-format "orgtbl-to-csv"
 org-clock-persist 'history
 org-clock-sound "/usr/local/lib/alert1.wav"
 org-todo-keywords '((sequence "TODO(t!)" "STARTED(s!)" "|" "DONE(d!/!)") (sequence "WAITING(w@/!)" "SOMEDAY(S!)" "OPEN(O@)" "|" "CANCELLED(c@/!)")
		     (sequence "QUOTE(q!)" "QUOTED(Q!)" "|" "APPROVED(A@)" "EXPIRED(E@)" "REJECTED(R@)"))
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-default-notes-file "~/git/org/refile.org"
 org-export-docbook-xslt-proc-command "xsltproc --output %s /usr/share/xml/docbook/stylesheet/nwalsh/fo/docbook.xsl %s"
 org-insert-heading-hook '(bh/insert-inactive-timestamp)
 org-tag-alist '((:startgroup) ("@errand" . 101) ("@office" . 111) ("@home" . 104) ("@farm" . 102) (:endgroup) ("PHONE" . 112) ("QUOTE" . 113) ("NEXT" . 110) ("WAITING" . 119) ("HOME" . 72) ("FARM" . 70)
		 ("ORG" . 79) ("JOBS" . 74) ("SAPPI" . 83) ("NORANG" . 78) ("crypt" . 101) ("inet" . 105) ("MARK" . 77) ("BZFLAG" . 66))
 org-blank-before-new-entry '((heading) (plain-list-item))
 org-habit-graph-column 50
 org-export-html-inline-images t
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-show-empty-lines org-optimize-window-after-visibility-change)
 org-export-latex-classes '(("myletter"
			     "% BEGIN My Letter Defaults\n\\documentclass[10pt,letterpaper]{letter}\n\\usepackage[letterpaper,includeheadfoot,top=0.5in,bottom=0.5in,left=0.75in,right=0.75in]{geometry}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{hyperref}\n\\usepackage{lastpage}\n\\usepackage{fancyhdr}\n\\pagestyle{fancy}\n\\renewcommand{\\footrulewidth}{0.5pt}\n\n% Default footer\n\\fancyfoot[C]{\\small Page \\thepage\\ of \\pageref{LastPage}}\n% END My Letter Defaults\n\n"
			     ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}")
			     ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
			    ("myarticle"
			     "% BEGIN My Article Defaults\n\\documentclass[10pt,letterpaper]{article}\n\\usepackage[letterpaper,includeheadfoot,top=0.5in,bottom=0.5in,left=0.75in,right=0.75in]{geometry}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{hyperref}\n\\usepackage{lastpage}\n\\usepackage{fancyhdr}\n\\pagestyle{fancy}\n\\renewcommand{\\headrulewidth}{1pt}\n\\renewcommand{\\footrulewidth}{0.5pt}\n\n% Default footer\n\\fancyfoot[L]{\\small \\jobname \\\\ \\today}\n\\fancyfoot[C]{\\small Page \\thepage\\ of \\pageref{LastPage}}\n\\fancyfoot[R]{\\small \\copyright \\the\\year\\  Norang Consulting Inc.}\n% END My Article Defaults\n\n"
			     ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}")
			     ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
			    ("article" "\\documentclass[11pt,letterpaper]{article}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{graphicx}\n\\usepackage{hyperref}"
			     ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}")
			     ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
			    ("report" "\\documentclass[11pt,letterpaper]{report}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{graphicx}\n\\usepackage{hyperref}"
			     ("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}") ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}")
			     ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
			    ("book" "\\documentclass[11pt,letterpaper]{book}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{graphicx}\n\\usepackage{hyperref}"
			     ("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}") ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}")
			     ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
			    )
 org-publish-project-alist '(("norang-org" :base-directory "~/git/www.norang.ca" :publishing-directory "/ssh:www-data@www:~/www.norang.ca/htdocs" :recursive t :section_numbers nil :table-of-contents nil
			      :base-extension "org" :publishing-function org-publish-org-to-html :style-include-default nil :section-numbers nil :table-of-contents nil :style-include-default nil :style
			      "<link rel=\"stylesheet\" href=\"norang.css\" type=\"text/css\" />" :author-info nil :creator-info nil)
			     ("norang-extra" :base-directory "~/git/www.norang.ca/" :publishing-directory "/ssh:www-data@www:~/www.norang.ca/htdocs" :base-extension "css\\|pdf\\|png\\|jpg\\|gif"
			      :publishing-function org-publish-attachment :recursive t :author nil)
			     ("norang" :components ("norang-org" "norang-extra"))
			     ("doc-org" :base-directory "~/git/doc.norang.ca/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :recursive t :section_numbers nil :table-of-contents nil
			      :base-extension "org" :publishing-function (org-publish-org-to-html org-publish-org-to-org) :plain-source t :htmlized-source t :style-include-default nil :style
			      "<link rel=\"stylesheet\" href=\"/org.css\" type=\"text/css\" />" :author-info nil :creator-info nil)
			     ("doc-extra" :base-directory "~/git/doc.norang.ca/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :base-extension "css\\|pdf\\|png\\|jpg\\|gif"
			      :publishing-function org-publish-attachment :recursive t :author nil)
			     ("org" :base-directory "~/git/org/" :publishing-directory "/ssh:www-data@www:~/org" :recursive t :section_numbers nil :table-of-contents nil :base-extension "org"
			      :publishing-function org-publish-org-to-html :style-include-default nil :style "<link rel=\"stylesheet\" href=\"/org.css\" type=\"text/css\" />" :author-info nil :creator-info
			      nil)
			     ("doc-org-mode" :base-directory "~/git/org-mode-doc/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :recursive t :section_numbers nil :table-of-contents nil
			      :base-extension "org" :publishing-function (org-publish-org-to-html org-publish-org-to-org) :plain-source t :htmlized-source t :style-include-default nil :style
			      "<link rel=\"stylesheet\" href=\"/org.css\" type=\"text/css\" />" :author-info nil :creator-info nil)
			     ("doc-org-mode-extra" :base-directory "~/git/org-mode-doc/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :base-extension "css\\|pdf\\|png\\|jpg\\|gif"
			      :publishing-function org-publish-attachment :recursive t :author nil)
			     ("doc" :components ("doc-org" "doc-extra" "doc-org-mode" "doc-org-mode-extra")))
 org-agenda-tags-todo-honor-ignore-options t
 org-use-speed-commands t
 org-mode-hook '(org-clock-load
		 (lambda nil (make-variable-buffer-local (quote yas/trigger-key)) (org-set-local (quote yas/trigger-key) [tab]) (define-key yas/keymap [tab] (quote yas/next-field-group)) (flyspell-mode 1))
		 #[nil "\300\301\302\303\304$\207" [add-hook before-save-hook org-encrypt-entries nil t] 5]
		 #[nil "\300\301\302\303\304$\207" [org-add-hook change-major-mode-hook org-show-block-all append local] 5])
 org-clock-out-remove-zero-time-clocks t
 org-cycle-include-plain-lists nil
 org-font-lock-hook '(org-inlinetask-fontify)
 org-agenda-ndays 1
 org-global-properties '(("Effort_ALL" . "0:10 0:30 1:00 2:00 4:00 6:00 8:00 12:00 16:00 24:00 40:00") ("STYLE_ALL" . "habit"))
 org-refile-targets '((nil :maxlevel . 5) (org-agenda-files :maxlevel . 5))
 org-ctrl-c-ctrl-c-hook '(org-babel-lob-execute-maybe org-babel-execute-src-block-maybe)
 org-return-follows-link t
 org-confirm-elisp-link-function 'yes-or-no-p
 org-refile-use-outline-path 'file
 org-fast-tag-selection-single-key 'expert
 org-log-into-drawer t
 org-agenda-mode-hook '((lambda nil (hl-line-mode 1)))
 org-agenda-start-on-weekday nil
 org-agenda-todo-ignore-with-date t
 org-export-interblocks '((lob org-babel-exp-lob-one-liners) (src org-babel-exp-inline-src-blocks))
 org-enforce-todo-dependencies t
 org-agenda-skip-deadline-if-done t
 org-show-following-heading t
 org-insert-heading-respect-content t
 org-crypt-key "F0B66B40"
 org-occur-hook '(org-first-headline-recenter)
 org-from-is-user-regexp "\\<Bernt Hansen\\>"
 org-yank-adjusted-subtrees t
 org-drawers '("PROPERTIES" "LOGBOOK" "CLOCK")
 org-agenda-log-mode-items '(clock)
 org-treat-S-cursor-todo-selection-as-state-change nil
 org-export-docbook-xsl-fo-proc-command "fop %s %s"
 org-agenda-todo-ignore-deadlines t
 org-modules '(org-bbdb org-bibtex org-crypt org-gnus org-id org-info org-jsinfo org-habit org-inlinetask org-irc org-mew org-mhe org-protocol org-rmail org-vm org-wl org-w3m)
 org-columns-default-format "%80ITEM(Task) %10Effort(Estimated Effort){:} %10CLOCKSUM"
 org-agenda-auto-exclude-function 'bh/org-auto-exclude-function
 org-remember-templates '(("todo" 116 "* TODO %?\n  %U\n  %a" nil bottom nil) ("note" 110 "* %?                                        :NOTE:\n  %U\n  %a" nil bottom nil)
			  ("phone" 112 "* PHONE %:name - %:company -                :PHONE:\n  Contact Info: %a\n  %U\n  :CLOCK-IN:\n  %?" nil bottom nil)
			  ("Apply to Job" 106 "* TODO jobtask%?                            :NEXT:inet:\n  :PROPERTIES:\n  :Effort: 0:30\n  :END:\n  %U\n  jobdetails" "~/git/org/jobs.org" "TODO Job Search"
			   nil)
			  ("appointment" 97 "* %?\n  %U" "~/git/org/todo.org" "Appointments" nil)
			  ("Search job site" 115 "* TODO Search job site%!                   :NEXT:inet:\n  %U\n  :PROPERTIES:\n  :Effort: 0:10\n  :END:\n  %a  " "~/git/org/jobs.org" "Search Jobs" nil)
			  ("org-protocol" 119 "* TODO Review %c%!  :NEXT:\n  %U\n  :PROPERTIES:\n  :Effort: 0:10\n  :END:" nil bottom nil))
 org-export-preprocess-after-tree-selection-hook '(org-inlinetask-export-handler)
 org-export-docbook-final-hook '(org-inlinetask-remove-terminator)
 org-export-latex-final-hook '(org-inlinetask-remove-terminator)
 org-lowest-priority 71
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-clock-idle-time 1
 org-export-blocks '((src org-babel-exp-src-blocks nil) (comment org-export-blocks-format-comment t) (ditaa org-export-blocks-format-ditaa nil) (dot org-export-blocks-format-dot nil))
 )

Re: Org-mode version 6.32trans (release_6.32b.127.g471c2); Clocking in with an open clock fails

[Bernt Hansen]

Bernt Hansen <bernt@norang.ca> writes:

> Remember to cover the basics, that is, what you expected to happen and
> what in fact did happen.  You don't know how to make a good report?  See
>
>      http://orgmode.org/manual/Feedback.html#Feedback
>
> Your bug report will be posted to the Org-mode mailing list.
> ------------------------------------------------------------------------
>
> If there is an open clocking task and you move to another task and try
> to clock that in org-mode used to close out the clocking task, and
> clock in the new task.
>
> This no longer works.  Now it closes out the clocking task and clocks
> it right back in again.
>
>
> Emacs  : GNU Emacs 22.2.1 (i486-pc-linux-gnu, GTK+ Version 2.12.11)
>  of 2008-11-09 on raven, modified by Debian
> Package: Org-mode version 6.32trans (release_6.32b.127.g471c2)

Reverting this commit seems to fix it
7c0a16e (Use with-current-buffer instead of save-excursion set-buffer where possible, 2009-11-05)

-Bernt