diff options
| -rw-r--r-- | test/lisp/net/shr-tests.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/lisp/net/shr-tests.el b/test/lisp/net/shr-tests.el index 363cd144e8f..a931d07a163 100644 --- a/test/lisp/net/shr-tests.el +++ b/test/lisp/net/shr-tests.el | |||
| @@ -145,8 +145,8 @@ settings, then once more for each (OPTION . VALUE) pair.") | |||
| 145 | (dolist (alt '(nil "" "nothing to see here")) | 145 | (dolist (alt '(nil "" "nothing to see here")) |
| 146 | (with-temp-buffer | 146 | (with-temp-buffer |
| 147 | (ert-info ((format "image with alt=%S" alt)) | 147 | (ert-info ((format "image with alt=%S" alt)) |
| 148 | (let ((attrs (if alt (format " alt=\"%s\"" alt) ""))) | 148 | (let ((attrs (if alt (format " alt=\"%s\">" alt) ">"))) |
| 149 | (insert (format "<img src=\"%s\" %s" image-url attrs))) | 149 | (insert (format "<img src=\"%s\"%s" image-url attrs))) |
| 150 | (cl-letf* (;; Pretend we're a graphical display. | 150 | (cl-letf* (;; Pretend we're a graphical display. |
| 151 | ((symbol-function 'display-graphic-p) #'always) | 151 | ((symbol-function 'display-graphic-p) #'always) |
| 152 | ((symbol-function 'url-queue-retrieve) | 152 | ((symbol-function 'url-queue-retrieve) |