Hi all,
'org-indent-item' disrupts indentation of lines other than the first one of a
given item when 'org-list-demote-modify-bullet' is non-nil. More precisely,
the lines below the first one get one extra space upon "org-metaright".
Steps to reproduce:
- Start with =emacs -Q=
- Get the latest installed Org version with =M-x package-initialized RET=
- Evaluate:
#+begin_src emacs-lisp
(setq org-list-demote-modify-bullet
'(("+" . "-") ("-" . "+") ("*" . "+")))
#+end_src
(That’s literally the example of the manual).
- Then find Org file with following contents with point placed where "|"
indicates:
#+begin_verbatim
- foo
- |bar baz bar baz bar baz bar baz bar baz bar baz bar baz bar baz bar baz
bar baz bar baz bar baz bar baz bar baz bar baz bar baz bar baz bar baz
bar baz bar baz bar baz bar baz bar baz bar baz bar baz bar baz bar baz
bar baz bar baz bar baz
#+begin_src emacs-lisp
(+ 1 1)
#+end_src
#+RESULTS:
: 2
#+end_verbatim
- Use "" to indent the second item, the result is:
#+begin_verbatim
- foo
+ bar baz bar baz bar baz bar baz bar baz bar baz bar baz bar baz bar baz
bar baz bar baz bar baz bar baz bar baz bar baz bar baz bar baz bar baz
bar baz bar baz bar baz bar baz bar baz bar baz bar baz bar baz bar baz
bar baz bar baz bar baz
#+begin_src emacs-lisp
(+ 1 1)
#+end_src
#+RESULTS:
: 2
#+end_verbatim
- Indeed, by going back and forth with "" and "" one can
"pump" the lines below the first one always further away:
#+begin_verbatim
- foo
+ bar baz bar baz bar baz bar baz bar baz bar baz bar baz bar baz bar baz
bar baz bar baz bar baz bar baz bar baz bar baz bar baz bar baz
bar baz
bar baz bar baz bar baz bar baz bar baz bar baz bar baz bar baz
bar baz
bar baz bar baz bar baz
#+begin_src emacs-lisp
(+ 1 1)
#+end_src
#+RESULTS:
: 2
#+end_verbatim
When 'org-list-demote-modify-bullet' has its default value of nil, all the
lines of the item are kept aligned with the first one, as would be expected.
Best regards,
Gustavo Barros.
Emacs : GNU Emacs 26.2 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.22.30)
of 2019-04-19
Package: Org mode version 9.2.4 (9.2.4-3-g7bc6f8-elpaplus @
/home/gustavo/.emacs.d/elpa/org-plus-contrib-20190701/)
current state:
==
(setq
org-src-mode-hook '(org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer)
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
org-mode-hook '(#[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
org-eldoc-load)
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 #[257 "\300\236A\207" [:title] 3 "\n\n(fn
ENTRY)"]
org-babel-pre-tangle-hook '(save-buffer)
org-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
org-list-demote-modify-bullet '(("+" . "-") ("-" . "+") ("*" . "+"))
org-src-lang-modes '(("arduino" . arduino) ("redis" . redis) ("php" . php)
("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-occur-hook '(org-first-headline-recenter)
org-cycle-hook '(org-cycle-hide-archived-subtrees 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-confirm-shell-link-function 'yes-or-no-p
org-link-parameters '(("id" :follow org-id-open)
("eww" :follow eww :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)
