[O] Bug: Log mode shows the wrong clock note [9.0.4 (9.0.4-elpaplus @ /home/jorge/.emacs.d/elpa/org-plus-contrib-20170124/)]

[Jorge Morais Neto]

Hi.

In log mode, after each clock line the agenda should show the corresponding
clock note.  Instead, it shows the clock note for the previous clock line.
For example, with the entry

      *** Espe2016 exp
      :PROPERTIES:
      :CREATED:  [2017-01-27 Sex 16:50]
      :CATEGORY: ponto exp
      :END:
      :LOGBOOK:
      CLOCK: [2017-02-03 Sex 08:16]--[2017-02-03 Sex 08:28] =>  0:12
      - Saindo agora para o almoço.
      CLOCK: [2017-01-27 Sex 10:28]--[2017-01-27 Sex 11:13] =>  0:45
      CLOCK: [2017-01-26 Qui 13:45]--[2017-01-26 Qui 14:44] =>  0:59
      :END:

The agenda for [2017-02-03 Sex] shows:

      ponto exp:   8:16- 8:28 Clocked:   (0:12) Espe2016 exp - Saindo
agora para o almoço.

(I trimmed some irrelevant tags)  Note that the 08:16-08:28 clock line is
followed by the note corresponding to the /previous/ clock line.

Regards

Emacs  : GNU Emacs 25.1.91.1 (x86_64-unknown-linux-gnu, GTK+ Version 3.18.9)
 of 2016-12-31
Package: Org mode version 9.0.4 (9.0.4-elpaplus @
/home/jorge/.emacs.d/elpa/org-plus-contrib-20170124/)

current state:
==============
(setq
 org-capture-prepare-finalize-hook '(J-insert-created-and-id-all)
 org-clocktable-defaults '(:maxlevel 2 :lang "en" :scope file :block nil
  :wstart 1 :mstart 1 :tstart nil :tend nil :step nil
  :stepskip0 nil :fileskip0 nil :tags nil :emphasize
  nil :link nil :narrow 40! :indent t :formula nil
  :timestamp nil :level nil :tcolumns nil :formatter nil)
 org-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
 org-log-note-clock-out t
 org-footnote-section "Notas de rodapé"
 org-icalendar-combined-agenda-file "~/org/org.ics"
 org-insert-heading-hook '(org-expiry-insert-created)
 org-habit-preceding-days 0
 org-speed-command-hook '(org-speed-command-default-hook
org-babel-speed-command-hook)
 org-special-ctrl-k t
 org-agenda-entry-text-maxlines 3
 org-occur-hook '(org-first-headline-recenter)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-priority-faces '((65 :slant italic :weight bold :foreground "red"
      :background "black")
     (66 :slant italic :weight bold :foreground "red"
      :background "cyan")
     (67 :slant italic :weight bold :foreground "red") (68
:slant italic :weight bold) (69 . italic)
     (70 . default) (71 :foreground "gold") (72 :foreground "yellow"))
 org-latex-format-inlinetask-function
'org-latex-format-inlinetask-default-function
 org-clock-mode-line-total 'current
 org-confirm-shell-link-function 'yes-or-no-p
 org-id-link-to-org-use-id 'create-if-interactive
 org-finalize-agenda-hook '(J-org-agenda-to-appt-refresh)
 org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
 org-icalendar-use-deadline '(event-if-not-todo event-if-todo todo-due)
 org-export-default-language "pt_BR"
 org-agenda-sticky t
 org-list-allow-alphabetical t
 org-email-link-description-format "Email %c: %s"
 org-special-ctrl-a/e t
 org-ascii-text-width 77
 org-agenda-custom-commands '(("J" "Now, agenda and TODOs (week)"
      ((tags "now" nil)
(agenda "" ((org-agenda-span (quote week))
   (org-agenda-time-grid (quote (nil nil nil)))))
(tags-todo "address@hidden"
((org-agenda-todo-ignore-deadlines (quote
    all)) (org-agenda-todo-ignore-scheduled (quote all))
 (org-agenda-todo-ignore-timestamp
  org-deadline-warning-days))
)
)
      ((org-agenda-compact-blocks t)
(org-agenda-tags-todo-honor-ignore-options t)
(org-agenda-tag-filter-preset (quote
      ("-hide"))))
      )
     ("j" "Now, agenda and TODOs (two days)"
      ((tags "now" nil) (agenda "" ((org-agenda-span
     2) (org-agenda-time-grid (quote (nil nil nil)))))
(tags-todo "address@hidden"
((org-agenda-todo-ignore-deadlines (quote
    all)) (org-agenda-todo-ignore-scheduled (quote all))
 (org-agenda-todo-ignore-timestamp
  org-deadline-warning-days))
)
)
      ((org-agenda-compact-blocks t)
(org-agenda-tags-todo-honor-ignore-options t)
(org-agenda-tag-filter-preset (quote
      ("-hide"))))
      )
     ("n" "Entradas a memorizar" tags "mem-hide"
      ((org-agenda-hide-tags-regexp
"\\`\\(mem\\|not_ical\\|h\\|gagá\\)\\'")
(org-agenda-start-with-follow-mode t))
      )
     )
 org-latex-format-headline-function 'org-latex-format-headline-default-function
 org-expiry-handler-function 'org-toggle-archive-tag
 org-expiry-inactive-timestamps t
 org-todo-keyword-faces '(("DGTD" . "#00FF10") ("FBCK_" . "#A0A0FF") ("FBCK"
     . "blue") ("FIX_COMM" . "#00FF10")
 ("CNTN_" . "#FFA0A0"))
 org-habit-following-days 0
 org-icalendar-use-scheduled '(event-if-todo todo-start)
 org-startup-indented t
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ CONTENTS)"]
 org-odt-format-headline-function 'org-odt-format-headline-default-function
 org-clock-x11idle-program-name "xprintidle"
 org-from-is-user-regexp
"\\<address@hidden>\\|\\<Jorge Peixoto de Morais
Neto\\>"
 org-use-tag-inheritance "[^_]$"
 org-icalendar-timezone "Brazil/East"
 org-src-mode-hook '(org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-babel-pre-tangle-hook '(save-buffer)
 org-global-properties '(("Effort_ALL" . "0:02 0:05 0:15 0:30 1:00
2:00 4:00 8:00 16:00 40:00 80:00 160:00"))
 org-log-redeadline 'note
 org-mobile-allpriorities "A B C D E F G H"
 org-trigger-hook '(org-depend-trigger-todo)
 org-mobile-force-id-on-agenda-items nil
 org-mode-hook '(J-org-init
#[0 "\300\301\302\303\304$\207" [add-hook
 change-major-mode-hook org-show-block-all append local] 5]
#[0 "\300\301\302\303\304$\207" [add-hook
 change-major-mode-hook org-babel-show-result-all append local] 5]
org-babel-result-hide-spec org-babel-hide-all-hashes org-eldoc-load)
 org-refile-targets '((org-agenda-files :tag . "target_")
(org-agenda-files :maxlevel . 3))
 org-outline-path-complete-in-steps nil
 org-archive-hook '(org-attach-archive-delete-maybe)
 org-use-speed-commands t
 org-agenda-sorting-strategy '((agenda habit-down time-up priority-down
category-keep) (todo priority-down category-keep)
      (tags todo-state-down priority-down category-keep) (search category-keep))
 org-ascii-format-drawer-function #[771 " \207" [] 4 "\n\n(fn NAME
CONTENTS WIDTH)"]
 org-odt-format-inlinetask-function 'org-odt-format-inlinetask-default-function
 org-refile-use-outline-path t
 org-enforce-todo-dependencies 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-agenda-hide-tags-regexp
"\\`\\(@WO\\|not_ical\\|blocked\\|organizado\\|h\\)\\'"
 org-load-hook '((lambda nil (require (quote J-org))))
 org-agenda-start-with-log-mode t
 org-agenda-tags-column -91
 org-log-refile 'time
 org-icalendar-exclude-tags '("not_ical")
 org-agenda-finalize-hook '(J-org-agenda-to-appt-refresh)
 org-lowest-priority 72
 org-log-reschedule 'note
 org-use-property-inheritance '("APPT_WARNTIME")
 org-todo-keywords '((sequence "TODO(t@)" "FBCK_(F@)" "CNTN_(O@)" "FBCK(f@)"
     "CNTN(o@)" "|" "DONE(d@)")
    (sequence "|" "CNCD(c@)") (sequence "|" "DGTD(e@)") (sequence "|"
"FIX_COMM(i@)"))
 org-modules '(org-bbdb org-bibtex org-docview org-gnus org-habit org-id
      org-info org-irc org-mhe org-rmail org-w3m org-depend
      org-expiry)
 org-fast-tag-selection-single-key t
 org-link-abbrev-alist '(("google" . "https://www.google.com/search?q=";))
 org-catch-invisible-edits 'error
 org-confirm-elisp-link-function 'yes-or-no-p
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-expiry-wait "+10y"
 org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-default-priority 70
 org-blocker-hook '(org-depend-block-todo
org-block-todo-from-children-or-siblings-or-parent)
 org-icalendar-alarm-time 20
 org-html-format-headline-function 'org-html-format-headline-default-function
 org-link-parameters '(("w3m" :store org-w3m-store-link) ("rmail" :follow
 org-rmail-open :store org-rmail-store-link)
      ("mhe" :follow org-mhe-open :store org-mhe-store-link)
      ("irc" :follow org-irc-visit :store org-irc-store-link)
      ("info" :follow org-info-open :export org-info-export
:store org-info-store-link)
      ("id" :follow org-id-open) ("gnus" :follow org-gnus-open
  :store org-gnus-store-link)
      ("docview" :follow org-docview-open :export
org-docview-export :store org-docview-store-link)
      ("bibtex" :follow org-bibtex-open :store
org-bibtex-store-link)
      ("bbdb" :follow org-bbdb-open :export org-bbdb-export
:complete org-bbdb-complete-link :store
org-bbdb-store-link)
      ("file+sys") ("file+emacs") ("doi" :follow
   org--open-doi-link) ("elisp" :follow org--open-elisp-link)
      ("file" :complete org-file-complete-link)
      ("ftp" :follow (lambda (path) (browse-url (concat "ftp:"
 path)))) ("help" :follow org--open-help-link)
      ("http" :follow (lambda (path) (browse-url (concat
  "http:" path))))
      ("https" :follow (lambda (path) (browse-url (concat
   "https:" path))))
      ("mailto" :follow (lambda (path) (browse-url (concat
    "mailto:"; path))))
      ("message" :follow (lambda (path) (browse-url (concat
     "message:" path))))
      ("news" :follow (lambda (path) (browse-url (concat
  "news:"; path))))
      ("shell" :follow org--open-shell-link))
 org-mobile-directory "~/Dropbox/MobileOrg"
 org-export-with-smart-quotes t
 org-tag-faces '(("now" . "red") ("MR" . "#C00000") ("h" . "#C0C0C0")
("r" . "#900000") ("va_" . "red"))
 org-html-format-inlinetask-function
'org-html-format-inlinetask-default-function
 org-habit-graph-column 90
 org-agenda-files '("~/org/agenda/"
"~/Dropbox/wanessa_e_jorge/administração_clínica/derma-prime.org")
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-mobile-inbox-for-pull "~/org/agenda/from-mobile.org"
 org-tag-alist '(("va_" . 97) ("carreira") (:startgroup) ("@casa" . 99)
(:grouptags) ("@CASAO" . 67) (:endgroup)
("target_" . 101) ("dstrç") ("gagá") (:startgroup) ("@gyn"
    . 103) (:grouptags) ("@GYNO" . 71) (:endgroup)
(:startgroup) ("hide" . 104) (:grouptags) ("hide_" . 72)
(:endgroup) ("hr_cm" . 111) ("Igr" . 73)
("cai_muito" . 109) ("mem" . 77) (:startgroup) ("r" . 114)
(:grouptags) ("MR" . 82) (:endgroup) ("now" . 110)
("h" . 79) (:startgrouptag) ("d" . 100) (:grouptags)
("{\\`pd}") (:endgrouptag) ("política") ("saúde" . 115)
("social" . 83) ("mtn" . 116) ("TIC" . 84) (:startgroup) ("@w"
  . 119) (:grouptags) ("@w_") ("@WO" . 87)
(:endgroup))
 )

-- 
• I am Brazilian.  I hope my English is correct and I welcome corrections.
• Please adopt free formats like PDF, ODF, Org, LaTeX, Opus, WebM and 7z.
• Free (as in free speech) software for Android: https://f-droid.org/