null+****@clear*****
null+****@clear*****
Sun Jan 29 16:20:48 JST 2012
yuta yamada 2012-01-29 16:20:48 +0900 (Sun, 29 Jan 2012) New Revision: 9a08b9772817b8e159af124b28afaa531db0eec2 Log: apply errer output for popup Modified files: logalimacs.el Modified: logalimacs.el (+5 -4) =================================================================== --- logalimacs.el 2012-01-29 03:52:30 +0900 (6684680) +++ logalimacs.el 2012-01-29 16:20:48 +0900 (f349e2f) @@ -177,10 +177,11 @@ (beginning-of-buffer))) (defun loga-make-popup (content) - (if (require 'popup nil t) - (save-current-buffer - (popup-tip content :scroll-bar t :margin loga-popup-margin)) - (print "can't lookup, it is require popup.el."))) + (cond + ((not (require 'popup nil t)) + (message "Can't lookup, it is require popup.el.")) + ((equal "" content) (message "Not found")) + (t (popup-tip content :scroll-bar t :margin loga-popup-margin)))) ;;;###autoload (defun loga-fly-mode ()