null+****@clear*****
null+****@clear*****
Fri Jan 20 11:40:23 JST 2012
yuta yamada 2012-01-20 11:40:23 +0900 (Fri, 20 Jan 2012)
New Revision: e49655a48f08cbb6cf38de2bd9f45b64a7e66ece
Log:
apply the autoload configuration for marmalade
Modified files:
logalimacs.el
Modified: logalimacs.el (+7 -2)
===================================================================
--- logalimacs.el 2012-01-20 00:59:45 +0900 (81a2e05)
+++ logalimacs.el 2012-01-20 11:40:23 +0900 (c7b5277)
@@ -15,7 +15,13 @@
;;; You should have received a copy of the GNU General Public License
;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
+;;;keybins
+;;;###autoload (global-set-key (kbd "M-g M-u") 'loga-lookup-in-hand-or-region)
+;;;###autoload (global-set-key (kbd "M-g M-a") 'loga-add-word)
+;;;###autoload (global-set-key (kbd "M-g M-i") 'loga-interactive-command)
+;;;convenience configuration for popwin
+;;;###autoload (when (require 'popwin nil t) (defvar display-buffer-function 'popwin:display-buffer) (defvar popwin:special-display-config (append '(("*logalimacs*" :position top :height 10 :noselect t :stick t))) popwin:special-display-config))
(defvar loga-fly-mode nil)
(defvar loga-make-buffer "*logalimacs*")
@@ -33,7 +39,7 @@
(?v . "version")
(?f . "loga-fly-mode")))
-;;;###autoload
+;;;###autoload
(defun loga-interactive-command ()
"interactive-command for logaling-command, types following mini-buffer."
(interactive)
@@ -94,7 +100,6 @@
(sep "\" \""))
(loga-prompt-command "add"
(concat "\"" source sep target sep note "\""))))
-
;;;###autoload
(defun loga-update ()
"update to registered word"