Yuta Yamada
null+****@clear*****
Sun Sep 2 03:05:56 JST 2012
Yuta Yamada 2012-09-02 03:05:56 +0900 (Sun, 02 Sep 2012) New Revision: 568d9eb3b76587ff5e844fd365527aa352dc579e https://github.com/logaling/logalimacs/commit/568d9eb3b76587ff5e844fd365527aa352dc579e Log: Fix missing condition Modified files: logalimacs.el Modified: logalimacs.el (+7 -1) =================================================================== --- logalimacs.el 2012-09-02 02:36:56 +0900 (3611714) +++ logalimacs.el 2012-09-02 03:05:56 +0900 (f9fd9af) @@ -633,10 +633,16 @@ Otherwise passed character inside region." (defun loga-lookup-in-popup () "Display the output of loga-lookup at tooltip." (interactive) - (if loga-popup-ignoring-major-mode-list + (if (loga-match-ignoring-list-p) (loga-lookup :buffer) (loga-lookup :popup))) +(defun loga-match-ignoring-list-p () + (loop for major-mode-name in loga-popup-ignoring-major-mode-list + if (eq major-mode-name major-mode) + do (return t) + finally return nil)) + ;;;###autoload (defun loga-lookup-in-buffer () (interactive) -------------- next part -------------- An HTML attachment was scrubbed...Download
