emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* [BUG] unregistered buffer warning when saving buffer in org src block [9.6 (9.6-??-dbd192bbc @ /Users/sfq/.my.emacs.d/doom-emacs/.emacs.d/.local/straight/build-27.2/org/)]
@ 2021-11-07  3:52 时芳泉
  2021-11-09  2:48 ` Ihor Radchenko
  0 siblings, 1 reply; 2+ messages in thread
From: 时芳泉 @ 2021-11-07  3:52 UTC (permalink / raw)
  To: emacs-orgmode



This warning appears when saving a org mode buffer if the poly-org mode is enabled and the cursor is in a source block.




Warning (emacs): org-element--cache: Unregistered buffer modifications detected. Resetting.
If this warning appears regularly, please report it to Org mode mailing list (M-x org-submit-bug-report).
The buffer is:  Building Abstractions with Data.org
Current command: save-buffer
Backtrace:
"  backtrace-to-string(nil)
  org-element--cache-sync(#<buffer  Building Abstractions with Data.org> 1220)
  org-element-at-point()
  org-src-coderef-format((src-block (:language \"racket\" :switches nil :parameters nil :begin 4 :end 43 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value \"(version) \\n\" :post-blank 0 :post-affiliated 4 :mode planning :granularity element :parent (section (:begin 4 :end 43 :contents-begin 4 :contents-end 43 :robust-begin 4 :robust-end 41 :post-blank 0 :post-affiliated 4 :mode section :granularity element :parent (headline (:raw-value \"\" :begin 1 :end 43 :pre-blank 0 :contents-begin 4 :contents-end 43 :robust-begin 6 :robust-end 41 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1 :title \"\")))))))
  org-babel-get-src-block-info(light (src-block (:language \"racket\" :switches nil :parameters nil :begin 4 :end 43 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value \"(version) \\n\" :post-blank 0 :post-affiliated 4 :mode planning :granularity element :parent (section (:begin 4 :end 43 :contents-begin 4 :contents-end 43 :robust-begin 4 :robust-end 41 :post-blank 0 :post-affiliated 4 :mode section :granularity element :parent (headline (:raw-value \"\" :begin 1 :end 43 :pre-blank 0 :contents-begin 4 :contents-end 43 :robust-begin 6 :robust-end 41 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1 :title \"\")))))))
  xenops-src-parse-at-point()
  funcall(xenops-src-parse-at-point)
  xenops-util-first-result(funcall (xenops-math-parse-block-element-at-point xenops-math-parse-inline-element-at-point xenops-math-parse-table-at-point xenops-image-parse-at-point xenops-footnote-parse-at-point xenops-minted-parse-at-point xenops-src-parse-at-point))
  xenops-parse-any-element-at-point()
  xenops-apply-handlers-at-point((xenops-math-render xenops-image-render xenops-footnote-render) nil)
  xenops-apply-operations-at-point((render))
  xenops-render-at-point()
  funcall(xenops-render-at-point)
  (condition-case e (funcall hook) ((debug error) (signal 'doom-hook-error (list hook e))))
  doom-run-hook(xenops-render-at-point)
  run-hook-wrapped(doom-run-hook xenops-render-at-point)
  (condition-case e (run-hook-wrapped hook #'doom-run-hook) ((debug doom-hook-error) (if debug-on-error nil (lwarn hook :error \"Error running hook %S because: %s\" (if (symbolp (car (cdr e))) (symbol-name (car (cdr e))) (car (cdr e))) (car (cdr (cdr e))))) (signal 'doom-hook-error (cons hook (cdr e)))))
  (let ((hook (car --dolist-tail--))) (condition-case e (run-hook-wrapped hook #'doom-run-hook) ((debug doom-hook-error) (if debug-on-error nil (lwarn hook :error \"Error running hook %S because: %s\" (if (symbolp (car ...)) (symbol-name (car ...)) (car (cdr e))) (car (cdr (cdr e))))) (signal 'doom-hook-error (cons hook (cdr e))))) (setq --dolist-tail-- (cdr --dolist-tail--)))
  (while --dolist-tail-- (let ((hook (car --dolist-tail--))) (condition-case e (run-hook-wrapped hook #'doom-run-hook) ((debug doom-hook-error) (if debug-on-error nil (lwarn hook :error \"Error running hook %S because: %s\" (if (symbolp ...) (symbol-name ...) (car ...)) (car (cdr ...)))) (signal 'doom-hook-error (cons hook (cdr e))))) (setq --dolist-tail-- (cdr --dolist-tail--))))
  (let ((--dolist-tail-- hooks)) (while --dolist-tail-- (let ((hook (car --dolist-tail--))) (condition-case e (run-hook-wrapped hook #'doom-run-hook) ((debug doom-hook-error) (if debug-on-error nil (lwarn hook :error \"Error running hook %S because: %s\" (if ... ... ...) (car ...))) (signal 'doom-hook-error (cons hook (cdr e))))) (setq --dolist-tail-- (cdr --dolist-tail--)))))
  doom-run-hooks(before-save-hook)
  apply(doom-run-hooks before-save-hook)
  run-hooks(before-save-hook)
  #f(compiled-function (&optional called-interactively) \"Save the current buffer in its visited file, if it has been modified.\\n\\nThe hooks `write-contents-functions', `local-write-file-hooks'\\nand `write-file-functions' get a chance to do the job of saving;\\nif they do not, then the buffer is saved in the visited file in\\nthe usual way.\\n\\nBefore and after saving the buffer, this function runs\\n`before-save-hook' and `after-save-hook', respectively.\" (interactive '(called-interactively)) #<bytecode 0x44c0e22f>)(t)
  apply(#f(compiled-function (&optional called-interactively) \"Save the current buffer in its visited file, if it has been modified.\\n\\nThe hooks `write-contents-functions', `local-write-file-hooks'\\nand `write-file-functions' get a chance to do the job of saving;\\nif they do not, then the buffer is saved in the visited file in\\nthe usual way.\\n\\nBefore and after saving the buffer, this function runs\\n`before-save-hook' and `after-save-hook', respectively.\" (interactive '(called-interactively)) #<bytecode 0x44c0e22f>) t)
  polymode-with-current-base-buffer(#f(compiled-function (&optional called-interactively) \"Save the current buffer in its visited file, if it has been modified.\\n\\nThe hooks `write-contents-functions', `local-write-file-hooks'\\nand `write-file-functions' get a chance to do the job of saving;\\nif they do not, then the buffer is saved in the visited file in\\nthe usual way.\\n\\nBefore and after saving the buffer, this function runs\\n`before-save-hook' and `after-save-hook', respectively.\" (interactive '(called-interactively)) #<bytecode 0x44c0e22f>) t)
  apply(polymode-with-current-base-buffer #f(compiled-function (&optional called-interactively) \"Save the current buffer in its visited file, if it has been modified.\\n\\nThe hooks `write-contents-functions', `local-write-file-hooks'\\nand `write-file-functions' get a chance to do the job of saving;\\nif they do not, then the buffer is saved in the visited file in\\nthe usual way.\\n\\nBefore and after saving the buffer, this function runs\\n`before-save-hook' and `after-save-hook', respectively.\" (interactive '(called-interactively)) #<bytecode 0x44c0e22f>) t)
  basic-save-buffer(t)
  save-buffer(1)
  funcall-interactively(save-buffer 1)
  call-interactively(save-buffer nil nil)
  command-execute(save-buffer)
"


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



Emacs  : GNU Emacs 27.2 (build 1, x86_64-apple-darwin20.6.0, Carbon Version 164 AppKit 2022.6)
of 2021-09-19
Package: Org mode version 9.6 (9.6-??-dbd192bbc @ /Users/sfq/.my.emacs.d/doom-emacs/.emacs.d/.local/straight/build-27.2/org/)

current state:
==============
(setq
org-roam-db-location "/Users/sfq/.emacs.d/.local/etc/org-roam.db"
org-src-mode-hook '(org-src-babel-configure-edit-buffer
                     org-src-mode-configure-edit-buffer
                     doom-modeline-set-org-src-modeline)
org-fontify-whole-heading-line t
org-capture-prepare-finalize-hook '(doct-run-prepare-finalize
                                     org-roam-capture--install-finalize-h)
org-link-shell-confirm-function 'yes-or-no-p
org-mode-local-vars-hook '(+org-init-gifs-h eldoc-mode)
org-babel-after-execute-hook '(org-redisplay-inline-images)
org-insert-heading-respect-content t
org-after-refile-insert-hook '(save-buffer)
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-after-todo-statistics-hook '(org-summary-todo)
org-follow-link-hook '(+nav-flash-delayed-blink-cursor-h)
org-roam-db-node-include-function #[0 "\300\207" [t] 1]
org-refile-targets '((nil :maxlevel . 3) (org-agenda-files :maxlevel . 3))
org-enforce-todo-dependencies t
org-roam-mode-hook '(+org-roam-detach-magit-section-mode-map-h
                      turn-on-visual-line-mode)
org-edit-src-content-indentation 0
org-special-ctrl-a/e t
org-imenu-depth 6
org-persist-before-write-hook '(org-element--cache-persist-before-write)
org-agenda-files '("/Users/sfq/iCloudDrive/beorg"
                    "/Users/sfq/iCloudDrive/notes/org/agenda/")
org-tag-alist '(("life" . 108) ("paper" . 112) ("work" . 119))
org-reveal-start-hook '(org-decrypt-entry)
org-modules '(ol-bibtex)
org-startup-folded 'show2levels
org-blocker-hook '(org-block-todo-from-checkboxes
                    org-block-todo-from-children-or-siblings-or-parent)
org-roam-file-exclude-regexp "\\.org\\.gpg"
org-mode-hook '(er/add-org-mode-expansions +lookup--init-org-mode-handlers-h
                 (closure ((hook . org-mode-hook) (--dolist-tail--) t) (&rest _)
                  (add-hook 'before-save-hook 'org-encrypt-entries nil t))
                 #[0 "\300\301\302\303\304$\207"
                   [add-hook change-major-mode-hook org-show-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
                 #[0 "\301\211\x10\207" [imenu-create-index-function org-imenu-get-tree]
                   2]
                 laas-mode ass-activate-for-major-mode xenops-mode
                 doom-disable-show-paren-mode-h
                 doom-disable-show-trailing-whitespace-h
                 +org-enable-auto-reformat-tables-h +org-enable-auto-update-cookies-h
                 +org-make-last-point-visible-h org-fancy-priorities-mode
                 org-superstar-mode evil-org-mode toc-org-enable org-cdlatex-mode
                 flyspell-mode embrace-org-mode-hook org-eldoc-load)
org-clock-persist 'history
org-fancy-priorities-list '("⚑" "⬆" "■")
org-outline-path-complete-in-steps nil
org-archive-hook '(org-attach-archive-delete-maybe)
org-persist-before-read-hook '(org-element--cache-persist-before-read)
org-agenda-finalize-hook '(org-fancy-priorities-create-overlays
                            +org-exclude-agenda-buffers-from-workspace-h
                            +org-defer-mode-in-agenda-buffers-h)
org-clock-history-length 20
org-roam-db-gc-threshold 2305843009213693951
org-journal-mode-hook '(#[0 "\301\b\302\303\304$\207"
                           [org-journal-encrypt-on add-hook
                            org-journal-encryption-hook nil t]
                           5]
                         )
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-metaup-hook '(org-babel-load-in-session-maybe)
org-persist-after-read-hook '(org-element--cache-persist-after-read)
org-bibtex-headline-format-function #[257 "\300\x01\236A\207" [:title] 3 "\n\n(fn ENTRY)"]
org-agenda-deadline-faces '((1.001 . error) (1.0 . org-warning)
                             (0.5 . org-upcoming-deadline)
                             (0.0 . org-upcoming-distant-deadline))
org-crypt-key nil
org-babel-pre-tangle-hook '(save-buffer)
org-file-apps '(("\\.pdf" . "/usr/local/bin/emacsclient -n %s") (remote . emacs)
                 (auto-mode . emacs) (directory . emacs) ("\\.mm\\'" . default)
                 ("\\.x?html?\\'" . default) ("\\.pdf\\'" . default))
org-tab-first-hook '(+org-indent-maybe-h org-babel-hide-result-toggle-maybe
                      org-babel-header-arg-expand +org-clear-babel-results-h)
org-roam-capture-preface-hook '(org-roam-dailies--override-capture-time-h)
org-load-hook '(+org-init-org-directory-h +org-init-appearance-h +org-init-agenda-h
                 +org-init-attachments-h +org-init-babel-h
                 +org-init-babel-lazy-loader-h +org-init-capture-defaults-h
                 +org-init-capture-frame-h +org-init-custom-links-h +org-init-export-h
                 +org-init-habit-h +org-init-hacks-h +org-init-keybinds-h
                 +org-init-popup-rules-h +org-init-protocol-h
                 +org-init-protocol-lazy-loader-h +org-init-smartparens-h
                 +org-init-roam-h)
org-link-abbrev-alist '(("doom-repo" . "https://github.com/hlissner/doom-emacs/%s")
                         ("wolfram" . "https://wolframalpha.com/input/?i=%s")
                         ("wikipedia" . "https://en.wikipedia.org/wiki/%s")
                         ("duckduckgo" . "https://duckduckgo.com/?q=%s")
                         ("gmap" . "https://maps.google.com/maps?q=%s")
                         ("gimages" . "https://google.com/images?q=%s")
                         ("google" . "https://google.com/search?q=")
                         ("youtube" . "https://youtube.com/watch?v=%s")
                         ("github" . "https://github.com/%s"))
org-export-backends '(md ascii html icalendar latex odt)
org-roam-completion-everywhere t
org-highlight-latex-and-related '(native latex script entities)
org-clock-in-resume t
org-superstar-leading-bullet 32
org-attach-store-link-p t
org-archive-subtree-save-file-p t
org-agenda-span 10
org-superstar-todo-bullet-alist '(("TODO" . 9744) ("[ ]" . 9744) ("DONE" . 9745)
                                   ("[X]" . 9745))
org-agenda-loop-over-headlines-in-active-region nil
org-src-lang-modes '(("jupyter-R" . R) ("jupyter-julia" . julia)
                      ("jupyter-python" . python) ("md" . markdown) ("C" . c)
                      ("C++" . c++) ("asymptote" . asy) ("bash" . sh)
                      ("beamer" . latex) ("calc" . fundamental) ("cpp" . c++)
                      ("ditaa" . artist) ("dot" . fundamental) ("elisp" . emacs-lisp)
                      ("ocaml" . tuareg) ("screen" . shell-script) ("shell" . sh)
                      ("sqlite" . sql))
org-src-preserve-indentation t
org-fontify-quote-and-verse-blocks t
org-roam-find-file-hook '(doom--setq-org-id-link-to-org-use-id-for-org-roam-find-file-h org-roam-buffer--setup-redisplay-h org-roam--register-completion-functions-h org-roam--replace-roam-links-on-save-h org-roam-open-id-with-org-roam-db-h org-roam-db-autosync--setup-update-on-save-h +org-roam-open-with-buffer-maybe-h)
org-catch-invisible-edits 'smart
org-occur-hook '(org-first-headline-recenter)
org-agenda-mode-hook '(menu-bar--display-line-numbers-mode-relative
                        +org-habit-resize-graph-h org-fancy-priorities-mode
                        evil-org-agenda-mode)
org-agenda-window-setup 'current-window
org-speed-commands '(("H" . org-shiftmetaleft) ("L" . org-shiftmetaright)
                      ("h" . org-metaleft) ("l" . org-metaright)
                      ("Outline Navigation")
                      ("n" org-speed-move-safe 'org-next-visible-heading)
                      ("p" org-speed-move-safe 'org-previous-visible-heading)
                      ("f" org-speed-move-safe 'org-forward-heading-same-level)
                      ("b" org-speed-move-safe 'org-backward-heading-same-level)
                      ("F" . org-next-block) ("B" . org-previous-block)
                      ("u" org-speed-move-safe 'outline-up-heading) ("j" . org-goto)
                      ("g" org-refile '(4)) ("Outline Visibility") ("c" . org-cycle)
                      ("C" . org-shifttab) (" " . org-display-outline-path)
                      ("s" . org-toggle-narrow-to-subtree) ("k" . org-cut-subtree)
                      ("=" . org-columns) ("Outline Structure Editing")
                      ("U" . org-metaup) ("D" . org-metadown) ("r" . org-metaright)
                      ("l" . org-metaleft) ("R" . org-shiftmetaright)
                      ("L" . org-shiftmetaleft)
                      ("i" progn (forward-char 1)
                       (call-interactively 'org-insert-heading-respect-content))
                      ("^" . org-sort) ("w" . org-refile)
                      ("a" . org-archive-subtree-default-with-confirmation)
                      ("@" . org-mark-subtree) ("#" . org-toggle-comment)
                      ("Clock Commands") ("I" . org-clock-in) ("O" . org-clock-out)
                      ("Meta Data Editing") ("t" . org-todo) ("," org-priority)
                      ("0" org-priority 32) ("1" org-priority 65)
                      ("2" org-priority 66) ("3" org-priority 67)
                      (":" . org-set-tags-command) ("e" . org-set-effort)
                      ("E" . org-inc-effort)
                      ("W" lambda (m) (interactive "sMinutes before warning: ")
                       (org-entry-put (point) "APPT_WARNTIME" m))
                      ("Agenda Views etc") ("v" . org-agenda) ("/" . org-sparse-tree)
                      ("Misc") ("o" . org-open-at-point)
                      ("?" . org-speed-command-help)
                      ("<" org-agenda-set-restriction-lock 'subtree)
                      (">" org-agenda-remove-restriction-lock))
org-enforce-todo-checkbox-dependencies t
org-indirect-buffer-display 'current-window
org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
                  org-cycle-show-empty-lines
                  org-optimize-window-after-visibility-change)
org-todo-keywords '((sequence "TODO(t)" "PROJ(p)" "LOOP(r)" "STRT(s)" "WAIT(w)"
                      "HOLD(h)" "IDEA(i)" "|" "DONE(d)" "KILL(k)")
                     (sequence "[ ](T)" "[-](S)" "[?](W)" "|" "[X](D)")
                     (sequence "|" "OKAY(o)" "YES(y)" "NO(n)")
                     (sequence "|" "GOOD(g)" "NORMAL(m)" "BAD(b)"))
org-speed-command-hook '(org-speed-command-activate org-babel-speed-command-activate)
org-capture-before-finalize-hook '(doct-run-before-finalize)
org-roam-node-annotation-function 'org-roam-node-read--annotation
org-tags-column 0
org-capture-mode-hook '(doct-run-hook +org-show-target-in-capture-header-h
                         evil-insert-state)
org-clock-persist-file "/Users/sfq/.emacs.d/.local/etc/org-clock-save.el"
org-attach-id-dir "/Users/sfq/iCloudDrive/notes/.attach/"
org-roam-ui-browser-function 'browse-url
org-M-RET-may-split-line nil
org-roam-ref-annotation-function 'org-roam-ref-read--annotation
org-display-remote-inline-images 'download
org-refile-use-outline-path 'file
org-priority-faces '((65 . error) (66 . warning) (67 . success))
org-export-before-parsing-hook '(org-attach-expand-links)
org-font-lock-set-keywords-hook '(doom-themes-enable-org-fontification)
org-id-locations-file "/Users/sfq/iCloudDrive/notes/.orgids"
org-confirm-shell-link-function 'yes-or-no-p
org-link-parameters '(("bibtex" :follow org-bibtex-open :store org-bibtex-store-link)
                       ("fanyi" :follow fanyi-org-open-link :store
                        fanyi-org-store-link :complete fanyi-org-complete-link)
                       ("pdf" :follow
                        (closure ((args) (fn . org-pdftools-open) t) (&rest args)
                         (and
                          (condition-case nil (progn (require 'org-pdftools nil t))
                           (error nil))
                          (file-executable-p pdf-info-epdfinfo-program)
                          (apply fn args))
                         )
                        :complete
                        (closure ((args) (fn . org-pdftools-complete-link) t)
                         (&rest args)
                         (and
                          (condition-case nil (progn (require 'org-pdftools nil t))
                           (error nil))
                          (file-executable-p pdf-info-epdfinfo-program)
                          (apply fn args))
                         )
                        :store
                        (closure ((args) (fn . org-pdftools-store-link) t)
                         (&rest args)
                         (and
                          (condition-case nil (progn (require 'org-pdftools nil t))
                           (error nil))
                          (file-executable-p pdf-info-epdfinfo-program)
                          (apply fn args))
                         )
                        :export
                        (closure ((args) (fn . org-pdftools-export) t) (&rest args)
                         (and
                          (condition-case nil (progn (require 'org-pdftools nil t))
                           (error nil))
                          (file-executable-p pdf-info-epdfinfo-program)
                          (apply fn args))
                         )
                        )
                       ("elfeed" :follow elfeed-link-open :store
                        elfeed-link-store-link)
                       ("orgit-rev" :store orgit-rev-store :follow orgit-rev-open
                        :export orgit-rev-export :complete orgit-rev-complete-link)
                       ("orgit-log" :store orgit-log-store :follow orgit-log-open
                        :export orgit-log-export :complete orgit-log-complete-link)
                       ("orgit" :store orgit-status-store :follow orgit-status-open
                        :export orgit-status-export :complete
                        orgit-status-complete-link)
                       ("roam" :follow org-roam-link-follow-link)
                       ("yt" :follow org-yt-follow :image-data-fun
                        org-yt-image-data-fun)
                       ("id" :follow org-id-open)
                       ("img" :image-data-fun +org-inline-image-data-fn)
                       ("doom-module" :follow +org-link--doom-module-follow-fn :face
                        +org-link--doom-module-face-fn)
                       ("doom-package" :follow +org-link--doom-package-follow-fn :face
                        (closure (t) (_) '(:inherit org-priority :slant italic)))
                       ("kbd" :follow
                        (closure (t) (_)
                         (minibuffer-message "%s" (+org-display-link-in-eldoc-a)))
                        :help-echo +org-read-kbd-at-point :face help-key-binding)
                       ("doom-modules" :complete
                        (closure
                         ((dir-fn closure
                           ((plist) (dir-var . doom-modules-dir)
                            (key . "doom-modules") t)
                           nil (symbol-value dir-var))
                          (requires) (plist) (dir-var . doom-modules-dir)
                          (key . "doom-modules") t)
                         nil (if requires (mapc #'require (doom-enlist requires)))
                         (+org--relative-path
                          (+org--read-link-path key (funcall dir-fn)) (funcall dir-fn))
                         )
                        :follow
                        (closure
                         ((dir-fn closure
                           ((plist) (dir-var . doom-modules-dir)
                            (key . "doom-modules") t)
                           nil (symbol-value dir-var))
                          (requires) (plist) (dir-var . doom-modules-dir)
                          (key . "doom-modules") t)
                         (link)
                         (org-link-open-as-file
                          (expand-file-name link (funcall dir-fn)) nil)
                         )
                        :face
                        (closure
                         ((dir-fn closure
                           ((plist) (dir-var . doom-modules-dir)
                            (key . "doom-modules") t)
                           nil (symbol-value dir-var))
                          (requires) (plist) (dir-var . doom-modules-dir)
                          (key . "doom-modules") t)
                         (link)
                         (let*
                          ((path (expand-file-name link (funcall dir-fn)))
                           (option-index (string-match-p "::\\(.*\\)\\'" path))
                           (file-name (substring path 0 option-index)))
                          (if (file-exists-p file-name) 'org-link 'error))
                         )
                        )
                       ("doom-docs" :complete
                        (closure
                         ((dir-fn closure
                           ((plist) (dir-var . doom-docs-dir) (key . "doom-docs") t)
                           nil (symbol-value dir-var))
                          (requires) (plist) (dir-var . doom-docs-dir)
                          (key . "doom-docs") t)
                         nil (if requires (mapc #'require (doom-enlist requires)))
                         (+org--relative-path
                          (+org--read-link-path key (funcall dir-fn)) (funcall dir-fn))
                         )
                        :follow
                        (closure
                         ((dir-fn closure
                           ((plist) (dir-var . doom-docs-dir) (key . "doom-docs") t)
                           nil (symbol-value dir-var))
                          (requires) (plist) (dir-var . doom-docs-dir)
                          (key . "doom-docs") t)
                         (link)
                         (org-link-open-as-file
                          (expand-file-name link (funcall dir-fn)) nil)
                         )
                        :face
                        (closure
                         ((dir-fn closure
                           ((plist) (dir-var . doom-docs-dir) (key . "doom-docs") t)
                           nil (symbol-value dir-var))
                          (requires) (plist) (dir-var . doom-docs-dir)
                          (key . "doom-docs") t)
                         (link)
                         (let*
                          ((path (expand-file-name link (funcall dir-fn)))
                           (option-index (string-match-p "::\\(.*\\)\\'" path))
                           (file-name (substring path 0 option-index)))
                          (if (file-exists-p file-name) 'org-link 'error))
                         )
                        )
                       ("doom" :complete
                        (closure
                         ((dir-fn closure
                           ((plist) (dir-var . doom-emacs-dir) (key . "doom") t) nil
                           (symbol-value dir-var))
                          (requires) (plist) (dir-var . doom-emacs-dir) (key . "doom")
                          t)
                         nil (if requires (mapc #'require (doom-enlist requires)))
                         (+org--relative-path
                          (+org--read-link-path key (funcall dir-fn)) (funcall dir-fn))
                         )
                        :follow
                        (closure
                         ((dir-fn closure
                           ((plist) (dir-var . doom-emacs-dir) (key . "doom") t) nil
                           (symbol-value dir-var))
                          (requires) (plist) (dir-var . doom-emacs-dir) (key . "doom")
                          t)
                         (link)
                         (org-link-open-as-file
                          (expand-file-name link (funcall dir-fn)) nil)
                         )
                        :face
                        (closure
                         ((dir-fn closure
                           ((plist) (dir-var . doom-emacs-dir) (key . "doom") t) nil
                           (symbol-value dir-var))
                          (requires) (plist) (dir-var . doom-emacs-dir) (key . "doom")
                          t)
                         (link)
                         (let*
                          ((path (expand-file-name link (funcall dir-fn)))
                           (option-index (string-match-p "::\\(.*\\)\\'" path))
                           (file-name (substring path 0 option-index)))
                          (if (file-exists-p file-name) 'org-link 'error))
                         )
                        )
                       ("org" :complete
                        (closure
                         ((dir-fn closure
                           ((plist) (dir-var . org-directory) (key . "org") t) nil
                           (symbol-value dir-var))
                          (requires) (plist) (dir-var . org-directory) (key . "org") t)
                         nil (if requires (mapc #'require (doom-enlist requires)))
                         (+org--relative-path
                          (+org--read-link-path key (funcall dir-fn)) (funcall dir-fn))
                         )
                        :follow
                        (closure
                         ((dir-fn closure
                           ((plist) (dir-var . org-directory) (key . "org") t) nil
                           (symbol-value dir-var))
                          (requires) (plist) (dir-var . org-directory) (key . "org") t)
                         (link)
                         (org-link-open-as-file
                          (expand-file-name link (funcall dir-fn)) nil)
                         )
                        :face
                        (closure
                         ((dir-fn closure
                           ((plist) (dir-var . org-directory) (key . "org") t) nil
                           (symbol-value dir-var))
                          (requires) (plist) (dir-var . org-directory) (key . "org") t)
                         (link)
                         (let*
                          ((path (expand-file-name link (funcall dir-fn)))
                           (option-index (string-match-p "::\\(.*\\)\\'" path))
                           (file-name (substring path 0 option-index)))
                          (if (file-exists-p file-name) 'org-link 'error))
                         )
                        )
                       ("attachment" :image-data-fun +org-inline-image-data-fn :follow
                        org-attach-follow :complete org-attach-complete-link)
                       ("file+sys") ("file+emacs")
                       ("shell" :follow org-link--open-shell)
                       ("news" :follow
                        #[514 "\301\300\302\x04Q\x02\"\207" ["news" browse-url ":"] 6
                          "\n\n(fn URL ARG)"]
                        )
                       ("mailto" :follow
                        #[514 "\301\300\302\x04Q\x02\"\207" ["mailto" browse-url ":"] 6
                          "\n\n(fn URL ARG)"]
                        )
                       ("https" :follow
                        #[514 "\301\300\302\x04Q\x02\"\207" ["https" browse-url ":"] 6
                          "\n\n(fn URL ARG)"]
                        :image-data-fun +org-http-image-data-fn)
                       ("http" :follow
                        #[514 "\301\300\302\x04Q\x02\"\207" ["http" browse-url ":"] 6
                          "\n\n(fn URL ARG)"]
                        :image-data-fun +org-http-image-data-fn)
                       ("ftp" :follow
                        #[514 "\301\300\302\x04Q\x02\"\207" ["ftp" browse-url ":"] 6
                          "\n\n(fn URL ARG)"]
                        )
                       ("help" :follow org-link--open-help :store org-link--store-help)
                       ("file" :complete org-link-complete-file :face
                        (closure (t) (path)
                         (if
                          (or (file-remote-p path)
                           (and IS-WINDOWS (string-prefix-p "\\\\" path))
                           (file-exists-p path))
                          'org-link '(warning org-link))
                         )
                        )
                       ("elisp" :follow org-link--open-elisp))
org-capture-templates '(("t" "Tasks" entry
                          (file+headline "/Users/sfq/iCloudDrive/beorg/tasks.org"
                           "Tasks")
                          "* TODO %?\n %i" :doct
                          (:doct-name "Tasks" :keys "t" :file
                           "/Users/sfq/iCloudDrive/beorg/tasks.org" :headline "Tasks"
                           :template ("* TODO %?\n %i"))
                          )
                         ("i" "Ideas" entry
                          (file+headline
                           "/Users/sfq/iCloudDrive/notes/org/agenda/ideas.org" "Ideas")
                          "* IDEA %?\n %i" :doct
                          (:doct-name "Ideas" :keys "i" :file
                           "/Users/sfq/iCloudDrive/notes/org/agenda/ideas.org"
                           :headline "Ideas" :template ("* IDEA %?\n %i"))
                          )
                         ("w" "Web" entry
                          (file+headline
                           "/Users/sfq/iCloudDrive/notes/org/agenda/web.org" "Web")
                          "* TODO %?%a" :doct
                          (:doct-name "Web" :keys "w" :file
                           "/Users/sfq/iCloudDrive/notes/org/agenda/web.org" :headline
                           "Web" :template ("* TODO %?%a"))
                          )
                         ("p" "Papers" entry
                          (file+headline
                           "/Users/sfq/iCloudDrive/notes/papers/papers.org"
                           "Papers collected")
                          "* TODO %?%a" :doct
                          (:doct-name "Papers" :keys "p" :file
                           "/Users/sfq/iCloudDrive/notes/papers/papers.org" :headline
                           "Papers collected" :template ("* TODO %?%a"))
                          )
                         )
org-link-translation-function 'toc-org-unhrefify
org-link-elisp-confirm-function nil
org-todo-keyword-faces '(("[-]" . +org-todo-active) ("STRT" . +org-todo-active)
                          ("[?]" . +org-todo-onhold) ("WAIT" . +org-todo-onhold)
                          ("HOLD" . +org-todo-onhold) ("PROJ" . +org-todo-project)
                          ("NO" . +org-todo-cancel) ("KILL" . +org-todo-cancel)
                          ("GOOD" :foreground "SteelBlue"))
org-roam-db-autosync-mode t
org-capture-after-finalize-hook '(doct-run-after-finalize
                                   +org-capture-cleanup-frame-h)
org-latex-packages-alist '(("" "minted"))
org-image-actual-width 600
org-roam-directory "/Users/sfq/Library/Mobile Documents/com~apple~CloudDocs/notes/"
org-eldoc-breadcrumb-separator " → "
org-entities-user '(("flat" "\\flat" nil "" "" "266D" "♭")
                     ("sharp" "\\sharp" nil "" "" "266F" "♯"))
org-src-window-setup 'other-window
org-clock-out-remove-zero-time-clocks t
org-confirm-babel-evaluate nil
org-use-sub-superscripts '{}
org-directory "/Users/sfq/iCloudDrive/notes"
org-roam-node-display-template "${doom-hierarchy:*} ${doom-tags:45}"
org-preview-latex-image-directory "~/.emacs.d/.cache/ltximg/"
org-use-speed-commands t
org-tags-exclude-from-inheritance '("crypt")
org-attach-use-inheritance t
org-agenda-inhibit-startup t
org-agenda-start-on-weekday nil
org-default-notes-file "/Users/sfq/iCloudDrive/notes/notes.org"
org-id-locations-file-relative t
org-list-allow-alphabetical t
org-agenda-skip-unavailable-files t
)


^ permalink raw reply	[flat|nested] 2+ messages in thread

* Re: [BUG] unregistered buffer warning when saving buffer in org src block [9.6 (9.6-??-dbd192bbc @ /Users/sfq/.my.emacs.d/doom-emacs/.emacs.d/.local/straight/build-27.2/org/)]
  2021-11-07  3:52 [BUG] unregistered buffer warning when saving buffer in org src block [9.6 (9.6-??-dbd192bbc @ /Users/sfq/.my.emacs.d/doom-emacs/.emacs.d/.local/straight/build-27.2/org/)] 时芳泉
@ 2021-11-09  2:48 ` Ihor Radchenko
  0 siblings, 0 replies; 2+ messages in thread
From: Ihor Radchenko @ 2021-11-09  2:48 UTC (permalink / raw)
  To: 时芳泉; +Cc: emacs-orgmode

时芳泉 <fountainer@icloud.com> writes:

> This warning appears when saving a org mode buffer if the poly-org mode is enabled and the cursor is in a source block.

I have an idea what may be happening. Can you check the value of
after-change-functions variable when cursor is inside and outside a
source block?

Best,
Ihor


^ permalink raw reply	[flat|nested] 2+ messages in thread

end of thread, other threads:[~2021-11-09  2:48 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-11-07  3:52 [BUG] unregistered buffer warning when saving buffer in org src block [9.6 (9.6-??-dbd192bbc @ /Users/sfq/.my.emacs.d/doom-emacs/.emacs.d/.local/straight/build-27.2/org/)] 时芳泉
2021-11-09  2:48 ` Ihor Radchenko

Code repositories for project(s) associated with this inbox:

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).