[elpa] externals/elisa 8a2c92dc34 54/98: Fix parsing info manuals

[ELPA Syncer]

branch: externals/elisa
commit 8a2c92dc3489c164e8b5b7d72480cbd99fd87539
Author: Sergey Kostyaev <kostyaev.sergey2@wb.ru>
Commit: Sergey Kostyaev <kostyaev.sergey2@wb.ru>

    Fix parsing info manuals
---
 elisa.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/elisa.el b/elisa.el
index 09139a4de6..eacc8bf80e 100644
--- a/elisa.el
+++ b/elisa.el
@@ -374,17 +374,20 @@ FOREIGN KEY(collection_id) REFERENCES collections(rowid)
                     (if-let ((rowid (caar (sqlite-select
                                            elisa-db
                                            (format "select rowid from data 
where kind_id = %s and collection_id = %s and path = '%s' and hash = '%s';"
-                                                   kind-id collection-id 
node-name hash)))))
+                                                   kind-id collection-id
+                                                   (elisa-sqlite-escape 
node-name) hash)))))
                         nil
                       (sqlite-execute
                        elisa-db
                        (format
                         "insert into data(kind_id, collection_id, path, hash, 
data) values (%s, %s, '%s', '%s', '%s');"
-                        kind-id collection-id node-name hash 
(elisa-sqlite-escape text)))
+                        kind-id collection-id
+                        (elisa-sqlite-escape node-name) hash 
(elisa-sqlite-escape text)))
                       (caar (sqlite-select
                              elisa-db
                              (format "select rowid from data where kind_id = 
%s and collection_id = %s and path = '%s' and hash = '%s';"
-                                     kind-id collection-id node-name hash))))))
+                                     kind-id collection-id
+                                     (elisa-sqlite-escape node-name) hash))))))
               (when rowid
                 (sqlite-execute
                  elisa-db
@@ -396,8 +399,7 @@ FOREIGN KEY(collection_id) REFERENCES collections(rowid)
                          rowid (elisa-sqlite-escape text))))))
           chunks)
          (condition-case nil
-             (progn (funcall-interactively #'Info-forward-node)
-                    (sleep-for 0 10))
+             (funcall-interactively #'Info-forward-node)
            (error
             (setq continue nil))))))))