emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* [BUG]: unexpected behavior related to org-indent-block
@ 2024-01-11 11:33 gerard.vermeulen
  2024-01-11 12:37 ` Ihor Radchenko
  0 siblings, 1 reply; 11+ messages in thread
From: gerard.vermeulen @ 2024-01-11 11:33 UTC (permalink / raw)
  To: Emacs orgmode

Below, I show 2 commands to be run with point on a source block.
I expect that those commands modify an Org file identically, but
they do not.  It fails when `org-indent-block' is called in a
loop after each `(insert (org-element-interpret-data copy))' and
it works when `org-indent-block' is called in a separate loop
after insertion of all `(org-element-interpret-data copy)'s:

#+begin_src emacs-lisp :results silent
(defun make-2-indent-fails ()
   "Make 2 modified blocks, but fails."
   (interactive)
   (let ((copy (org-element-copy (org-element-at-point)))
         (n 0))
     (delete-region (org-element-begin copy) (org-element-end copy))
     (while (< n 2)
       (cl-incf n)
       (org-element-put-property copy :value (format "copy %s" n))
       (insert (org-element-interpret-data copy))
       (org-indent-block))))

(defun make-2-indent-works ()
   "Make 2 modified blocks, and works."
   (interactive)
   (let ((copy (org-element-copy (org-element-at-point)))
         (n 0))
     (delete-region (org-element-begin copy) (org-element-end copy))
     (while (< n 2)
       (cl-incf n)
       (org-element-put-property copy :value (format "copy %s" n))
       (insert (org-element-interpret-data copy)))
     (org-previous-block n)
     (while (> n 0)
       (cl-decf n)
       (org-indent-block))))
#+end_src

Example block:
---
#+begin_src emacs-lisp
<point>
#+end_src
---
make-2-indent-fails results in
---
#+begin_src emacs-lisp
copy 1
#+end_src
---
make-2-indent-works results in
---
#+begin_src emacs-lisp
copy 1
#+end_src
#+begin_src emacs-lisp
copy 2
#+end_src
---

I think that it is also weird that this bug does not show up in
this ERT test while it does outside ERT:
#+begin_src emacs-lisp :results silent
(ert-deftest test-make-2-indent-fails ()
   "Test unfolded `make-2-indent-fails'."
   (org-test-with-temp-text "
,#+begin_src emacs-lisp
<point>
,#+end_src
"
     (let ((copy (org-element-copy (org-element-at-point)))
           (word "copy")
           (n 0))
       (delete-region (org-element-begin copy) (org-element-end copy))
       (while (< n 2)
         (cl-incf n)
         (org-element-put-property copy :value (format "%s %s" word n))
         ;; Why does this work inside ERT and not outside ERT?
         (insert (org-element-interpret-data copy))
         (org-indent-block))
       (message "`%s'" (buffer-substring (point-min) (point-max)))
       (goto-char (point-min))
       (while (> n 0)
         (cl-decf n)
         (should (re-search-forward word)))
       (should-not (re-search-forward word nil 'noerror)))))
#+end_src

Regards -- Gerard



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

end of thread, other threads:[~2024-01-12 19:17 UTC | newest]

Thread overview: 11+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2024-01-11 11:33 [BUG]: unexpected behavior related to org-indent-block gerard.vermeulen
2024-01-11 12:37 ` Ihor Radchenko
2024-01-11 14:14   ` gerard.vermeulen
2024-01-11 15:04     ` Ihor Radchenko
2024-01-11 15:48       ` gerard.vermeulen
2024-01-11 16:01         ` Ihor Radchenko
2024-01-11 16:41           ` gerard.vermeulen
2024-01-11 17:28             ` Ihor Radchenko
2024-01-11 18:06               ` gerard.vermeulen
2024-01-11 18:18                 ` Ihor Radchenko
2024-01-12 19:19   ` Ihor Radchenko

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).