Re: org-element-at-point fails in programming-modes

[Nick Dokos <ndokos@gmail.com>]

Thorsten Jolitz <tjolitz@gmail.com> writes:

> Nick Dokos <ndokos@gmail.com> writes:
>
>> Nick Dokos <ndokos@gmail.com> writes:
>>
>>> Sebastien Vauban <sva-news@mygooglest.com>
>>> writes:
>>>
>>>> Nick Dokos wrote:
>>>>> Thorsten Jolitz <tjolitz@gmail.com> writes:
>>>>>> Thorsten Jolitz <tjolitz@gmail.com> writes:
>>>>>>
>>>>>> ...
>>>>>> Am I the only one seeing this? Bug in gnus/message mode?
>>>>>
>>>>> I see empty lines between the blocks in gnus.
>>>>
>>>> I don't see the empty lines, like Thorsten.
>>>>
>>>
>>> ... and on a different machine, I don't see them either.
>>> Now I have to figure out what's different between them.
>>>
>>
>> One machine is running Gnus v. 5.13: that one smooshes the code
>> blocks together.
>>
>> The other is running Ma Gnus v. 0.12: that one leaves empty
>> lines between blocks.
>
> Maybe they switched to the new parser between versions, that parses a
> src-block with :post-blank's, but does not take them into account when
> interpreting? 
>

No clue.

> ,----[ C-h f mm-display-inline-fontify RET ]
> | mm-display-inline-fontify is a compiled Lisp function in `mm-view.el'.
> | 
> | (mm-display-inline-fontify HANDLE &optional MODE)
> | 
> | Insert HANDLE inline fontifying with MODE.
> | If MODE is not set, try to find mode automatically.
> `----
>
> is responsable here, and if we would find the place where 'handle' is
> parsed (I couldn't in reasonable time) we would probably know what is
> the problem ('handle' is the src-block in this case, 'mode' is 'org').

The stack trace on Ma Gnus v. 0.12 (and probably on 5.13 as well) looks like this:

  mm-display-inline-fontify((#<buffer  *mm-uu*-975097> ("text/x-org") nil nil nil nil nil nil) org-mode)
  mm-display-org-inline((#<buffer  *mm-uu*-975097> ("text/x-org") nil nil nil nil nil nil))
  mm-display-inline((#<buffer  *mm-uu*-975097> ("text/x-org") nil nil nil nil nil nil))
  mm-display-part((#<buffer  *mm-uu*-975097> ("text/x-org") nil nil nil nil nil nil) t)
  byte-code("..." [ignored type gnus-summary-buffer buffer gnus-inhibit-images handle string-match throw nil buffer-live-p get-buffer "\\`image/" mm-inline-override-p 4 "inline" mm-attachment-override-p mm-automatic-display-p mm-inlinable-p mm-inlined-p mm-automatic-external-display-p t split-string "/" "text" rassq "message" insert-char 10 2 0 1 gnus-unbuttonized-mime-type-p gnus-insert-mime-button (set-buffer gnus-summary-buffer) ((error)) derived-mode-p gnus-article-mode mm-display-part mm-display-inline gnus-article-insert-newline "\n" -1 put-text-property gnus-undeletable gnus-treat-article "application/pgp-signature" not-attachment display text gnus-article-mime-handle-alist ...] 6)
  gnus-mime-display-single((#<buffer  *mm-uu*-975097> ("text/x-org") nil nil nil nil nil nil))
  gnus-mime-display-part((#<buffer  *mm-uu*-975097> ("text/x-org") nil nil nil nil nil nil))
  mapcar(gnus-mime-display-part ((#<buffer  *mm-uu*> ("text/plain" (charset . gnus-decoded)) nil (lambda nil (let ((inhibit-read-only t)) (delete-region #<marker (moves after insertion) at 3806 in *Article gmane.emacs.orgmode*> #<marker at 4171 in *Article gmane.emacs.orgmode*>))) nil nil nil nil) (#<buffer  *mm-uu*-161616> ("text/x-org") nil (lambda nil (let ((inhibit-read-only t)) (delete-region #<marker (moves after insertion) at 4172 in *Article gmane.emacs.orgmode*> #<marker at 4210 in *Article gmane.emacs.orgmode*>))) nil nil nil nil) (#<buffer  *mm-uu*-975097> ("text/x-org") nil nil nil nil nil nil) (#<buffer  *mm-uu*-44672> ("text/x-org") nil nil nil nil nil nil) (#<buffer  *mm-uu*-414536> ("text/x-org") nil nil nil nil nil nil) (#<buffer  *mm-uu*-4102> ("text/plain" (charset . gnu
 s-decoded)) nil nil nil nil nil nil)))
  gnus-mime-display-mixed(((#<buffer  *mm-uu*> ("text/plain" (charset . gnus-decoded)) nil (lambda nil (let ((inhibit-read-only t)) (delete-region #<marker (moves after insertion) at 3806 in *Article gmane.emacs.orgmode*> #<marker at 4171 in *Article gmane.emacs.orgmode*>))) nil nil nil nil) (#<buffer  *mm-uu*-161616> ("text/x-org") nil (lambda nil (let ((inhibit-read-only t)) (delete-region #<marker (moves after insertion) at 4172 in *Article gmane.emacs.orgmode*> #<marker at 4210 in *Article gmane.emacs.orgmode*>))) nil nil nil nil) (#<buffer  *mm-uu*-975097> ("text/x-org") nil nil nil nil nil nil) (#<buffer  *mm-uu*-44672> ("text/x-org") nil nil nil nil nil nil) (#<buffer  *mm-uu*-414536> ("text/x-org") nil nil nil nil nil nil) (#<buffer  *mm-uu*-4102> ("text/plain" (charset . gnus-deco
 ded)) nil nil nil nil nil nil)))
  gnus-mime-display-part(("multipart/mixed" (#<buffer  *mm-uu*> ("text/plain" (charset . gnus-decoded)) nil (lambda nil (let ((inhibit-read-only t)) (delete-region #<marker (moves after insertion) at 3806 in *Article gmane.emacs.orgmode*> #<marker at 4171 in *Article gmane.emacs.orgmode*>))) nil nil nil nil) (#<buffer  *mm-uu*-161616> ("text/x-org") nil (lambda nil (let ((inhibit-read-only t)) (delete-region #<marker (moves after insertion) at 4172 in *Article gmane.emacs.orgmode*> #<marker at 4210 in *Article gmane.emacs.orgmode*>))) nil nil nil nil) (#<buffer  *mm-uu*-975097> ("text/x-org") nil nil nil nil nil nil) (#<buffer  *mm-uu*-44672> ("text/x-org") nil nil nil nil nil nil) (#<buffer  *mm-uu*-414536> ("text/x-org") nil nil nil nil nil nil) (#<buffer  *mm-uu*-4102> ("text/plain" (ch
 arset . gnus-decoded)) nil nil nil nil nil nil)))
  gnus-display-mime()
  gnus-article-prepare-display()
  gnus-article-prepare(89997 nil)
  gnus-summary-display-article(89997)
  gnus-summary-next-page(nil)
  funcall-interactively(gnus-summary-next-page nil)
  call-interactively(gnus-summary-next-page nil nil)
  command-execute(gnus-summary-next-page)

The mm-display-inline-fontify call inserts "#+begin_foo...\n#+end_foo\n"
and (I won't swear to this but I think it's right) somebody on the way
*up* the stack adds an extra newline (maybe gnus-mime-display-single - the
others seem too generic and/or too simple to do it).

-- 
Nick