-- Caught at Sun Aug 3 21:13:01 2025 Error: wrong-type-argument (number-or-marker-p nil) <(2 nil) (if (< p post-affiliated) nil (cond ((eql type 'comment) (save-excursion (forward-line 0) (looking-at "[ \11]*") (concat (match-string 0) "# "))) ((eql type 'footnote-definition) "") ((memql type '(item plain-list)) (make-string (org-list-item-body-column post-affiliated) 32)) ((eql type 'paragraph) (let ((parent (org-element-parent element))) (save-excursion (forward-line 0) (cond ((eq (org-element-type parent t) 'item) (make-string (org-list-item-body-column (org-element-begin parent)) 32)) ((and adaptive-fill-regexp (let (adaptive-fill-function) (fill-context-prefix post-affiliated (org-element-end element))))) ((looking-at "[ \11]+") (match-string 0)) (t ""))))) ((eql type 'comment-block) (let* ((cbeg (save-excursion (goto-char post-affiliated) (forward-line) (point))) (cend (save-excursion (goto-char (org-element-end element)) (skip-chars-backward " \15\11\n") (line-beginning-position)))) (if (and (>= p cbeg) (< p cend)) (progn (if (save-excursion (forward-line 0) (looking-at "[ \11]+")) (match-string 0) ""))))))) (let* ((p (line-beginning-position)) (element (save-excursion (forward-line 0) (org-element-at-point))) (type (org-element-type element)) (post-affiliated (org-element-post-affiliated element))) (if (< p post-affiliated) nil (cond ((eql type 'comment) (save-excursion (forward-line 0) (looking-at "[ \11]*") (concat (match-string 0) "# "))) ((eql type 'footnote-definition) "") ((memql type '(item plain-list)) (make-string (org-list-item-body-column post-affiliated) 32)) ((eql type 'paragraph) (let ((parent (org-element-parent element))) (save-excursion (forward-line 0) (cond ((eq (org-element-type parent t) 'item) (make-string (org-list-item-body-column (org-element-begin parent)) 32)) ((and adaptive-fill-regexp (let (adaptive-fill-function) (fill-context-prefix post-affiliated (org-element-end element))))) ((looking-at "[ \11]+") (match-string 0)) (t ""))))) ((eql type 'comment-block) (let* ((cbeg (save-excursion (goto-char post-affiliated) (forward-line) (point))) (cend (save-excursion (goto-char (org-element-end element)) (skip-chars-backward " \15\11\n") (line-beginning-position)))) (if (and (>= p cbeg) (< p cend)) (progn (if (save-excursion (forward-line 0) (looking-at "[ \11]+")) (match-string 0) "")))))))) (if (org-at-heading-p) nil (let* ((p (line-beginning-position)) (element (save-excursion (forward-line 0) (org-element-at-point))) (type (org-element-type element)) (post-affiliated (org-element-post-affiliated element))) (if (< p post-affiliated) nil (cond ((eql type 'comment) (save-excursion (forward-line 0) (looking-at "[ \11]*") (concat (match-string 0) "# "))) ((eql type 'footnote-definition) "") ((memql type '(item plain-list)) (make-string (org-list-item-body-column post-affiliated) 32)) ((eql type 'paragraph) (let ((parent (org-element-parent element))) (save-excursion (forward-line 0) (cond ((eq (org-element-type parent t) 'item) (make-string (org-list-item-body-column (org-element-begin parent)) 32)) ((and adaptive-fill-regexp (let (adaptive-fill-function) (fill-context-prefix post-affiliated (org-element-end element))))) ((looking-at "[ \11]+") (match-string 0)) (t ""))))) ((eql type 'comment-block) (let* ((cbeg (save-excursion (goto-char post-affiliated) (forward-line) (point))) (cend (save-excursion (goto-char (org-element-end element)) (skip-chars-backward " \15\11\n") (line-beginning-position)))) (if (and (>= p cbeg) (< p cend)) (progn (if (save-excursion (forward-line 0) (looking-at "[ \11]+")) (match-string 0) ""))))))))) (save-restriction (widen) (if (org-at-heading-p) nil (let* ((p (line-beginning-position)) (element (save-excursion (forward-line 0) (org-element-at-point))) (type (org-element-type element)) (post-affiliated (org-element-post-affiliated element))) (if (< p post-affiliated) nil (cond ((eql type 'comment) (save-excursion (forward-line 0) (looking-at "[ \11]*") (concat (match-string 0) "# "))) ((eql type 'footnote-definition) "") ((memql type '(item plain-list)) (make-string (org-list-item-body-column post-affiliated) 32)) ((eql type 'paragraph) (let ((parent (org-element-parent element))) (save-excursion (forward-line 0) (cond ((eq (org-element-type parent t) 'item) (make-string (org-list-item-body-column (org-element-begin parent)) 32)) ((and adaptive-fill-regexp (let (adaptive-fill-function) (fill-context-prefix post-affiliated (org-element-end element))))) ((looking-at "[ \11]+") (match-string 0)) (t ""))))) ((eql type 'comment-block) (let* ((cbeg (save-excursion (goto-char post-affiliated) (forward-line) (point))) (cend (save-excursion (goto-char (org-element-end element)) (skip-chars-backward " \15\11\n") (line-beginning-position)))) (if (and (>= p cbeg) (< p cend)) (progn (if (save-excursion (forward-line 0) (looking-at "[ \11]+")) (match-string 0) "")))))))))) (save-excursion (save-restriction (widen) (if (org-at-heading-p) nil (let* ((p (line-beginning-position)) (element (save-excursion (forward-line 0) (org-element-at-point))) (type (org-element-type element)) (post-affiliated (org-element-post-affiliated element))) (if (< p post-affiliated) nil (cond ((eql type 'comment) (save-excursion (forward-line 0) (looking-at "[ \11]*") (concat (match-string 0) "# "))) ((eql type 'footnote-definition) "") ((memql type '(item plain-list)) (make-string (org-list-item-body-column post-affiliated) 32)) ((eql type 'paragraph) (let ((parent (org-element-parent element))) (save-excursion (forward-line 0) (cond ((eq (org-element-type parent t) 'item) (make-string (org-list-item-body-column (org-element-begin parent)) 32)) ((and adaptive-fill-regexp (let (adaptive-fill-function) (fill-context-prefix post-affiliated (org-element-end element))))) ((looking-at "[ \11]+") (match-string 0)) (t ""))))) ((eql type 'comment-block) (let* ((cbeg (save-excursion (goto-char post-affiliated) (forward-line) (point))) (cend (save-excursion (goto-char (org-element-end element)) (skip-chars-backward " \15\11\n") (line-beginning-position)))) (if (and (>= p cbeg) (< p cend)) (progn (if (save-excursion (forward-line 0) (looking-at "[ \11]+")) (match-string 0) ""))))))))))) org-adaptive-fill-function() fill-match-adaptive-prefix() fill-context-prefix(1 2) visual-wrap-fill-context-prefix(1 2) visual-wrap-prefix-function(1 813) #f(compiled-function (fun) #<bytecode 0x1baf2e20d056e0bf>)(visual-wrap-prefix-function) jit-lock--run-functions(1 813) jit-lock-fontify-now(1 813) jit-lock-function(1) redisplay_internal\ \(C\ function\)() sit-for(1) type-break-noninteractive-query() type-break-do-query() type-break-run-tb-post-command-hook()
On Sun, Aug 3, 2025 at 6:54 AM Ihor Radchenko <yanta...@posteo.net> wrote: > > Samuel Wales <samolog...@gmail.com> writes: > > > below please find entire contents of warnings buffer [latest says look > > at redisplay trace buffer], followed by entire contents of redisplay > > trace buffer. > > Thanks! Unfortunately, there is no additional information here. > > > Error: wrong-type-argument (number-or-marker-p nil) > > org-adaptive-fill-function() > > fill-match-adaptive-prefix() > > fill-context-prefix(1 2) > > Any chance you could run uncompiled version of > org-adaptive-fill-function? For example, you can do C-M-x (M-x > eval-defun) on `org-adaptive-fill-function' definition in the source > code to force using uncompiled code. That should hopefully produce a > more complete backtrace. > > -- > Ihor Radchenko // yantar92, > Org mode maintainer, > Learn more about Org mode at <https://orgmode.org/>. > Support Org development at <https://liberapay.com/org-mode>, > or support my work at <https://liberapay.com/yantar92> -- The Kafka Pandemic A blog about science, health, human rights, and misopathy: https://thekafkapandemic.blogspot.com
