[elpa] externals/kiwix c325402 012/192: fix add kiwix link abbrev to org-mode list

[Stefan Monnier]

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

    fix add kiwix link abbrev to org-mode list
---
 kiwix.el | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/kiwix.el b/kiwix.el
index 061dc69..a6802f7 100644
--- a/kiwix.el
+++ b/kiwix.el
@@ -63,9 +63,14 @@
 (org-add-link-type "wiki" 'org-wiki-link-open)
 
 ;; [[Wikipedia_Local:]]
-(add-to-list
- org-link-abbrev-alist
- '("Wikipedia_Local" . 
"http://127.0.0.1:8000/wikipedia_zh_all_2015-11/A/%s.html";))
+(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)