null+****@clear*****
null+****@clear*****
Sun Jul 1 21:42:40 JST 2012
yuta yamada 2012-07-01 21:42:40 +0900 (Sun, 01 Jul 2012) New Revision: fa170bb90825abb1fe2fd0239039f082ddb2b8da https://github.com/logaling/logalimacs/commit/fa170bb90825abb1fe2fd0239039f082ddb2b8da Log: Apply keymap that is enabled the fallback Modified files: logalimacs.el Modified: logalimacs.el (+6 -2) =================================================================== --- logalimacs.el 2012-07-01 20:42:29 +0900 (d9c1553) +++ logalimacs.el 2012-07-01 21:42:40 +0900 (2e4afe1) @@ -147,6 +147,7 @@ Example: (define-key map "k" 'popup-previous) (define-key map "f" 'popup-open) (define-key map "b" 'popup-close) + (define-key map "o" 'loga-fallback) ;; Other function map)) (defun loga-response-of-event (command-alist) @@ -569,8 +570,11 @@ Example: (string-match "[0-9].[0-9].[0-9]" version-string) (match-string 0 version-string))) -(defun loga-fallback (search-word) - (funcall loga-fallback-function search-word)) +(defun loga-fallback (&optional search-word) + (interactive) + (funcall loga-fallback-function (or search-word (caar loga-word-cache))) + ;; exit popup + (keyboard-quit)) (provide 'logalimacs) -------------- next part -------------- An HTML attachment was scrubbed...下载
