Yuta Yamada
null+****@clear*****
Thu Aug 23 14:56:01 JST 2012
Yuta Yamada 2012-08-23 14:56:01 +0900 (Thu, 23 Aug 2012) New Revision: 8adf8a84318920e63358fc92b13466f0f2b2e196 https://github.com/logaling/logalimacs/commit/8adf8a84318920e63358fc92b13466f0f2b2e196 Log: Move loga-command-alist to read by letter Modified files: logalimacs.el Modified: logalimacs.el (+17 -15) =================================================================== --- logalimacs.el 2012-08-23 14:55:09 +0900 (0c3c7a8) +++ logalimacs.el 2012-08-23 14:56:01 +0900 (97acace) @@ -172,21 +172,6 @@ Example: ("wives" "wife") ("thieves" "thief"))) -(defvar loga-command-alist - '((?a . :add) - (?c . :config) - (?d . :delete) - (?h . :help) - (?i . :import) - (?l . :lookup) - (?L . :list) - (?n . :new) - (?r . :register) - (?U . :unregister) - (?u . :update) - (?s . :show) - (?v . :version))) - (defvar loga-buffer-or-popup-command-alist '((?b . :buffer) (?q . :quit) @@ -196,6 +181,8 @@ Example: (?k . :previous-line) (?d . :detail))) +(defvar loga-command-alist nil) + (defvar loga-popup-menu-keymap (let ((map (copy-keymap popup-menu-keymap))) (define-key map "q" 'keyboard-quit) @@ -814,6 +801,21 @@ Otherwise passed character inside region." (stem:stripping-inflection source-word))) source-word)) +(setq loga-command-alist + `((?a . :add) + (?c . ,(if (version< "0.1.7" (loga-version)) :copy :config)) + (?d . :delete) + (?h . :help) + (?i . :import) + (?l . :lookup) + (?L . :list) + (?n . :new) + (?r . :register) + (?U . :unregister) + (?u . :update) + (?s . :show) + (?v . :version))) + (provide 'logalimacs) ;;; logalimacs.el ends here -------------- next part -------------- An HTML attachment was scrubbed...Download