master 09a5dd8 1/2: String backslash corrections

[Mattias Engdeg�rd]

branch: master
commit 09a5dd862832ffe82914baeab0ba7d4a0ab5fb62
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    String backslash corrections
    
    * lisp/net/shr.el (shr-tag-video): Remove ineffective backslash.
    * test/lisp/emacs-lisp/package-tests.el
    (package-test-macro-compilation-gz): Make dot literal as intended.
---
 lisp/net/shr.el                       | 2 +-
 test/lisp/emacs-lisp/package-tests.el | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index b9e8a18..5a36f19 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1697,7 +1697,7 @@ The preference is a float determined from 
`shr-prefer-media-type'."
             (xwidget-webkit-execute-script
              widget (format "document.body.innerHTML = %S;"
                             (format
-                             "<style>body { margin: 0px; }</style><div 
style='background: black; height: 100%%; display: flex; align-items: center; 
justify-content: center;'><video autoplay loop muted controls style='max-width: 
100%%; max-height: 100%%;'><source src=%S 
type='video/mp4\'></source></video></div>"
+                             "<style>body { margin: 0px; }</style><div 
style='background: black; height: 100%%; display: flex; align-items: center; 
justify-content: center;'><video autoplay loop muted controls style='max-width: 
100%%; max-height: 100%%;'><source src=%S 
type='video/mp4'></source></video></div>"
                              url)))))
       ;; No xwidgets.
       (if (> (length image) 0)
diff --git a/test/lisp/emacs-lisp/package-tests.el 
b/test/lisp/emacs-lisp/package-tests.el
index 3b12f57..efa9f83 100644
--- a/test/lisp/emacs-lisp/package-tests.el
+++ b/test/lisp/emacs-lisp/package-tests.el
@@ -383,7 +383,7 @@ but with a different end of line convention (bug#48137)."
         (mapc #'delete-file
               (directory-files-recursively dir "\\`[^\\.].*\\.elc\\'"))
         (mapc (lambda (f) (call-process "gunzip" nil nil nil f))
-              (directory-files-recursively dir "\\`[^\\.].*\\.el.gz\\'"))))))
+              (directory-files-recursively dir "\\`[^\\.].*\\.el\\.gz\\'"))))))
 
 (ert-deftest package-test-install-two-dependencies ()
   "Install a package which includes a dependency."