diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2021-11-18 15:05:47 +0100 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2021-11-18 20:54:32 +0100 |
| commit | 09a5dd862832ffe82914baeab0ba7d4a0ab5fb62 (patch) | |
| tree | 9194c6d3347598d2dd4ea02aed3ccc496f908efc | |
| parent | 03fba4da8fc689dabc65e693631cd17d819b5135 (diff) | |
| download | emacs-09a5dd862832ffe82914baeab0ba7d4a0ab5fb62.tar.gz | |
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.
| -rw-r--r-- | lisp/net/shr.el | 2 | ||||
| -rw-r--r-- | 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 b9e8a18e25a..5a36f19c5f1 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 3b12f57e5ce..efa9f834110 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." |