Author: sasugaanija Date: Sat Dec 15 03:18:43 2007 New Revision: 5058
Modified: trunk/emacs/uim-keymap.el Log: * emacs/uim-keymap.el - (uim-reorder-minor-mode-map-alist): New function which moves uim-mode-map to the top of the minor-mode-map-alist. Modified: trunk/emacs/uim-keymap.el ============================================================================== --- trunk/emacs/uim-keymap.el (original) +++ trunk/emacs/uim-keymap.el Sat Dec 15 03:18:43 2007 @@ -242,6 +242,15 @@ ) +(defun uim-reorder-minor-mode-map-alist () + (interactive) + (let ((inhibit-quit t) member) + (setq member (assq 'uim-mode minor-mode-map-alist)) + (if member + (setq minor-mode-map-alist + (cons member + (delq member minor-mode-map-alist)))))) + (defun uim-reset-keymap () (uim-init-keymap)
