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.

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index b9e8a18e25aad0d32f9a60cc76179b419c5e8ed9..5a36f19c5f1e87729ab55f96642c3ec6347998fe 100644 (file)
--- 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 3b12f57e5cee2491d805b847476d5a0556d659f1..efa9f8341108be2c95facf046693773240b33b7d 100644 (file)
--- 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."