From: tkgeoxwk@cock.li
To: emacs-orgmode@gnu.org
Subject: [BUG] Invalid search bound on org-agenda-tree-to-indirect-buffer
Date: Sat, 13 Jun 2020 14:02:37 +0000 [thread overview]
Message-ID: <6338f2d3d4d0aa8011c88321383d945f@cock.li> (raw)
When I run M-x org-agenda-tree-to-indirect-buffer on any TODO item from
agenda view I see the below error "Invalid search bound"
I can reproduce with the below config
(setq org-agenda-files (list "~/inbox.org"))
Contents of inbox.org:
* TODO [#A] Weekly Review
SCHEDULED: <2020-06-13 Sat>
:PROPERTIES:
:CREATED: [2020-06-13 Thu 05:33]
:END:
* TODO Make screenshots
SCHEDULED: <2020-06-13 Sat>
:PROPERTIES:
:CREATED: [2020-06-13 Thu 05:33]
:END:
I can't seem to reproduce this bug when I remove property drawers.
Debugger entered--Lisp error: (error "Invalid search bound (wrong side
of point)")
re-search-forward("^[ \011]*:\\(\\(?:\\w\\|[-_]\\)+\\):[ \011]*$" 98
t)
(while (re-search-forward org-drawer-regexp end t) (let* ((val
(get-char-property-and-overlay (point) (quote invisible))) (pcase-0
(function (lambda nil (let (...) (if ... ...)))))) (if (consp val) (let*
((x314 (car val))) (if (eq x314 (quote outline)) (let* ((x315 ...)) (let
(...) (goto-char ...))) (let ((drawer ...)) (if (memq ... ...) (progn
... ...))))) (funcall pcase-0))))
(save-restriction (widen) (goto-char (or --mpom (point))) (while
(re-search-forward org-drawer-regexp end t) (let* ((val
(get-char-property-and-overlay (point) (quote invisible))) (pcase-0
(function (lambda nil (let ... ...))))) (if (consp val) (let* ((x314
(car val))) (if (eq x314 (quote outline)) (let* (...) (let ... ...))
(let (...) (if ... ...)))) (funcall pcase-0)))))
(save-excursion (save-restriction (widen) (goto-char (or --mpom
(point))) (while (re-search-forward org-drawer-regexp end t) (let* ((val
(get-char-property-and-overlay (point) (quote invisible))) (pcase-0
(function (lambda nil ...)))) (if (consp val) (let* ((x314 ...)) (if (eq
x314 ...) (let* ... ...) (let ... ...))) (funcall pcase-0))))))
(save-excursion (if (markerp --mpom) (progn (set-buffer (marker-buffer
--mpom)))) (save-excursion (save-restriction (widen) (goto-char (or
--mpom (point))) (while (re-search-forward org-drawer-regexp end t)
(let* ((val (get-char-property-and-overlay ... ...)) (pcase-0 (function
...))) (if (consp val) (let* (...) (if ... ... ...)) (funcall
pcase-0)))))))
(let ((--mpom beg)) (save-excursion (if (markerp --mpom) (progn
(set-buffer (marker-buffer --mpom)))) (save-excursion (save-restriction
(widen) (goto-char (or --mpom (point))) (while (re-search-forward
org-drawer-regexp end t) (let* ((val ...) (pcase-0 ...)) (if (consp val)
(let* ... ...) (funcall pcase-0))))))))
(let* ((global\? (eq state (quote all))) (beg (if global\? (point-min)
(line-beginning-position))) (end (cond (global\? (point-max)) ((eq state
(quote children)) (org-entry-end-position)) (t (save-excursion
(org-end-of-subtree t t)))))) (let ((--mpom beg)) (save-excursion (if
(markerp --mpom) (progn (set-buffer (marker-buffer --mpom))))
(save-excursion (save-restriction (widen) (goto-char (or --mpom
(point))) (while (re-search-forward org-drawer-regexp end t) (let* (...
...) (if ... ... ...))))))))
(progn (let* ((global\? (eq state (quote all))) (beg (if global\?
(point-min) (line-beginning-position))) (end (cond (global\?
(point-max)) ((eq state (quote children)) (org-entry-end-position)) (t
(save-excursion (org-end-of-subtree t t)))))) (let ((--mpom beg))
(save-excursion (if (markerp --mpom) (progn (set-buffer (marker-buffer
--mpom)))) (save-excursion (save-restriction (widen) (goto-char (or
--mpom ...)) (while (re-search-forward org-drawer-regexp end t) (let*
... ...))))))))
(if (and (derived-mode-p (quote org-mode)) (not (memq state (quote
(overview folded contents))))) (progn (let* ((global\? (eq state (quote
all))) (beg (if global\? (point-min) (line-beginning-position))) (end
(cond (global\? (point-max)) ((eq state ...) (org-entry-end-position))
(t (save-excursion ...))))) (let ((--mpom beg)) (save-excursion (if
(markerp --mpom) (progn (set-buffer ...))) (save-excursion
(save-restriction (widen) (goto-char ...) (while ... ...))))))))
org-cycle-hide-drawers(all)
run-hook-with-args(org-cycle-hide-drawers all)
(let ((cbuf (current-buffer)) (cwin (selected-window)) (pos (point))
beg end level heading ibuf) (save-excursion (org-back-to-heading t) (if
(numberp arg) (progn (setq level (org-outline-level)) (if (< arg 0)
(progn (setq arg (+ level arg)))) (while (> (setq level
(org-outline-level)) arg) (org-up-heading-safe)))) (setq beg (point)
heading (org-get-heading (quote no-tags))) (org-end-of-subtree t t) (if
(org-at-heading-p) (progn (backward-char 1))) (setq end (point))) (if
(and (buffer-live-p org-last-indirect-buffer) (not (eq
org-indirect-buffer-display (quote new-frame))) (not arg)) (progn
(kill-buffer org-last-indirect-buffer))) (setq ibuf
(org-get-indirect-buffer cbuf heading) org-last-indirect-buffer ibuf)
(cond ((or (eq org-indirect-buffer-display (quote new-frame)) (and arg
(eq org-indirect-buffer-display (quote dedicated-frame)))) (select-frame
(make-frame)) (delete-other-windows) (pop-to-buffer-same-window ibuf)
(org-set-frame-title heading)) ((eq org-indirect-buffer-display (quote
dedicated-frame)) (raise-frame (select-frame (or (and
org-indirect-dedicated-frame (frame-live-p org-indirect-dedicated-frame)
org-indirect-dedicated-frame) (setq org-indirect-dedicated-frame
(make-frame))))) (delete-other-windows) (pop-to-buffer-same-window ibuf)
(org-set-frame-title (concat "Indirect: " heading))) ((eq
org-indirect-buffer-display (quote current-window))
(pop-to-buffer-same-window ibuf)) ((eq org-indirect-buffer-display
(quote other-window)) (pop-to-buffer ibuf)) (t (error "Invalid value")))
(narrow-to-region beg end) (org-show-all (quote (headings drawers
blocks))) (goto-char pos) (run-hook-with-args (quote org-cycle-hook)
(quote all)) (and (window-live-p cwin) (select-window cwin)))
org-tree-to-indirect-buffer(nil)
(save-excursion (goto-char pos) (org-tree-to-indirect-buffer arg))
(save-current-buffer (set-buffer buffer) (save-excursion (goto-char
pos) (org-tree-to-indirect-buffer arg)))
(let* ((marker (or (org-get-at-bol (quote org-marker))
(org-agenda-error))) (buffer (marker-buffer marker)) (pos
(marker-position marker))) (save-current-buffer (set-buffer buffer)
(save-excursion (goto-char pos) (org-tree-to-indirect-buffer arg))))
org-agenda-do-tree-to-indirect-buffer(nil)
(progn (org-agenda-do-tree-to-indirect-buffer arg))
(unwind-protect (progn (org-agenda-do-tree-to-indirect-buffer arg))
(set-window-configuration wconfig))
(let ((wconfig (current-window-configuration))) (unwind-protect (progn
(org-agenda-do-tree-to-indirect-buffer arg)) (set-window-configuration
wconfig)))
(let ((agenda-buffer (buffer-name)) (agenda-window (selected-window))
(indirect-window (and org-last-indirect-buffer (get-buffer-window
org-last-indirect-buffer)))) (let ((wconfig
(current-window-configuration))) (unwind-protect (progn
(org-agenda-do-tree-to-indirect-buffer arg)) (set-window-configuration
wconfig))) (if (or (eq org-indirect-buffer-display (quote new-frame))
(eq org-indirect-buffer-display (quote dedicated-frame))) nil
(unwind-protect (if (and indirect-window (window-live-p
indirect-window)) nil (setq indirect-window (split-window
agenda-window))) (and indirect-window (select-window indirect-window))
(switch-to-buffer org-last-indirect-buffer :norecord)
(fit-window-to-buffer indirect-window))) (select-window
(get-buffer-window agenda-buffer)) (setq org-agenda-last-indirect-buffer
org-last-indirect-buffer))
(if current-prefix-arg (org-agenda-do-tree-to-indirect-buffer arg)
(let ((agenda-buffer (buffer-name)) (agenda-window (selected-window))
(indirect-window (and org-last-indirect-buffer (get-buffer-window
org-last-indirect-buffer)))) (let ((wconfig
(current-window-configuration))) (unwind-protect (progn
(org-agenda-do-tree-to-indirect-buffer arg)) (set-window-configuration
wconfig))) (if (or (eq org-indirect-buffer-display (quote new-frame))
(eq org-indirect-buffer-display (quote dedicated-frame))) nil
(unwind-protect (if (and indirect-window (window-live-p
indirect-window)) nil (setq indirect-window (split-window
agenda-window))) (and indirect-window (select-window indirect-window))
(switch-to-buffer org-last-indirect-buffer :norecord)
(fit-window-to-buffer indirect-window))) (select-window
(get-buffer-window agenda-buffer)) (setq org-agenda-last-indirect-buffer
org-last-indirect-buffer)))
org-agenda-tree-to-indirect-buffer(nil)
funcall-interactively(org-agenda-tree-to-indirect-buffer nil)
call-interactively(org-agenda-tree-to-indirect-buffer record nil)
command-execute(org-agenda-tree-to-indirect-buffer record)
execute-extended-command(nil "org-agenda-tree-to-indirect-buffer"
"org-agenda-tree")
funcall-interactively(execute-extended-command nil
"org-agenda-tree-to-indirect-buffer" "org-agenda-tree")
call-interactively(execute-extended-command nil nil)
command-execute(execute-extended-command)
Emacs : GNU Emacs 26.3 (build 1, x86_64-pc-linux-gnu, GTK+ Version
3.24.20)
of 2020-05-19
Package: Org mode version 9.3.7 (release_9.3.7-638-g688247-git @ mixed
installation! /usr/share/emacs/26.3/lisp/org/ and
~/.emacs.d/straight/repos/org/lisp/)
next reply other threads:[~2020-06-14 17:55 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2020-06-13 14:02 tkgeoxwk [this message]
2020-06-15 1:03 ` [BUG] Invalid search bound on org-agenda-tree-to-indirect-buffer Kyle Meyer
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=6338f2d3d4d0aa8011c88321383d945f@cock.li \
--to=tkgeoxwk@cock.li \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public 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).