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/)]

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

Re: 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/)]

[Nicolas Goaziou]

Hello,

Gustavo Barros <gusbrs.2016@gmail.com> writes:

> '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

Fixed. Thank you.

Regards,

-- 
Nicolas Goaziou