Re: [RFC] Moving "manual.org" into core

[Yasushi SHOJI <yasushi.shoji@gmail.com>]

On Thu, Feb 1, 2018 at 8:43 PM, Yasushi SHOJI <yasushi.shoji@gmail.com> wrote:
> On Mon, Jan 29, 2018 at 11:41 PM, Nicolas Goaziou
> <mail@nicolasgoaziou.fr> wrote:
>> Yasushi SHOJI <yasushi.shoji@gmail.com> writes:
>>
>>> Do you see this on your env?  Or, is it just me?
>>
>> I don't see anything like this.
>
> Hmm... I don't know how to fix this.

I mean, I run `emacs -q`,
eval only the following code in the `*scratch*` buffer,
open `manual.org` and do `M-x org-reformat`.

and I see:

---- >8 ---- >8 ----
@@ -134,9 +133,9 @@
 You can clone Org's repository and install Org like this:

 #+begin_example
-  $ cd ~/src/
-  $ git clone git@code.orgmode.org:bzg/org-mode.git
-  $ make autoloads
+$ cd ~/src/
+$ git clone git@code.orgmode.org:bzg/org-mode.git
+$ make autoloads
 #+end_example

 Note that in this case, ~make autoloads~ is mandatory: it defines
---- >8 ---- >8 ----

I checked `org-src-preserve-indentation` is nil and
org-edit-src-content-indentation is 2.
I even `list-load-path-shadows` and check that git version of org is used.

What am I missing?


(add-to-list 'load-path "~/src/org-mode/lisp")
(defun org-reformat ()
    (interactive)
    (let ((result
           (benchmark-run 1
             (let ((document (org-element-interpret-data
(org-element-parse-buffer))))
               (erase-buffer)
               (insert document)
               (goto-char (point-min))))))
      (if (zerop (nth 1 result))
          (message "Org Re-format took %.2f seconds" (car result))
        (message "Org Re-format took %.2f second (%.2fs in %d GCs)"
                 (car result)
                 (nth 2 result)
                 (nth 1 result)))))
-- 
              yashi