33 lines
1.1 KiB
EmacsLisp
33 lines
1.1 KiB
EmacsLisp
$NetBSD: patch-lisp_tc-util.el,v 1.1 2012/07/30 13:50:31 makoto Exp $
|
|
|
|
s/last-command-char/last-command-event/
|
|
|
|
--- lisp/tc-util.el.orig 2012-07-30 22:24:44.000000000 +0900
|
|
+++ lisp/tc-util.el 2012-07-30 22:29:13.000000000 +0900
|
|
@@ -305,7 +305,7 @@
|
|
(tcode-preceding-char))))
|
|
(string-match (regexp-quote prev-char)
|
|
tcode-no-following-space-chars)))
|
|
- (tcode-redo-command last-command-char)))
|
|
+ (tcode-redo-command last-command-event)))
|
|
(condition-case nil
|
|
(let* ((echo-keystrokes 0)
|
|
(ch (read-char)))
|
|
@@ -398,7 +398,7 @@
|
|
(cond (elm
|
|
(let (current-prefix-arg)
|
|
(tcode-insert elm)))
|
|
- ((= ch last-command-char)
|
|
+ ((= ch last-command-event)
|
|
(tcode-insert-ya-outset (1+ level)))
|
|
((= ch ? )
|
|
(self-insert-command level))
|
|
@@ -633,7 +633,7 @@
|
|
(unwind-protect
|
|
(let* ((echo-keystrokes 0)
|
|
(ch (read-char)))
|
|
- (cond ((= ch last-command-char)
|
|
+ (cond ((= ch last-command-event)
|
|
(tcode-katakana-preceding-chars (1+ arg)))
|
|
((= ch ?\C-?)
|
|
(tcode-katakana-preceding-chars (- arg)))
|