Changeset View
Changeset View
Standalone View
Standalone View
japanese/anthy/files/patch-src-util_anthy.el
--- src-util/anthy.el.orig 2013-05-15 01:57:21.000000000 +0900 | --- src-util/anthy.el.orig 2008-11-29 21:46:00.000000000 +0900 | ||||
+++ src-util/anthy.el 2013-05-15 01:58:25.000000000 +0900 | +++ src-util/anthy.el 2019-04-15 15:26:20.234123000 +0900 | ||||
@@ -892,7 +892,7 @@ | @@ -161,11 +161,9 @@ | ||||
;; From skk-macs.el From viper-util.el. Welcome! | |||||
(defmacro anthy-deflocalvar (var default-value &optional documentation) | |||||
- (` (progn | |||||
- (defvar (, var) (, default-value) | |||||
- (, (format "%s\n\(buffer local\)" documentation))) | |||||
- (make-variable-buffer-local '(, var)) | |||||
- ))) | |||||
+ `(defvar ,var ,default-value | |||||
+ ,(format "%s\n\(buffer local\)" documentation)) | |||||
+ ) | |||||
;; buffer local variables | |||||
(anthy-deflocalvar anthy-context-id nil "␛$B%3%s%F%-%9%H$N␛(Bid") | |||||
@@ -745,7 +743,7 @@ | |||||
(if anthy-agent-process | |||||
(kill-process anthy-agent-process)) | |||||
(setq anthy-agent-process proc) | |||||
- (process-kill-without-query proc) | |||||
+ (set-process-query-on-exit-flag proc nil) | |||||
(if anthy-xemacs | |||||
(if (coding-system-p (find-coding-system 'euc-japan)) | |||||
(set-process-coding-system proc 'euc-japan 'euc-japan)) | |||||
@@ -892,7 +890,7 @@ | |||||
((event-matches-key-specifier-p event 'backspace) 8) | ((event-matches-key-specifier-p event 'backspace) 8) | ||||
(t | (t | ||||
(char-to-int (event-to-character event))))) | (char-to-int (event-to-character event))))) | ||||
- last-command-char)) | - last-command-char)) | ||||
+ last-command-event)) | + last-command-event)) | ||||
;; | ;; | ||||
;; | ;; |