null+****@clear*****
null+****@clear*****
Mon Feb 13 13:16:09 JST 2012
yuta yamada 2012-02-13 13:16:09 +0900 (Mon, 13 Feb 2012)
New Revision: a7768a0b3ae2ac565e7c4495ef38c912760e2f47
Log:
fix popup keymap
Modified files:
logalimacs.el
Modified: logalimacs.el (+1 -15)
===================================================================
--- logalimacs.el 2012-02-12 16:57:42 +0900 (e154f1c)
+++ logalimacs.el 2012-02-13 13:16:09 +0900 (a6f25b5)
@@ -411,23 +411,9 @@
(match-string 0 version-string))
(defvar loga-popup-menu-keymap
- (let ((map (make-sparse-keymap)))
- (define-key map "\r" 'popup-select)
- (define-key map "\C-f" 'popup-open)
- (define-key map [right] 'popup-open)
- (define-key map "\C-b" 'popup-close)
- (define-key map [left] 'popup-close)
- (define-key map "\C-n" 'popup-next)
- (define-key map [down] 'popup-next)
- (define-key map "\C-p" 'popup-previous)
- (define-key map [up] 'popup-previous)
- (define-key map [f1] 'popup-help)
- (define-key map (kbd "\C-?") 'popup-help)
- (define-key map "\C-s" 'popup-isearch)
- ;;logalimacs original
+ (let ((map (copy-keymap popup-menu-keymap)))
(define-key map (kbd "q") 'keyboard-quit)
(define-key map (kbd "d") 'loga-lookup-in-buffer)
- ;;-------------------
map))
(loga-check-state)