| 1 |
ulm 13/07/30 22:26:02 |
| 2 |
|
| 3 |
Added: teco-7-emacs-24.patch |
| 4 |
Log: |
| 5 |
Fix runtime failure with Emacs 24.3. |
| 6 |
|
| 7 |
(Portage version: 2.1.12.13/cvs/Linux x86_64, signed Manifest commit with key 9433907D693FB5B8!) |
| 8 |
|
| 9 |
Revision Changes Path |
| 10 |
1.1 app-emacs/teco/files/teco-7-emacs-24.patch |
| 11 |
|
| 12 |
file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/app-emacs/teco/files/teco-7-emacs-24.patch?rev=1.1&view=markup |
| 13 |
plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/app-emacs/teco/files/teco-7-emacs-24.patch?rev=1.1&content-type=text/plain |
| 14 |
|
| 15 |
Index: teco-7-emacs-24.patch |
| 16 |
=================================================================== |
| 17 |
--- teco.el |
| 18 |
+++ teco.el |
| 19 |
@@ -312,7 +312,7 @@ |
| 20 |
"Return string describing the version of Teco. When called interactively, |
| 21 |
displays the version." |
| 22 |
(interactive) |
| 23 |
- (if (interactive-p) |
| 24 |
+ (if (called-interactively-p 'interactive) |
| 25 |
(message "Teco version %s" (teco-version)) |
| 26 |
teco-version)) |
| 27 |
|
| 28 |
@@ -2254,7 +2254,7 @@ |
| 29 |
|
| 30 |
(defun teco:command-self-insert () |
| 31 |
(interactive) |
| 32 |
- (teco:command-insert-character last-command-char)) |
| 33 |
+ (teco:command-insert-character last-command-event)) |
| 34 |
|
| 35 |
(defun teco:command-quit () |
| 36 |
(interactive) |
| 37 |
@@ -2267,7 +2267,7 @@ |
| 38 |
|
| 39 |
(defun teco:command-return () |
| 40 |
(interactive) |
| 41 |
- (setq last-command-char ?\n) |
| 42 |
+ (setq last-command-event ?\n) |
| 43 |
(teco:command-self-insert)) |
| 44 |
|
| 45 |
(defun teco:command-escape () |
| 46 |
@@ -2275,7 +2275,7 @@ |
| 47 |
;; Two ESCs in a row terminate the command string |
| 48 |
(if (eq last-command 'teco:command-escape) |
| 49 |
(throw 'teco:command-quit (minibuffer-contents-no-properties))) |
| 50 |
- (teco:command-insert-character last-command-char)) |
| 51 |
+ (teco:command-insert-character last-command-event)) |
| 52 |
|
| 53 |
(defun teco:command-ctrl-u () |
| 54 |
(interactive) |
| 55 |
@@ -2334,7 +2334,7 @@ |
| 56 |
;; q-register |
| 57 |
(progn |
| 58 |
;; insert the * into the buffer |
| 59 |
- (teco:command-insert-character last-command-char) |
| 60 |
+ (teco:command-insert-character last-command-event) |
| 61 |
;; read the next character |
| 62 |
(let ((c (read-char)) |
| 63 |
c1) |
Archives