Changeset View
Changeset View
Standalone View
Standalone View
head/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 12:46:00 UTC | ||||
| +++ src-util/anthy.el 2013-05-15 01:58:25.000000000 +0900 | +++ src-util/anthy.el | ||||
| @@ -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)) | ||||
| ;; | ;; | ||||
| ;; | ;; | ||||