emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] externals/hyperbole e3544c8 23/50: Revert improper application of


From: Stefan Monnier
Subject: [elpa] externals/hyperbole e3544c8 23/50: Revert improper application of "Use \\0 for matched Nth substitution"
Date: Wed, 17 Mar 2021 18:44:17 -0400 (EDT)

branch: externals/hyperbole
commit e3544c89c6ece80026cdc84a18da1915798bb7db
Author: Bob Weiner <rsw@gnu.org>
Commit: Bob Weiner <rsw@gnu.org>

    Revert improper application of "Use \\0 for matched Nth substitution"
    
    This reverts commit db73cf.
---
 kotl/kexport.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/kotl/kexport.el b/kotl/kexport.el
index dd3c8c2..9613d22 100644
--- a/kotl/kexport.el
+++ b/kotl/kexport.el
@@ -70,7 +70,7 @@
    '(">" . "&gt;")
    ;;
    ;; italicize keybindings
-   '("{[^}]+}" . "<I>\\0</I>")
+   '("{[^}]+}" . "<I>\0</I>")
    ;;
    ;; make URLs into hyperlinks
    (cons hpath:url-regexp  'kexport:html-url)
@@ -88,10 +88,10 @@
    ;; make klinks into hyperlinks
    (cons (concat "&lt;\\s-*@\\s-*" kexport:kcell-reference-regexp
                 "[^&>]*&gt;")
-        "<A HREF=\"#k\\1\">\\0</A>")
+        "<A HREF=\"#k\\1\">\0</A>")
    (cons (format "&lt;\\s-*@\\s-*\\(%s\\)[^=&>]*&gt;"
                 kexport:kcell-partial-reference-regexp)
-        "<A HREF=\"#k\\1\">\\0</A>")
+        "<A HREF=\"#k\\1\">\0</A>")
    (cons (format "&lt;\\s-*\\([^ \t\n\r,<>]+\\)\\s-*,\\s-*%s[^=&>]*&gt;"
                 kexport:kcell-reference-regexp)
         'kexport:html-file-klink)
@@ -236,8 +236,8 @@ Works exclusively within a call to 
`hypb:replace-match-string'."
                             (match-end 1))))
     (if (equal filename (file-name-nondirectory
                         kexport:input-filename))
-       "<A HREF=\"#k\\2\">\\0</A>"
-      (format "<A HREF=\"file://%s#k\\2\">\\0</A>"
+       "<A HREF=\"#k\\2\">\0</A>"
+      (format "<A HREF=\"file://%s#k\\2\">\0</A>"
              (expand-file-name filename
                                (if kexport:input-filename
                                    (file-name-directory



reply via email to

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