summaryrefslogtreecommitdiff
path: root/app-emacs/mediawiki/files
diff options
context:
space:
mode:
authorV3n3RiX <venerix@redcorelinux.org>2019-09-08 01:07:24 +0100
committerV3n3RiX <venerix@redcorelinux.org>2019-09-08 01:07:24 +0100
commite3cf2c86fca1750343c1885311f857f185ee4f2d (patch)
treed9d1fbc20509d4c90f57fb2d9e1459bc8034c831 /app-emacs/mediawiki/files
parentf1af93971b7490792d8541bc790e0d8c6d787059 (diff)
gentoo resync : 08.09.2019
Diffstat (limited to 'app-emacs/mediawiki/files')
-rw-r--r--app-emacs/mediawiki/files/50mediawiki-gentoo-2.2.9.el11
-rw-r--r--app-emacs/mediawiki/files/mediawiki-2.2.9-user-agent.patch25
2 files changed, 36 insertions, 0 deletions
diff --git a/app-emacs/mediawiki/files/50mediawiki-gentoo-2.2.9.el b/app-emacs/mediawiki/files/50mediawiki-gentoo-2.2.9.el
new file mode 100644
index 000000000000..cc9c5b714fb3
--- /dev/null
+++ b/app-emacs/mediawiki/files/50mediawiki-gentoo-2.2.9.el
@@ -0,0 +1,11 @@
+(add-to-list 'load-path "@SITELISP@")
+(autoload 'mediawiki-open "mediawiki"
+ "Open a wiki page specified by NAME from the mediawiki engine" t)
+(autoload 'mediawiki-site "mediawiki"
+ "Set up mediawiki.el for a site." t)
+(eval-after-load "mediawiki"
+ '(add-to-list
+ 'mediawiki-site-alist
+ '("Gentoo" "https://wiki.gentoo.org/" "" "" nil "Main Page")
+ nil
+ (lambda (a b) (equal (car a) (car b)))))
diff --git a/app-emacs/mediawiki/files/mediawiki-2.2.9-user-agent.patch b/app-emacs/mediawiki/files/mediawiki-2.2.9-user-agent.patch
new file mode 100644
index 000000000000..2d64e410b9e0
--- /dev/null
+++ b/app-emacs/mediawiki/files/mediawiki-2.2.9-user-agent.patch
@@ -0,0 +1,25 @@
+Fix "(wrong-type-argument stringp default)" in url-compat-retrieve.
+https://github.com/hexmode/mediawiki-el/issues/27
+
+--- mediawiki-el-2.2.9-orig/mediawiki.el
++++ mediawiki-el-2.2.9/mediawiki.el
+@@ -414,10 +414,15 @@
+ POST-PROCESS is the function to call for post-processing.
+ BUFFER is the buffer to store the result in. CALLBACK will be
+ called in BUFFER with CBARGS, if given."
+- (let ((url-user-agent (concat (string-trim (if (functionp url-user-agent)
+- (funcall url-user-agent)
+- url-user-agent))
+- " mediawiki.el " mediawiki-version "\r\n")))
++ (let ((url-user-agent
++ (if (eq url-user-agent 'default)
++ 'default
++ (concat (string-trim (if (functionp url-user-agent)
++ (funcall url-user-agent)
++ url-user-agent))
++ " mediawiki.el " mediawiki-version "\r\n")))
++ (url-package-name "mediawiki.el")
++ (url-package-version mediawiki-version))
+ (cond ((boundp 'url-be-asynchronous) ; Sniff w3 lib capability
+ (if callback
+ (setq url-be-asynchronous t)