aboutsummaryrefslogtreecommitdiffstats
path: root/editors/tamago/files/patch-egg.el
diff options
context:
space:
mode:
Diffstat (limited to 'editors/tamago/files/patch-egg.el')
-rw-r--r--editors/tamago/files/patch-egg.el55
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)