(if (null (string= (car arg) egg-last-method-name))
(progn
(funcall (nth 1 arg))
- (egg-set-conversion-backend nil (list its-current-language) t)
(setq egg-default-language its-current-language)))
(setq egg-last-method-name (car arg))
(use-local-map (if egg-mode-preference
"Generate modefull keymap for EGG mode."
(let ((map (make-sparse-keymap))
(i 33))
- (define-key map "\C-_" 'egg-jis-code-input)
+ ;; BAD BAD BAD it should be UNDO
+ ;; (define-key map "\C-_" 'egg-jis-code-input)
(while (< i 127)
(define-key map (vector i) 'egg-self-insert-char)
(setq i (1+ i)))
(require 'egg-mlh)
(require 'egg-cnv)
(require 'egg-com)
-(require 'custom)
+(require 'custom) ; Really?
(defgroup egg nil
"Tamagotchy --- EGG Versio 4.0")
-(defvar egg-support-languages nil)
-
-(defun egg-set-support-languages (langs)
- (while langs
- (if (null (member (car langs) egg-support-languages))
- (setq egg-support-languages (cons (car langs) egg-support-languages)))
- (setq langs (cdr langs))))
-
(add-hook 'kill-emacs-hook 'egg-kill-emacs-function)
(defun egg-kill-emacs-function ()
(egg-finalize-backend))