Re: [O] Recent regression in Org master with parsing of verbatim code with spaces

[Robert Klein]

Hi,

On Wed, 11 Oct 2017 00:47:04 +0100
Reuben Thomas <r...@sc3d.org> wrote:

> On 10 October 2017 at 18:29, Kaushal Modi <kaushal.m...@gmail.com>
> wrote:
> 
> > On Tue, Oct 10, 2017 at 1:08 PM Kaushal Modi
> > <kaushal.m...@gmail.com> wrote:
> >  
> >> I scanned through recent commits, but haven't yet figured out which
> >> commit affected this. Before I end up with git bisect, does anyone
> >> know a master branch commit that could have caused this?
> >>  
> >
> > Hello,
> >
> > I found the commit causing this change:
> >
> > http://orgmode.org/cgit.cgi/org-mode.git/commit/?id=
> > 8383f7e08b964e129b175ef1c0297b1f4a8ed235
> >  
> 
> ​I haven't seen the rest of this thread, but at a guess is the
> problem to do with [:space:] matching vertical space such as newline
> and vertical tab? Fixing that is a bit painful, since as far as I
> know there's no regex for "horizontal space"; I guess it would be a
> matter of enumerating a suitable range of code points.​

I'm fiddling with org-emphasis-regexp-components in my .emacs.  I
put all horizontal whitespace characters (Wikipedia: "whitespace
character" with Unicode character property WSpace="y") in a string and
concat org-emphasis-regexp-components.  Note, I include some extra
characters for pre, post, and borders (typographical double quotes).

(setq horizontal-whitespace
      (string
       (cdr (assoc-string "CHARACTER TABULATION" (ucs-names)))
       (cdr (assoc-string "SPACE" (ucs-names)))
       (cdr (assoc-string "NO-BREAK SPACE" (ucs-names)))
       (cdr (assoc-string "OGHAM SPACE MARK" (ucs-names)))
       (cdr (assoc-string "EN QUAD" (ucs-names)))
       (cdr (assoc-string "EM QUAD" (ucs-names)))
       (cdr (assoc-string "EN SPACE" (ucs-names)))
       (cdr (assoc-string "EM SPACE" (ucs-names)))
       (cdr (assoc-string "THREE-PER-EM SPACE" (ucs-names)))
       (cdr (assoc-string "FOUR-PER-EM SPACE" (ucs-names)))
       (cdr (assoc-string "SIX-PER-EM SPACE" (ucs-names)))
       (cdr (assoc-string "FIGURE SPACE" (ucs-names)))
       (cdr (assoc-string "PUNCTUATION SPACE" (ucs-names)))
       (cdr (assoc-string "THIN SPACE" (ucs-names)))
       (cdr (assoc-string "HAIR SPACE" (ucs-names)))
       (cdr (assoc-string "NARROW NO-BREAK SPACE" (ucs-names)))
       (cdr (assoc-string "MEDIUM MATHEMATICAL SPACE" (ucs-names)))
       (cdr (assoc-string "IDEOGRAPHIC SPACE" (ucs-names)))))
(setq org-emphasis-regexp-components
      `(,(concat horizontal-whitespace
                 "('\"{„“")
        ,(concat "-"
                 horizontal-whitespace
                 ".,:!?;'\")}\\[“”")
        ,(concat horizontal-whitespace
                 "[:space:],\"'„“”")
        "."
        10))


Best regards
Robert