diff options
Diffstat (limited to 'editors/tamago/files/patch-egg.el')
-rw-r--r-- | editors/tamago/files/patch-egg.el | 55 |
1 files changed, 0 insertions, 55 deletions
diff --git a/editors/tamago/files/patch-egg.el b/editors/tamago/files/patch-egg.el deleted file mode 100644 index 91e85c950809..000000000000 --- a/editors/tamago/files/patch-egg.el +++ /dev/null @@ -1,55 +0,0 @@ ---- egg.el.orig 2015-01-31 19:24:09.000000000 +0900 -+++ egg.el 2015-02-02 00:38:37.000000000 +0900 -@@ -120,10 +120,10 @@ - - (defun egg-activate-keymap-after-command () - (while egg-change-major-mode-buffer -- (save-excursion -- (when (buffer-live-p (car egg-change-major-mode-buffer)) -- (set-buffer (car egg-change-major-mode-buffer)) -- (egg-activate-keymap)) -+ (let ((buf (car egg-change-major-mode-buffer))) -+ (if (buffer-live-p buf) -+ (with-current-buffer buf -+ (egg-activate-keymap))) - (setq egg-change-major-mode-buffer (cdr egg-change-major-mode-buffer)))) - (remove-hook 'post-command-hook 'egg-activate-keymap-after-command)) - -@@ -167,16 +167,22 @@ - (setq egg-modefull-mode t) - (its-define-select-keys egg-modefull-map)) - (setq egg-modeless-mode t)) -- (setq inactivate-current-input-method-function 'egg-mode) -+ (set (if (fboundp 'deactivate-current-input-method-function) -+ 'deactivate-current-input-method-function -+ 'inactivate-current-input-method-function) -+ 'egg-mode) - (setq describe-current-input-method-function 'egg-help) -- (make-local-hook 'input-method-activate-hook) -+ (if (fboundp 'make-local-hook) -+ (eval '(make-local-hook 'input-method-activate-hook))) - (add-hook 'input-method-activate-hook 'its-set-mode-line-title nil t) - (if (eq (selected-window) (minibuffer-window)) - (add-hook 'minibuffer-exit-hook 'egg-exit-from-minibuffer)) - (run-hooks 'egg-mode-hook))) - - (defun egg-exit-from-minibuffer () -- (inactivate-input-method) -+ (if (fboundp 'deactivate-input-method) -+ (deactivate-input-method) -+ (inactivate-input-method)) - (if (<= (minibuffer-depth) 1) - (remove-hook 'minibuffer-exit-hook 'egg-exit-from-minibuffer))) - -@@ -184,7 +190,10 @@ - - (defun egg-self-insert-char () - (interactive) -- (its-start last-command-char (and (eq last-command 'egg-use-context) -+ (its-start (if (boundp 'last-command-event) -+ last-command-event -+ last-command-char) -+ (and (eq last-command 'egg-use-context) - egg-context))) - - (defun egg-remove-all-text-properties (from to &optional object) |