Re: [O] Some whitespace stripped from emacs-lisp value in src blocks making it unreadable in certain cases

[Berry, Charles]

> On Sep 9, 2019, at 5:55 PM, akater <address@hidden> wrote:
> 
> Consider a lisp form that, when evaluated, produces another form. I'm
> used to org printing the resulting form nicely, in lisp blocks. However,
> this is not the case for emacs-lisp src blocks. An example:
> 
> 1. The way it should be (and is now the case) with lisp, namely sbcl:
> 
> #+begin_src lisp :results value verbatim :wrap example lisp
> (macroexpand '(defun test (a b &optional c) "doc" nil))
> #+end_src
> 
> #+RESULTS:
> #+begin_example lisp
> (PROGN
> (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN 'TEST T NIL NIL))
> (SB-IMPL::%DEFUN 'TEST
>                  (SB-INT:NAMED-LAMBDA TEST
>                      (A B &OPTIONAL C)
>                    "doc"
>                    (BLOCK TEST NIL))))
> T
> #+end_example
> 
> 2. The way it is now with emacs-lisp and a src block header that is
> otherwise identical:
> 
> #+begin_src emacs-lisp :results value verbatim :wrap example emacs-lisp
> (macroexpand
>  '(use-package outline
>    :ensure nil
>    :bind
>    (:map outline-mode-map
>         ("<kp-home>" . (lambda nil (interactive) (outline-up-heading 1))))))
> #+end_src
> 


Using emacs 26.1 and org 9.2.5, I get 

#+RESULTS:
#+begin_example emacs-lisp
(use-package outline :ensure nil :bind (:map outline-mode-map ("<kp-home>" 
lambda nil (interactive) (outline-up-heading 1))))
#+end_example

I am unclear what the effect of `:wrap example emacs-lisp' is here.  AFAICS, 
the `emacs-lisp' has no effect.  Can you point to a place in the code where 
this has effect?

Using `:results value code :wrap src emacs-lisp' as the header args, I get this:

#+RESULTS:
#+begin_src emacs-lisp
(use-package outline :ensure nil :bind
             (:map outline-mode-map
                   ("<kp-home>" lambda nil
                    (interactive)
                    (outline-up-heading 1))))
#+end_src

HTH,

Chuck