add zero-quickdial.el

;; a simple input method written as an emacs minor mode

(defun zero-quickdial-insert-one ()

  (interactive)

  (insert "one"))

(defun zero-quickdial-insert-two ()

  (interactive)

  (insert "two"))

(defun zero-quickdial-insert-three ()

  (interactive)

  (insert "three"))

(defvar zero-quickdial-mode-map nil "zero-quickdial-mode keymap")

(setq zero-quickdial-mode-map

      (list 'keymap

	    '(49 . zero-quickdial-insert-one)

	    '(50 . zero-quickdial-insert-two)

	    '(51 . zero-quickdial-insert-three)))

(define-minor-mode zero-quickdial-mode

  "a simple input method written as an emacs minor mode"

  nil

  "Quickdial"

  zero-quickdial-mode-map)

(provide 'zero-quickdial)