null+****@clear*****
null+****@clear*****
Fri Feb 3 13:59:19 JST 2012
yuta yamada 2012-02-03 13:59:19 +0900 (Fri, 03 Feb 2012)
New Revision: c7c09b92cdf358177ed5cc80aec82e3bcd17670d
Log:
rename and apply forking for "universal-argument"(cursor or manual)
Modified files:
logalimacs.el
Modified: logalimacs.el (+12 -2)
===================================================================
--- logalimacs.el 2012-02-03 13:35:59 +0900 (f2f2c57)
+++ logalimacs.el 2012-02-03 13:59:19 +0900 (b1c82fd)
@@ -193,7 +193,7 @@
(mapconcat 'identity (reverse store) " ")))
;;;###autoload
-(defun loga-lookup-region-or-manually ()
+(defun loga-lookup-at-manually ()
"search word from logaling. if not mark region, search word type on manual. otherwise passed character inside region."
(interactive)
(loga-lookup nil :manual))
@@ -202,7 +202,17 @@
(defun loga-lookup-in-popup ()
"Display the output of loga-lookup at tooltip, note require popup.el"
(interactive)
- (loga-lookup :popup nil)
+ (if current-prefix-arg
+ (loga-lookup :popup :manual)
+ (loga-lookup :popup nil))
+ (loga-buffer-or-popup-command))
+
+;;;###autoload
+(defun loga-lookup-in-buffer ()
+ (interactive)
+ (if current-prefix-arg
+ (loga-lookup nil :manual)
+ (loga-lookup nil nil))
(loga-buffer-or-popup-command))
(defun loga-return-word-on-cursor ()