Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:ykoba:m17n
anthy_ghal
anthy-last-command-char-xemacs_emacs-27.1.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File anthy-last-command-char-xemacs_emacs-27.1.patch of Package anthy_ghal
--- ./src-util/anthy.el.orig 2013-07-26 09:00:00.000000000 +0900 +++ ./src-util/anthy.el 2022-11-19 00:56:51.683058547 +0900 @@ -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)) @@ -887,9 +887,9 @@ (if anthy-xemacs (let ((event last-command-event)) (cond - ((event-matches-key-specifier-p event 'left) 2) - ((event-matches-key-specifier-p event 'right) 6) - ((event-matches-key-specifier-p event 'backspace) 8) + ((equal event (character-to-event 'left)) 2) + ((equal event (character-to-event 'right)) 6) + ((equal event (character-to-event 'backspace)) 8) (t (char-to-int (event-to-character event))))) last-command-event))
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor