Yuta Yamada
null+****@clear*****
Sun Sep 2 02:09:43 JST 2012
Yuta Yamada 2012-09-02 02:09:43 +0900 (Sun, 02 Sep 2012) New Revision: e3d2b764378780fbd249a55f0ea777d73fee95ee https://github.com/logaling/logalimacs/commit/e3d2b764378780fbd249a55f0ea777d73fee95ee Log: Use loga-lookup-in-buffer if match ignoring list of specified major-mode Modified files: logalimacs.el Modified: logalimacs.el (+11 -1) =================================================================== --- logalimacs.el 2012-09-02 01:35:16 +0900 (0d7c79f) +++ logalimacs.el 2012-09-02 02:09:43 +0900 (cb1a872) @@ -124,6 +124,14 @@ Note that yet can specify en and ja pair only" :group 'logalimacs :type 'boolean) +(defcustom loga-popup-ignoring-major-mode-list '() + "Set list of major-mode for not displayed as errant format when popup used. +Example: +\(setq loga-popup-ignoring-major-mode-list + '('org-mode 'twittering-mode))" + :group 'logalimacs + :type 'list) + (defvar loga-fly-mode nil "If nonnil, logalimacs use loga-fly-mode") @@ -625,7 +633,9 @@ Otherwise passed character inside region." (defun loga-lookup-in-popup () "Display the output of loga-lookup at tooltip." (interactive) - (loga-lookup :popup)) + (if loga-popup-ignoring-major-mode-list + (loga-lookup :buffer) + (loga-lookup :popup))) ;;;###autoload (defun loga-lookup-in-buffer () -------------- next part -------------- An HTML attachment was scrubbed...Download
