[logaling-commit] logaling/logalimacs [master] apply errer output for popup

Back to archive index

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 ()




More information about the logaling-commit mailing list
Back to archive index