From: Nick Dokos <ndokos@gmail.com>
To: emacs-orgmode@gnu.org
Subject: Re: org-element-at-point fails in programming-modes
Date: Fri, 22 Aug 2014 09:46:32 -0400 [thread overview]
Message-ID: <874mx4y6vb.fsf@pierrot.dokosmarshall.org> (raw)
In-Reply-To: 87ha147r8z.fsf@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
next prev parent reply other threads:[~2014-08-22 13:47 UTC|newest]
Thread overview: 27+ messages / expand[flat|nested] mbox.gz Atom feed top
2014-08-20 12:00 org-element-at-point fails in programming-modes Thorsten Jolitz
2014-08-20 12:12 ` Thorsten Jolitz
2014-08-20 12:17 ` Nick Dokos
2014-08-20 12:39 ` Sebastien Vauban
2014-08-20 14:28 ` Nick Dokos
2014-08-22 4:02 ` Nick Dokos
2014-08-22 5:22 ` Nicolas Richard
2014-08-22 13:23 ` Nick Dokos
2014-08-22 10:28 ` Thorsten Jolitz
2014-08-22 13:46 ` Nick Dokos [this message]
2014-08-22 13:53 ` Nicolas Richard
2014-08-22 14:20 ` Nicolas Richard
2014-08-22 14:26 ` Article Mode eats newlines between src-blocks (was Re: org-element-at-point fails in programming-modes) Thorsten Jolitz
2014-08-22 14:46 ` org-element-at-point fails in programming-modes Nick Dokos
2014-08-22 17:07 ` Rasmus
2014-08-20 12:41 ` Nicolas Richard
2014-08-21 20:03 ` Rasmus
2014-08-21 20:13 ` Rasmus
2014-08-21 20:35 ` Thorsten Jolitz
2014-08-21 20:49 ` Rasmus
2014-08-20 12:40 ` Nicolas Richard
2014-08-20 13:52 ` Thorsten Jolitz
2014-08-21 8:58 ` Nicolas Goaziou
2014-08-21 11:22 ` Thorsten Jolitz
2014-08-22 13:47 ` Bastien
2014-09-23 10:29 ` Thorsten Jolitz
2014-09-23 21:27 ` Nicolas Goaziou
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=874mx4y6vb.fsf@pierrot.dokosmarshall.org \
--to=ndokos@gmail.com \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).