SHA256
1
0
forked from pool/anthy
anthy/bugzilla-1175274-emacs-27.1.patch

38 lines
1.2 KiB
Diff
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

There is no (process-kill-without-query) anymore, use
(set-process-query-on-exit-flag) instead.
---
src-util/anthy.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
Index: anthy-9100h/src-util/anthy.el
===================================================================
--- anthy-9100h.orig/src-util/anthy.el
+++ anthy-9100h/src-util/anthy.el
@@ -161,11 +161,11 @@
;; 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))
- )))
+ `(progn
+ (defvar ,var ,default-value
+ ,(format "%s\n\(buffer local\)" documentation))
+ (make-variable-buffer-local ',var)
+ ))
;; buffer local variables
(anthy-deflocalvar anthy-context-id nil "$B%3%s%F%-%9%H$N(Bid")
@@ -745,7 +745,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))