null+****@clear*****
null+****@clear*****
Thu Jun 14 21:23:40 JST 2012
yuta yamada 2012-06-14 21:23:40 +0900 (Thu, 14 Jun 2012)
New Revision: 2a18fdf6c80f9aba83c4e8260458e6327a023f00
Log:
loga-not-found: apply new function
Modified files:
logalimacs.el
Modified: logalimacs.el (+5 -2)
===================================================================
--- logalimacs.el 2012-06-14 21:22:19 +0900 (c7a8b3c)
+++ logalimacs.el 2012-06-14 21:23:40 +0900 (351218d)
@@ -233,13 +233,16 @@
(if (string= "" content)
(if loga-use-fallback
(text-translator/logalimacs-fallback-func)
- (minibuffer-message
- (concat (caar loga-word-cache) " is not found")))
+ (loga-not-found))
(case endpoint
(:popup
(loga-make-popup content))
(t (loga-make-buffer content))))))
+(defun loga-not-found ()
+ (minibuffer-message
+ (concat (caar loga-word-cache) " is not found")))
+
(defun loga-decide-source-word (&optional manual?)
(if mark-active
(buffer-substring-no-properties (region-beginning) (region-end))