[O] Bug: Plain list indentation on 'org-indent-item' with 'org-list-demote-modify-bullet' [9.2.4 (9.2.4-3-g7bc6f8-elpaplus @ /home/gustavo/.emacs.d/elpa/org-plus-contrib-20190701/)]

[Gustavo Barros]

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 "<M-right>" 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 "<M-right>" and "<M-left>" 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)
                       ("gnus" :follow org-gnus-open :store
                        org-gnus-store-link)
                       ("docview" :follow org-docview-open :export
                        org-docview-export :store org-docview-store-link)
                       ("bibtex" :follow org-bibtex-open :store
                        org-bibtex-store-link)
                       ("bbdb" :follow org-bbdb-open :export org-bbdb-export
                        :complete org-bbdb-complete-link :store
                        org-bbdb-store-link)
                       ("w3m" :store org-w3m-store-link) ("file+sys")
                       ("file+emacs")
                       ("elfeed" :follow elfeed-link-open :store
                        elfeed-link-store-link)
                       ("doi" :follow org--open-doi-link)
                       ("elisp" :follow org--open-elisp-link)
                       ("file" :complete org-file-complete-link)
                       ("ftp" :follow
                        (lambda (path) (browse-url (concat "ftp:" path))))
                       ("help" :follow org--open-help-link)
                       ("http" :follow
                        (lambda (path) (browse-url (concat "http:" path))))
                       ("https" :follow
                        (lambda (path) (browse-url (concat "https:" path))))
                       ("mailto" :follow
                        (lambda (path) (browse-url (concat "mailto:"; path))))
                       ("news" :follow
                        (lambda (path) (browse-url (concat "news:"; path))))
                       ("shell" :follow org--open-shell-link))
)