branch: externals/kiwix
commit 86c6b1a02a177204eb27f2b28225bfd14c19de01
Author: stardiviner <numbch...@gmail.com>
Commit: stardiviner <numbch...@gmail.com>
fix free variable link in function.
---
kiwix.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/kiwix.el b/kiwix.el
index 5416050..12185a3 100644
--- a/kiwix.el
+++ b/kiwix.el
@@ -252,7 +252,7 @@ for query string and library interactively."
;; - group 2: link? (match everything but ], space, tab, carriage return,
linefeed by using [^] \n\t\r]*)
;; for open wiki search query with local application database.
-(defun kiwix-org-get-library ()
+(defun kiwix-org-get-library (link)
"Get library from Org-mode link."
(if (string-match-p "[a-zA-Z\ ]+" (match-string 2 link)) ; validate query is
English
;; convert between libraries full name and abbrev.
@@ -269,7 +269,7 @@ for query string and library interactively."
;; The regexp: (library):query
;; - query : should not exclude space
(when (string-match "\\(?:(\\(.*\\)):\\)?\\([^]\n\t\r]*\\)" link) ;
(library):query
- (let* ((library (kiwix-org-get-library))
+ (let* ((library (kiwix-org-get-library link))
(query (match-string 2 link))
(url (concat
kiwix-server-url
@@ -290,7 +290,7 @@ for query string and library interactively."
(defun org-wikipedia-link-export (link description format)
"Export the Wikipedia LINK with DESCRIPTION for FORMAT from Org files."
(when (string-match "\\(?:(\\(.*\\)):\\)?\\([^] \n\t\r]*\\)" link)
- (let* ((library (kiwix-org-get-library))
+ (let* ((library (kiwix-org-get-library link))
(query (url-encode-url (or (match-string 2 link) description)))
;; "http://en.wikipedia.org/wiki/Linux";
;; --
