[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Robert Klein
Subject: Re: [O] Recent regression in Org master with parsing of verbatim code with spaces
Date: Wed, 11 Oct 2017 10:12:23 +0200


On Wed, 11 Oct 2017 00:47:04 +0100
Reuben Thomas <address@hidden> wrote:

> On 10 October 2017 at 18:29, Kaushal Modi <address@hidden>
> wrote:
> > On Tue, Oct 10, 2017 at 1:08 PM Kaushal Modi
> > <address@hidden> 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
       (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 "-"
        ,(concat horizontal-whitespace

Best regards

reply via email to

[Prev in Thread] Current Thread [Next in Thread]