Bug: "before first headline" error when adding clock out note [9.4.6 (9.4.6-dist @ /home/wenlong/org-9.4.6/lisp/)]

[Dave Dai <wenlong.dai@gmail.com>]

------------------------------------------------------------------------

Steps to reproduce the bug:
1. download orgmode 9.4.6 from https://orgmode.org/org-9.4.6.tar.gz and
extract to home folder
2. start clean emacs instance with 'emacs -Q'
3. evaluate (add-to-list 'load-path "~/org-9.4.6/lisp")
4. create a new org file, create a new heading and clock in
5. evaluate (setq org-log-note-clock-out t)
6. clock out. Once the "*org note*" buffer appears, the error message
"before first headline" will occur.

I could reproduce this with both emacs 27 and 28.
The org version bundled with emacs seems to work fine. Only the latest
version from git repo or from the website has the problem.  


Emacs  : GNU Emacs 27.1 (build 2, x86_64-pc-linux-gnu, GTK+ Version 3.24.20)
 of 2021-05-24
Package: Org mode version 9.4.6 (9.4.6-dist @ /home/wenlong/org-9.4.6/lisp/)

current state:
==============
(setq
 org-src-mode-hook '(org-src-babel-configure-edit-buffer
		     org-src-mode-configure-edit-buffer)
 org-link-shell-confirm-function 'yes-or-no-p
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-log-note-clock-out t
 org-reveal-start-hook '(org-decrypt-entry)
 org-mode-hook '((closure
		  (org--rds reftex-docstruct-symbol
		   org-element-greater-elements org-clock-history
		   org-agenda-current-date org-with-time org-defdecode org-def
		   org-read-date-inactive org-ans2 org-ans1
		   org-columns-current-fmt-compiled org-clock-current-task
		   org-clock-effort org-agenda-skip-function
		   org-agenda-skip-comment-trees org-agenda-archives-mode
		   org-end-time-was-given org-time-was-given
		   org-log-note-extra org-log-note-purpose
		   org-log-post-message org-last-inserted-timestamp
		   org-last-changed-timestamp
		   org-entry-property-inherited-from org-blocked-by-checkboxes
		   org-state org-agenda-headline-snapshot-before-repeat
		   org-agenda-start-on-weekday org-agenda-buffer-tmp-name
		   org-priority-regexp org-mode-abbrev-table
		   org-mode-syntax-table buffer-face-mode-face org-tbl-menu
		   org-org-menu org-struct-menu org-entities org-last-state
		   org-id-track-globally org-clock-start-time texmathp-why
		   remember-data-file
		   org-agenda-tags-todo-honor-ignore-options
		   iswitchb-temp-buflist calc-embedded-open-mode
		   calc-embedded-open-formula calc-embedded-close-formula
		   align-mode-rules-list org-emphasis-alist
		   org-emphasis-regexp-components
		   org-export-registered-backends org-modules
		   org-babel-load-languages org-id-overriding-file-name
		   org-indent-indentation-per-level
		   org-element-paragraph-separate ffap-url-regexp
		   org-inlinetask-min-level t)
		  nil
		  (add-hook 'change-major-mode-hook 'org-show-all 'append
		   'local)
		  )
		 (closure
		  (org-src-window-setup *this*
		   org-babel-confirm-evaluate-answer-no
		   org-babel-tangle-uncomment-comments
		   org-src-preserve-indentation org-src-lang-modes
		   org-edit-src-content-indentation org-babel-library-of-babel
		   t)
		  nil
		  (add-hook 'change-major-mode-hook 'org-babel-show-result-all
		   'append 'local)
		  )
		 org-babel-result-hide-spec org-babel-hide-all-hashes)
 org-archive-hook '(org-attach-archive-delete-maybe)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-bibtex-headline-format-function '(closure
				       (org-id-locations
					org-agenda-search-view-always-boolean
					org-agenda-overriding-header t)
				       (entry) (cdr (assq :title entry)))
 org-babel-pre-tangle-hook '(save-buffer)
 org-tab-first-hook '(org-babel-hide-result-toggle-maybe
		      org-babel-header-arg-expand)
 org-agenda-loop-over-headlines-in-active-region nil
 org-occur-hook '(org-first-headline-recenter)
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
		  org-cycle-show-empty-lines
		  org-optimize-window-after-visibility-change)
 org-speed-command-hook '(org-speed-command-activate
			  org-babel-speed-command-activate)
 org-export-before-parsing-hook '(org-attach-expand-links)
 org-confirm-shell-link-function 'yes-or-no-p
 org-link-parameters '(("attachment" :follow org-attach-follow :complete
			org-attach-complete-link)
		       ("id" :follow org-id-open)
		       ("eww" :follow org-eww-open :store org-eww-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
			:export org-irc-export)
		       ("info" :follow org-info-open :export org-info-export
			:store org-info-store-link)
		       ("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)
		       ("w3m" :store org-w3m-store-link) ("file+sys")
		       ("file+emacs") ("shell" :follow org-link--open-shell)
		       ("news" :follow
			(closure
			 ((scheme . "news") (--dolist-tail--) org-ts-regexp
			  org-time-stamp-formats org-src-source-file-name
			  org-outline-regexp-bol org-inhibit-startup
			  org-id-link-to-org-use-id org-highlight-links
			  org-comment-string org-agenda-buffer-name
			  clean-buffer-list-kill-buffer-names t)
			 (url arg) (browse-url (concat scheme ":" url) arg))
			)
		       ("mailto" :follow
			(closure
			 ((scheme . "mailto") (--dolist-tail--) org-ts-regexp
			  org-time-stamp-formats org-src-source-file-name
			  org-outline-regexp-bol org-inhibit-startup
			  org-id-link-to-org-use-id org-highlight-links
			  org-comment-string org-agenda-buffer-name
			  clean-buffer-list-kill-buffer-names t)
			 (url arg) (browse-url (concat scheme ":" url) arg))
			)
		       ("https" :follow
			(closure
			 ((scheme . "https") (--dolist-tail--) org-ts-regexp
			  org-time-stamp-formats org-src-source-file-name
			  org-outline-regexp-bol org-inhibit-startup
			  org-id-link-to-org-use-id org-highlight-links
			  org-comment-string org-agenda-buffer-name
			  clean-buffer-list-kill-buffer-names t)
			 (url arg) (browse-url (concat scheme ":" url) arg))
			)
		       ("http" :follow
			(closure
			 ((scheme . "http") (--dolist-tail--) org-ts-regexp
			  org-time-stamp-formats org-src-source-file-name
			  org-outline-regexp-bol org-inhibit-startup
			  org-id-link-to-org-use-id org-highlight-links
			  org-comment-string org-agenda-buffer-name
			  clean-buffer-list-kill-buffer-names t)
			 (url arg) (browse-url (concat scheme ":" url) arg))
			)
		       ("ftp" :follow
			(closure
			 ((scheme . "ftp") (--dolist-tail--) org-ts-regexp
			  org-time-stamp-formats org-src-source-file-name
			  org-outline-regexp-bol org-inhibit-startup
			  org-id-link-to-org-use-id org-highlight-links
			  org-comment-string org-agenda-buffer-name
			  clean-buffer-list-kill-buffer-names t)
			 (url arg) (browse-url (concat scheme ":" url) arg))
			)
		       ("help" :follow org-link--open-help)
		       ("file" :complete org-link-complete-file)
		       ("elisp" :follow org-link--open-elisp)
		       ("doi" :follow org-link--open-doi))
 org-link-elisp-confirm-function 'yes-or-no-p
 )