Fix runtime failure with Emacs 24.3.

(Portage version: 2.1.12.13/cvs/Linux x86_64, signed Manifest commit with key 9433907D693FB5B8!)

3 files changed, 79 insertions, 2 deletions

diff --git a/app-emacs/teco/ChangeLog b/app-emacs/teco/ChangeLog
index b72d5d398556..6c72418137d1 100644
--- a/app-emacs/teco/ChangeLog
+++ b/app-emacs/teco/ChangeLog
@@ -1,6 +1,12 @@
 # ChangeLog for app-emacs/teco
-# Copyright 1999-2011 Gentoo Foundation; Distributed under the GPL v2
-# $Header: /var/cvsroot/gentoo-x86/app-emacs/teco/ChangeLog,v 1.1 2011/11/24 17:54:57 ulm Exp $
+# Copyright 1999-2013 Gentoo Foundation; Distributed under the GPL v2
+# $Header: /var/cvsroot/gentoo-x86/app-emacs/teco/ChangeLog,v 1.2 2013/07/30 22:26:02 ulm Exp $
+
+*teco-7-r1 (30 Jul 2013)
+
+  30 Jul 2013; Ulrich Müller <ulm@gentoo.org> +teco-7-r1.ebuild,
+  +files/teco-7-emacs-24.patch:
+  Fix runtime failure with Emacs 24.3.
 
 *teco-7 (24 Nov 2011)
 
diff --git a/app-emacs/teco/files/teco-7-emacs-24.patch b/app-emacs/teco/files/teco-7-emacs-24.patch
new file mode 100644
index 000000000000..0b3251919ddb
--- /dev/null
+++ b/app-emacs/teco/files/teco-7-emacs-24.patch
@@ -0,0 +1,47 @@
+--- teco.el
++++ teco.el
+@@ -312,7 +312,7 @@
+   "Return string describing the version of Teco.  When called interactively,
+ displays the version."
+   (interactive)
+-  (if (interactive-p)
++  (if (called-interactively-p 'interactive)
+       (message "Teco version %s" (teco-version))
+     teco-version))
+ 
+@@ -2254,7 +2254,7 @@
+ 
+ (defun teco:command-self-insert ()
+   (interactive)
+-  (teco:command-insert-character last-command-char))
++  (teco:command-insert-character last-command-event))
+ 
+ (defun teco:command-quit ()
+   (interactive)
+@@ -2267,7 +2267,7 @@
+ 
+ (defun teco:command-return ()
+   (interactive)
+-  (setq last-command-char ?\n)
++  (setq last-command-event ?\n)
+   (teco:command-self-insert))
+ 
+ (defun teco:command-escape ()
+@@ -2275,7 +2275,7 @@
+   ;; Two ESCs in a row terminate the command string
+   (if (eq last-command 'teco:command-escape)
+       (throw 'teco:command-quit (minibuffer-contents-no-properties)))
+-  (teco:command-insert-character last-command-char))
++  (teco:command-insert-character last-command-event))
+ 
+ (defun teco:command-ctrl-u ()
+   (interactive)
+@@ -2334,7 +2334,7 @@
+       ;; q-register
+       (progn
+ 	;; insert the * into the buffer
+-	(teco:command-insert-character last-command-char)
++	(teco:command-insert-character last-command-event)
+ 	;; read the next character
+ 	(let ((c (read-char))
+ 	      c1)
diff --git a/app-emacs/teco/teco-7-r1.ebuild b/app-emacs/teco/teco-7-r1.ebuild
new file mode 100644
index 000000000000..4c484bb8495d
--- /dev/null
+++ b/app-emacs/teco/teco-7-r1.ebuild
@@ -0,0 +1,24 @@
+# Copyright 1999-2013 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+# $Header: /var/cvsroot/gentoo-x86/app-emacs/teco/teco-7-r1.ebuild,v 1.1 2013/07/30 22:26:02 ulm Exp $
+
+EAPI=5
+
+inherit readme.gentoo elisp
+
+DESCRIPTION="TECO interpreter for GNU Emacs"
+HOMEPAGE="http://www.emacswiki.org/emacs/TECO"
+# taken from: http://www.emacswiki.org/emacs/teco.el
+SRC_URI="mirror://gentoo/${P}.el.bz2"
+
+LICENSE="public-domain"
+SLOT="0"
+KEYWORDS="~amd64 ~x86"
+
+ELISP_PATCHES="${P}-minibuffer-prompt.patch
+	${P}-emacs-24.patch"
+SITEFILE="50${PN}-gentoo.el"
+DOC_CONTENTS="To be able to invoke Teco directly, define a keybinding
+	for teco:command in your ~/.emacs file, e.g.:
+	\\n\\t(global-set-key \"\\C-z\" 'teco:command)
+	\\nSee ${SITELISP}/${PN}/teco.el for documentation."