[elpa] externals/clhs b769733 03/25: (clhs-table-buffer): permit many spaces between "200" and "OK"

[Sam Steingold]

branch: externals/clhs
commit b7697337aefc40f26b1ee0382f787f764218abbf
Author: Sam Steingold <sds@gnu.org>
Commit: Sam Steingold <sds@gnu.org>

    (clhs-table-buffer): permit many spaces between "200" and "OK"
---
 clhs.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/clhs.el b/clhs.el
index cd28f4a..ca7dd23 100644
--- a/clhs.el
+++ b/clhs.el
@@ -63,12 +63,12 @@ something like \"file:/usr/local/doc/HyperSpec/\"."
            (f (concat d "Map_Sym.txt")))
       (set-buffer (url-retrieve-synchronously f))
       (goto-char 0)
-      (unless (looking-at "^HTTP/.*200 OK$")
+      (unless (looking-at "^HTTP/.*200 *OK$")
         (kill-buffer (current-buffer))
         (setq f (concat d "Symbol-Table.text"))
         (set-buffer (url-retrieve-synchronously f))
         (goto-char 0)
-        (unless (looking-at "^HTTP/.*200 OK$")
+        (unless (looking-at "^HTTP/.*200 *OK$")
           (kill-buffer (current-buffer))
           (error "no symbol table at ~s" root)))
       ;; skip to the first symbol