emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/kiwix a613eed 096/192: fix void function org-link-set-p


From: Stefan Monnier
Subject: [elpa] externals/kiwix a613eed 096/192: fix void function org-link-set-parameters 2.
Date: Sat, 19 Dec 2020 00:41:40 -0500 (EST)

branch: externals/kiwix
commit a613eede4e78c0e695bdb975e8bce0033d1725e0
Author: stardiviner <numbchild@gmail.com>
Commit: stardiviner <numbchild@gmail.com>

    fix void function org-link-set-parameters 2.
---
 kiwix.el | 37 +++++++++++++++++++------------------
 1 file changed, 19 insertions(+), 18 deletions(-)

diff --git a/kiwix.el b/kiwix.el
index e699f76..1ac9259 100644
--- a/kiwix.el
+++ b/kiwix.el
@@ -312,25 +312,26 @@ for query string and library interactively."
        :link link
        :description query))))
 
-(autoload 'org-link-set-parameters "org")
 ;;;###autoload
-(if kiwix-support-org-mode-link
-    (progn
-      (org-link-set-parameters "wiki"
-                               :follow #'org-wiki-link-open
-                               :store #'org-wiki-store-link
-                               :export #'org-wiki-link-export)
-      (add-hook 'org-store-link-functions 'org-wiki-store-link t)
-
-      ;; [[Wikipedia_Local:]]
-      ;; (if (and
-      ;;      (member '("Wikipedia_Local" . 
"http://127.0.0.1:8000/wikipedia_zh_all_2015-11/A/%s.html";) 
org-link-abbrev-alist)
-      ;;      (assoc "Wikipedia_Local" org-link-abbrev-alist))
-      ;;
-      ;;     (setq org-link-abbrev-alist
-      ;;           (cons '("Wikipedia_Local" . 
"http://127.0.0.1:8000/wikipedia_zh_all_2015-11/A/%s.html";) 
org-link-abbrev-alist))
-      ;;   )
-      ))
+(with-eval-after-load "org"
+  (if kiwix-support-org-mode-link
+      (progn
+        (org-link-set-parameters "wiki"
+                                 :follow #'org-wiki-link-open
+                                 :store #'org-wiki-store-link
+                                 :export #'org-wiki-link-export)
+        (add-hook 'org-store-link-functions 'org-wiki-store-link t)
+
+        ;; [[Wikipedia_Local:]]
+        ;; (if (and
+        ;;      (member '("Wikipedia_Local" . 
"http://127.0.0.1:8000/wikipedia_zh_all_2015-11/A/%s.html";) 
org-link-abbrev-alist)
+        ;;      (assoc "Wikipedia_Local" org-link-abbrev-alist))
+        ;;
+        ;;     (setq org-link-abbrev-alist
+        ;;           (cons '("Wikipedia_Local" . 
"http://127.0.0.1:8000/wikipedia_zh_all_2015-11/A/%s.html";) 
org-link-abbrev-alist))
+        ;;   )
+        )))
+
 
 
 (provide 'kiwix)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]