Add patches, the changes are noted in the ChangeLog diffs included in the patches. Which include fixes for emacs 24, apel is a dep of elscreen, part of fix for bug 425258.

Package-Manager: portage-2.2.7/cvs/Linux x86_64
Manifest-Sign-Key: 0x618E971F

6 files changed, 328 insertions, 19 deletions

diff --git a/app-emacs/apel/ChangeLog b/app-emacs/apel/ChangeLog
index 76ff991dc8bc..5c26ba561cdf 100644
--- a/app-emacs/apel/ChangeLog
+++ b/app-emacs/apel/ChangeLog
@@ -1,6 +1,16 @@
 # ChangeLog for app-emacs/apel
-# Copyright 1999-2011 Gentoo Foundation; Distributed under the GPL v2
-# $Header: /var/cvsroot/gentoo-x86/app-emacs/apel/ChangeLog,v 1.48 2011/05/10 09:50:15 naota Exp $
+# Copyright 1999-2013 Gentoo Foundation; Distributed under the GPL v2
+# $Header: /var/cvsroot/gentoo-x86/app-emacs/apel/ChangeLog,v 1.49 2013/10/03 11:33:28 gienah Exp $
+
+*apel-10.8-r1 (03 Oct 2013)
+
+  03 Oct 2013; Mark Wright <gienah@gentoo.org> +apel-10.8-r1.ebuild,
+  +files/apel-10.8-010_ikazuhiro.patch,
+  +files/apel-10.8-020_Prevent-fontset-error.patch,
+  +files/apel-10.8-040_make-temp-file-for-Emacs-24.3.50.patch:
+  Add patches, the changes are noted in the ChangeLog diffs included in the
+  patches. Which include fixes for emacs 24, apel is a dep of elscreen, part of
+  fix for bug 425258.
 
   10 May 2011; Naohiro Aota <naota@gentoo.org> apel-10.8.ebuild:
   Add ~x86-fbsd keyword
@@ -155,4 +165,3 @@
 
   29 Jun 2003; Daniel Ahlberg <aliz@gentoo.org> :
   Added missing changelog entry.
-
diff --git a/app-emacs/apel/Manifest b/app-emacs/apel/Manifest
index 56246330b210..0a692912f357 100644
--- a/app-emacs/apel/Manifest
+++ b/app-emacs/apel/Manifest
@@ -1,25 +1,20 @@
 -----BEGIN PGP SIGNED MESSAGE-----
-Hash: SHA1
+Hash: SHA256
 
 AUX 50apel-gentoo.el 38 SHA256 f34ea07a3270a25cce3430e4781df47d9903052c9f3a4ea24efb64b1e63bd115 SHA512 5c00bcabe2d7cc03013dc7a54b2c653940c08098ca5646d7c73624cb1ca04376ae9dcf88a7166b1925c69f0c5d192d90f6bd790fdef8ed8c3b0f9d163c987da5 WHIRLPOOL cc5e2fd5081f5fb0018e1fa461c0802c7c90891accc55c02c2935dd3d413c5f8941e918af9341040526b037be4c34dab26008dfca91c153c11fca41338f77c14
+AUX apel-10.8-010_ikazuhiro.patch 6631 SHA256 4143eebbe8d0df934c25503b781e244b465bc37c7ef818aa4876dbc7666d9c97 SHA512 1630c45bec06b019815f1989b2279ba1e85634b9358f65254af1e40fcf51c8426715afe9c014a73928bc4ec59f6b71db1ddffeeadb3499ebc4324571631fd82c WHIRLPOOL 2473e5b4917dceffdf2fcaff8e05b9d14b98937d22c54c72812e68dc89f5822997eeee55f630af4e19201757fc41495ea359821c24d0af243773a47bc4ed31fa
+AUX apel-10.8-020_Prevent-fontset-error.patch 755 SHA256 89b5b037beeb716c1252925728f1c0766404dcd21b66fe28e43d9059b1ffda7b SHA512 4617ec3e48758fb85fffc9d07eb657e00451abc6605b3e65db5d01c99f37824c4232913fd445f387bdbe024409e7b01030b3337fa00ea3f52fafa289ecf11da6 WHIRLPOOL fe84d5efd8d75471d3bae3c92a3221567e649c52028d07eeaa50ce97f1b75c7bb02cc1f2cc528590336d2c375d06d58d42e26393c2b9583963bd2fa87951337d
+AUX apel-10.8-040_make-temp-file-for-Emacs-24.3.50.patch 888 SHA256 cd72d22b18352f9f1eb39c7226e7e4511ba4078fe924256c3e66a4bd5c3b2510 SHA512 50795dff5cdb86a3a778257cfea5894b682e3c74e6b8a0b963606eb0b125158927c499ece14af0da418b491a30f6bbced4d101cf5ee29e4fc110a604d729a778 WHIRLPOOL 6e496c544abd26a0c432ae9b83182da804101e4d57cf155e5f6a9ee6c6989534d97e4b7b07dc88e653df3acd4736bcc1e54cb55c249b392b25c1243dc6aa873d
+DIST apel-10.8-030_Use-new-style-backquotes.patch.gz 7869 SHA256 064edbe19f90e884ea2f5b64479e4498afacbb8d550c3882a4626bdf10a1bc98 SHA512 4074dc612feb2d63637bea2e9303423d4e9e035fad7f440d2da5331a6adc08f5ec61abb5087c2c4c72ec8931d1ccc4db3ffd061bcf3150d20c222c8df2e0b274 WHIRLPOOL f9bf88d85c5cdc8164bc0778bc5275c4e6c494f5927d11bcdf008851d7e2e70c32a3430a936abecc0239da1cf4a9b4a295ff7f4184a488462750f1dd8ac89363
 DIST apel-10.8.tar.gz 126326 SHA256 a511cc36bb51dc32b4915c9e03c67a994060b3156ceeab6fafa0be7874b9ccfe SHA512 39f13f15ec0a078d8f8dfe797899474cf4dfeb0bf7b8432a0c05bb38cf134d805c171a66b3d3efd074fbf294d68006d1e1d49903e45f1991d79cdcb4cca4aa9d WHIRLPOOL d222d3a477430b63e9a383a888fad0bc1871942830f462f505090495740028e517eac4052a72d0c00ea947308a6d75c0cade8ca12f76a81bd58f4643bf72f87d
+EBUILD apel-10.8-r1.ebuild 1684 SHA256 0deb7c2a28eb8ebd26ea900a260006381d62edc57f8d8d1711e320fbb6bd59d8 SHA512 e884eccc3341553f836cbb40992c01327ecd42c086e8b1a07ab45ed1db20d134f97aedd45c35c3990e153cf3a1356ab0271e6023570d36f82ef8d704f2723596 WHIRLPOOL 6cee44e6a6fdb9129ae81516f006aae1e8047d43b9300cd0fc4297d76b5fe4cd5cc26d30c3369f556adf2333ce0e94a61df9d4e9282821d5993c9adf0b3cadbb
 EBUILD apel-10.8.ebuild 1249 SHA256 083348ce05ed5d9002e71e8d8ca731f63c1e0938b8e1e6825f4258eacde0f378 SHA512 91a59584e33d1c4960e428b0787b77bb4caa63349e5ee219ef9cb991ab6e2f88d0c9ede30cbe8459da315ed9bd2bc0b04f38f9f81bfe9485ec0b6b649b61110d WHIRLPOOL 002b97aec0f93e13bd58d762546d4eec6884a3f1a418b6a3e58a1db35ecb0cd5af62a9864f0ee849c04629883df9a768945eab3d08e42df1a8d80e522752f7d0
-MISC ChangeLog 4926 SHA256 c90439a16e0d7607752fc9b24603fd10b7b0b130a01f08fb43b998eab4b796a4 SHA512 5ddca1c705257858919d14aef75aec224bb3b0bb479ec4c8534539c60cddbd7bd9fee0e119155622399aec0c29d07d500bddb34c7802957b8ee8ed01999e63f2 WHIRLPOOL 314bdfd361d57d33dc20ac7d77c5cb401ee0339d45477d658d1a6fdb46e32e10855801756328029997804aa6374b6f63f2277c7f4ea593246a8e6c7a0969d470
+MISC ChangeLog 5358 SHA256 0a27968337ded2481cc22f0b4b8158ce831939e4a7bc640b15ffa23ff15b06da SHA512 b674416217405c28bd1f622a8f3d2d3460b9a58008a74a29186aef4b09aab4b33b6eb2def2b37ed6dba1535e1327ca708046b98abccd21ac23a9074446687374 WHIRLPOOL 2dd18c3107ed2e57ece3c939a24abb5bc8b2c114c5fc3aca0f6ae4b1df603030c066d3acf5be610f578a49c5fb7353b21b365574e49d4f805e35be7b6b29ba50
 MISC metadata.xml 158 SHA256 1393bdef3a74343fdb40a112c7096a1af16f67e7a43413250de28dfe73810eab SHA512 e55d75feae933ba948ae987305ea58e36f5880f18687e8acaf91237e33e251be3ecfd5be27048f4907ea6799e0bcf784b602096dd7e2bc9c450eb5e2bb6a73d2 WHIRLPOOL 1d1676172186235a3e99ca1d148298fb24f6a089f9b7908b3c28c246c8854969835fd3742b8b81e0a30b63d76ee0be0c42bfede2416a30dfc3c8b915a147340c
 -----BEGIN PGP SIGNATURE-----
-Version: GnuPG v2.0.19 (GNU/Linux)
+Version: GnuPG v2.0.20 (GNU/Linux)
 
-iQIcBAEBAgAGBQJP9enyAAoJEDxpGckxwJCBbQEP/RZ2O4CSZfL+95bfflLLsrtI
-8e3vWsijUDk+bvC0jQuTLb8VVB7QXwcUKY3Q1tr5vZWfohfJ3xzfqc3Mv0Y1MJV9
-08LEVKHnk6gMLaWvkr/pzpb5s2LAD8vxXh+RgjHmWEhE+GUI9zP/rH8Wyq3A3dqY
-scZ/Ifwl+05VI1SwxHfPP+tfVL4ZUY3CGowHQsxwUxdlTtvcNjRAGgChb7RZgc0X
-xtxpgVh+esh8muipdX92EHGXOY/v793Ss1VUkUsOEZVYTg5IEqtL1UzCd4ZD1+wl
-R3s4vM3veU5Efr2vhJjLlvcUSWggQM5J/OY981MVYM0BOJcxsaN9WZLjFVSfZ2fh
-QIYRahnYwV0/KUXzhn3uDa90zE1TSFcWEp6vz3X76+3logSGrLcDXrUrz/otew+R
-/sfAG/hLuQU7WZ9fblgjd5Ya3dOW1MgzapM/nDJAvclWrNSB9aPgEG5TB0MV2LMJ
-Mq/qCYM541/EKvj7rpCJQDEvlglCeoH4c/tZSUSFB7gRBkPLXQdSX1pK63a/8jMY
-GsfzQ8Dz2EYzDEWYJXA5sQZ1Z6U4LdghsPG4xYWAgYd9Vbu90ja8+OTBoP1NXsDK
-syaD+RnMJwsfqMxPIW1djN6RB49f9sIWFZhE+SQddgMFQ35G9GARa663hlTdhiv8
-ZhrbR9wJrlR6j6L+Alwo
-=1A0x
+iF4EAREIAAYFAlJNVU8ACgkQoBEVQmGOlx+JKwEAi/pkP+CopKzaU1Vmqn0OGrDa
+1IaRI+V+camawHT/pMUA/R6txTLREI/zwT09vTsL7GDUDa99gnfF9js/CqC2M7yi
+=8rO0
 -----END PGP SIGNATURE-----
diff --git a/app-emacs/apel/apel-10.8-r1.ebuild b/app-emacs/apel/apel-10.8-r1.ebuild
new file mode 100644
index 000000000000..b4b2944794bd
--- /dev/null
+++ b/app-emacs/apel/apel-10.8-r1.ebuild
@@ -0,0 +1,57 @@
+# Copyright 1999-2013 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+# $Header: /var/cvsroot/gentoo-x86/app-emacs/apel/apel-10.8-r1.ebuild,v 1.1 2013/10/03 11:33:28 gienah Exp $
+
+EAPI=4
+
+inherit elisp
+
+DESCRIPTION="A Portable Emacs Library is a library for making portable Emacs Lisp programs."
+HOMEPAGE="http://cvs.m17n.org/elisp/APEL/"
+SRC_URI="ftp://ftp.jpl.org/pub/elisp/apel/${P}.tar.gz
+	http://dev.gentoo.org/~gienah/2big4tree/app-emacs/${PN}/${PN}-10.8-030_Use-new-style-backquotes.patch.gz"
+
+LICENSE="GPL-2"
+SLOT="0"
+KEYWORDS="~alpha ~amd64 ~arm ~hppa ~ia64 ~ppc ~ppc64 ~sparc ~x86 ~x86-fbsd ~amd64-linux ~x86-linux ~ppc-macos ~x86-macos ~sparc-solaris"
+IUSE=""
+
+src_prepare() {
+	elisp_src_prepare
+	epatch "${FILESDIR}/${PN}-10.8-020_Prevent-fontset-error.patch"
+	epatch "${DISTDIR}/${PN}-10.8-030_Use-new-style-backquotes.patch"
+	epatch "${FILEDIR}/${PN}-10.8-010_ikazuhiro.patch"
+	epatch "${FILESDIR}/${PN}-10.8-040_make-temp-file-for-Emacs-24.3.50.patch"
+}
+
+src_prepare() {
+	elisp_src_prepare
+	cat <<-EOF >> APEL-CFG
+	(setq APEL_PREFIX "apel")
+	(setq EMU_PREFIX "apel")
+	EOF
+}
+
+src_compile() {
+	emake PREFIX="${ED}/usr" \
+		LISPDIR="${ED}/${SITELISP}" \
+		VERSION_SPECIFIC_LISPDIR="${ED}/${SITELISP}" || die
+}
+
+src_install() {
+	einstall PREFIX="${ED}/usr" \
+		LISPDIR="${ED}/${SITELISP}" \
+		VERSION_SPECIFIC_LISPDIR="${ED}/${SITELISP}" || die
+
+	elisp-site-file-install "${FILESDIR}/50apel-gentoo.el"
+
+	dodoc ChangeLog README*
+}
+
+pkg_postinst() {
+	elisp-site-regen
+
+	elog "See the README.en file in /usr/share/doc/${PF} for tips"
+	elog "on how to customize this package."
+	elog "And you need to rebuild packages depending on ${PN}."
+}
diff --git a/app-emacs/apel/files/apel-10.8-010_ikazuhiro.patch b/app-emacs/apel/files/apel-10.8-010_ikazuhiro.patch
new file mode 100644
index 000000000000..558939dee9fc
--- /dev/null
+++ b/app-emacs/apel/files/apel-10.8-010_ikazuhiro.patch
@@ -0,0 +1,189 @@
+--- apel-10.8-orig/ChangeLog	2013-10-03 18:17:05.176741628 +1000
++++ apel-10.8/ChangeLog	2013-10-03 18:16:54.442741731 +1000
+@@ -1,3 +1,56 @@
++2013-07-05  Tatsuya Kinoshita  <tats@vega.ocn.ne.jp>
++
++	* mcs-20.el: Really check whether the mule-vesion variable is defined.
++
++2013-07-04  Kazuhiro Ito  <kzhr@d1.dion.ne.jp>
++
++	* mcs-20.el: Check whether the mule-vesion variable is defined.
++	Cf. https://github.com/ikazuhiro/apel/commit/328c02e022340b36dd7e5f9250c7f86d2bafd793
++
++2013-03-24  Kazuhiro Ito  <kzhr@d1.dion.ne.jp>
++
++	* mcs-20.el (mime-charset-to-coding-system): Display the message
++	and use charset name as coding system when
++	`mime-charset-coding-system-alist' indicates invalid coding
++	system.
++
++2012-09-07  Kazuhiro Ito  <kzhr@d1.dion.ne.jp>
++
++	* mcs-e20.el (coding-system-to-mime-charset): Coding system's
++	setting is preferred to mime-charset-coding-system-alist's value.
++	Detect MIME name from mime-charset-coding-system-alist's value
++	more permissively.
++
++2012-08-08  Kazuhiro Ito  <kzhr@d1.dion.ne.jp>
++
++	* poe.el (next-command-event): Fix that Emacs 21 and later were
++	treated as 'Emacs 19, 20.1 and 20.2'.
++
++2012-07-28  Kazuhiro Ito  <kzhr@d1.dion.ne.jp>
++
++	* mcs-e20.el (charsets-mime-charset-alist): Do not use
++	`iso-2022-jp-2'.
++
++2012-07-28  Kazuhiro Ito  <kzhr@d1.dion.ne.jp>
++
++	* mcs-20.el (detect-mime-charset-string): (Emacs23 and later) New
++	function.
++	(detect-mime-charset-region): Use it.
++
++2011-06-17  Kazuhiro Ito  <kzhr@d1.dion.ne.jp>
++
++	* mcs-20.el (detect-mime-charset-region): (Emacs23 and later) Do
++	not check whether `charsets-mime-charset-alist' contains non
++	charset symbol.
++
++	* mcs-e20.el (charsets-mime-charset-alist): Remove non charset
++	symbol for Emacs 23 and later.
++
++2010-03-19  Kazuhiro Ito  <kzhr@d1.dion.ne.jp>
++
++	* mcs-20.el (detect-mime-charset-region): Do not care priority of
++	charsets on Emacs 23 and later.
++
+ 2011-07-17  David Maus  <dmaus@ictsoc.de>
+ 
+ 	* tinycustom.el (defcustom): Use new style backquotes.
+--- apel-10.8-orig/mcs-20.el	2005-07-06 12:08:52.000000000 +1000
++++ apel-10.8/mcs-20.el	2013-10-03 17:44:42.936760151 +1000
+@@ -84,11 +84,13 @@
+   (if (stringp charset)
+       (setq charset (intern (downcase charset)))
+     )
+-  (let ((cs (assq charset mime-charset-coding-system-alist)))
+-    (setq cs
+-	  (if cs
+-	      (cdr cs)
+-	    charset))
++  (let ((cs (cdr (assq charset mime-charset-coding-system-alist))))
++    (unless (or (null cs) (find-coding-system cs))
++      (message
++       "Invalid coding system: %s.  Confirm mime-charset-coding-system-alist."
++       cs)
++      (setq cs nil))
++    (unless cs (setq cs charset))
+     (if lbt
+ 	(setq cs (intern (format "%s-%s" cs
+ 				 (cond ((eq lbt 'CRLF) 'dos)
+@@ -96,12 +98,11 @@
+ 				       ((eq lbt 'CR) 'mac)
+ 				       (t lbt)))))
+       )
+-    (if (find-coding-system cs)
+-	cs
+-      (if mime-charset-to-coding-system-default-method
+-	  (funcall mime-charset-to-coding-system-default-method
+-		   charset lbt cs)
+-	))))
++    (or (find-coding-system cs)
++	(if mime-charset-to-coding-system-default-method
++	    (funcall mime-charset-to-coding-system-default-method
++		     charset lbt cs)
++	  ))))
+ 
+ (defalias 'mime-charset-p 'mime-charset-to-coding-system)
+ 
+@@ -209,6 +210,34 @@
+ 	(setq rest (cdr rest)))
+       default-mime-charset-for-write)))
+ )
++
++((eval-when-compile (and (boundp 'mule-version)
++			 (null (string< mule-version "6.0"))))
++;; for Emacs 23 and later
++(defun detect-mime-charset-string (string)
++  "Return MIME charset for STRING."
++  (let ((src (string-to-list string))
++	tmp)
++    (setq tmp src)
++    ;; Uniquify the list of characters.
++    (while tmp
++      (setq tmp (setcdr tmp (delq (car tmp) (cdr tmp)))))
++    ;; Detect charset from the list of characters.
++    (catch 'found
++      (mapc (lambda (cons)
++	      (catch 'next
++		(mapc (lambda (ch) (unless (char-charset ch (car cons))
++				     (throw 'next nil)))
++		      src)
++		(throw 'found (cdr cons))))
++	    charsets-mime-charset-alist)
++      default-mime-charset-for-write)))
++
++(defsubst detect-mime-charset-region (start end)
++  "Return MIME charset for region between START and END."
++  (detect-mime-charset-string
++   (buffer-substring-no-properties start end))))
++
+ (t
+ ;; for legacy Mule
+ (defun detect-mime-charset-region (start end)
+--- apel-10.8-orig/mcs-e20.el	2005-07-06 12:08:52.000000000 +1000
++++ apel-10.8/mcs-e20.el	2013-10-03 17:44:42.936760151 +1000
+@@ -90,11 +90,15 @@
+      ((ascii korean-ksc5601)				. euc-kr)
+      ((ascii chinese-gb2312)				. gb2312)
+      ((ascii chinese-big5-1 chinese-big5-2)		. big5)
+-     ((ascii thai-tis620 composition)			. tis-620)
+-     ((ascii latin-iso8859-1 greek-iso8859-7
+-	     latin-jisx0201 japanese-jisx0208-1978
+-	     chinese-gb2312 japanese-jisx0208
+-	     korean-ksc5601 japanese-jisx0212)		. iso-2022-jp-2)
++     ,(static-cond
++       ((null (string< mule-version "6.0"))
++	'((ascii thai-tis620)				. tis-620))
++       (t
++	'((ascii thai-tis620 composition)      		. tis-620)))
++     ;; ((ascii latin-iso8859-1 greek-iso8859-7
++     ;; 	     latin-jisx0201 japanese-jisx0208-1978
++     ;; 	     chinese-gb2312 japanese-jisx0208
++     ;; 	     korean-ksc5601 japanese-jisx0212)		. iso-2022-jp-2)
+      ;;((ascii latin-iso8859-1 greek-iso8859-7
+      ;;        latin-jisx0201 japanese-jisx0208-1978
+      ;;        chinese-gb2312 japanese-jisx0208
+@@ -119,8 +123,16 @@
+ (defun coding-system-to-mime-charset (coding-system)
+   "Convert CODING-SYSTEM to a MIME-charset.
+ Return nil if corresponding MIME-charset is not found."
+-  (or (car (rassq coding-system mime-charset-coding-system-alist))
+-      (coding-system-get coding-system 'mime-charset)
++  (or (coding-system-get coding-system 'mime-charset)
++      (let ((coding (coding-system-base coding-system))
++	    (alist mime-charset-coding-system-alist)
++	    result)
++	(while alist
++	  (if (eq (coding-system-base (cdar alist)) coding)
++	      (setq result (caar alist)
++		    alist nil)
++	    (setq alist (cdr alist))))
++	result)
+       ))
+ 
+ (defun-maybe-cond mime-charset-list ()
+--- apel-10.8-orig/poe.el	2013-10-03 17:43:11.327761025 +1000
++++ apel-10.8/poe.el	2013-10-03 17:44:42.937760151 +1000
+@@ -1996,8 +1996,9 @@
+ returned.
+ If PROMPT is non-nil, it should be a string and will be displayed in
+ the echo area while this function is waiting for an event."
+-  ((and (>= emacs-major-version 20)
+-	(>= emacs-minor-version 4))
++  ((or (>= emacs-major-version 21)
++       (and (>= emacs-major-version 20)
++	    (>= emacs-minor-version 4)))
+    ;; Emacs 20.4 and later.
+    (read-event prompt))			; should specify 2nd arg?
+   ((and (= emacs-major-version 20)
diff --git a/app-emacs/apel/files/apel-10.8-020_Prevent-fontset-error.patch b/app-emacs/apel/files/apel-10.8-020_Prevent-fontset-error.patch
new file mode 100644
index 000000000000..9cea1e675276
--- /dev/null
+++ b/app-emacs/apel/files/apel-10.8-020_Prevent-fontset-error.patch
@@ -0,0 +1,32 @@
+Description: Prevent an error of fontset-pixel-size for Emacs 23.
+Bug-Debian: http://bugs.debian.org/477177
+Author: Tatsuya Kinoshita <tats@debian.org>
+
+--- a/ChangeLog
++++ b/ChangeLog
+@@ -0,0 +1,5 @@
++2010-02-14  Tatsuya Kinoshita  <tats@vega.ocn.ne.jp>
++
++	* poem-e20.el (fontset-pixel-size): Don't cause an error. Workaround
++	for Emacs 23.
++
+--- a/poem-e20.el
++++ b/poem-e20.el
+@@ -25,6 +25,7 @@
+ ;;; Code:
+ 
+ (defun fontset-pixel-size (fontset)
++ (condition-case nil
+   (let* ((info (fontset-info fontset))
+ 	 (height (aref info 1))
+ 	 )
+@@ -32,7 +33,8 @@
+ 	  ((string-match "-\\([0-9]+\\)-" fontset)
+ 	   (string-to-number
+ 	    (substring fontset (match-beginning 1)(match-end 1))))
+-	  (t 0))))
++	  (t 0)))
++  (error 0)))
+ 
+ 
+ ;;; @ character set
diff --git a/app-emacs/apel/files/apel-10.8-040_make-temp-file-for-Emacs-24.3.50.patch b/app-emacs/apel/files/apel-10.8-040_make-temp-file-for-Emacs-24.3.50.patch
new file mode 100644
index 000000000000..30b0abc8ef77
--- /dev/null
+++ b/app-emacs/apel/files/apel-10.8-040_make-temp-file-for-Emacs-24.3.50.patch
@@ -0,0 +1,27 @@
+Subject: Fix wrong type argument on Emacs 24.3.50 to check make-temp-file
+From: Tatsuya Kinoshita <tats@debian.org>
+Bug-Debian: http://bugs.debian.org/718765
+
+diff --git a/ChangeLog b/ChangeLog
+index 8e96224..9505b2e 100644
+--- a/ChangeLog
++++ b/ChangeLog
+@@ -0,0 +1,5 @@
++2013-08-05  Tatsuya Kinoshita  <tats@vega.ocn.ne.jp>
++
++	* poe.el: Fix wrong type argument on Emacs 24.3.50 to check
++	`make-temp-file'.
++
+diff --git a/poe.el b/poe.el
+index be52847..b381f90 100644
+--- a/poe.el
++++ b/poe.el
+@@ -1667,7 +1667,7 @@ See `walk-windows' for the meaning of MINIBUF and FRAME."
+                      )))
+       ;; arglist: (prefix &optional dir-flag suffix)
+       (cond
+-       ((not arglist)
++       ((or (not arglist) (not (listp arglist)))
+         ;; `make-temp-file' is a built-in; expects 3-args.
+         (put 'make-temp-file 'defun-maybe '3-args))
+        ((> (length arglist) 3)