From 080725bbbc64ec4ddf8ac41ee54aa31536ac019e Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Wed, 28 Nov 2012 13:44:29 +0900
Subject: [PATCH] functions for lazy-load-eval can be omitted

---
 emacs.el | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/emacs.el b/emacs.el
index e145a63..a64335c 100644
--- a/emacs.el
+++ b/emacs.el
@@ -72,10 +72,11 @@ otherwise the path where the library installed."
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; autoload
 
-(defmacro lazy-load-eval (feature functions &rest form)
+(defmacro lazy-load-eval (feature &optional functions &rest form)
   "Define FUNCTIONS to autoload from FEATURE.
-FEATURE is a symbol. FUNCTIONS is a list of symbols. FORM is passed to
-`eval-after-load'.
+FEATURE is a symbol. FUNCTIONS is a list of symbols. If FUNCTIONS is nil,
+the function same as FEATURE is defined as autoloaded function. FORM is passed
+ to `eval-after-load'.
 When this macro is evaluated, this returns the path to library if FEATURE
 found, otherwise returns nil."
   (let* ((libname (symbol-name (eval feature)))
@@ -88,7 +89,8 @@ found, otherwise returns nil."
                                libpath
                                "\".")
                       t))
-                 (eval functions))
+                 (or (eval functions)
+                     `(,(eval feature))))
        (eval-after-load ,feature
          '(progn
             ,@form))
@@ -97,8 +99,7 @@ found, otherwise returns nil."
 (put 'lazy-load-eval 'lisp-indent-function 2)
 
 ;; (macroexpand '(f-autoload 'autosave '(a-f b-f) (message "1") (message "2")))
-(when (lazy-load-eval 'tetris
-          '(tetris)
+(when (lazy-load-eval 'tetris nil
         (message "tetris loaded!"))
   (message "tetris found!"))
 
@@ -512,8 +513,7 @@ found, otherwise returns nil."
 (and (fetch-library
       "https://github.com/10sr/emacs-lisp/raw/master/read-only-only-mode.el"
       t)
-     (lazy-load-eval 'read-only-only-mode
-         '(read-only-only-mode)))
+     (lazy-load-eval 'read-only-only-mode))
 
 (and (fetch-library
       "https://raw.github.com/10sr/emacs-lisp/master/smart-revert.el"
@@ -667,7 +667,7 @@ found, otherwise returns nil."
                '("ELPA" . "http://tromey.com/elpa/"))
   (package-initialize))
 
-(lazy-load-eval 'sudoku '(sudoku))
+(lazy-load-eval 'sudoku)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; window
@@ -740,19 +740,19 @@ delete; o: select other; j, l: enlarge; h, k: shrink; q: quit."
 
 (and (fetch-library "https://raw.github.com/10sr/emacs-lisp/master/gtkbm.el"
                     t)
-     (lazy-load-eval 'gtkbm '(gtkbm))
+     (lazy-load-eval 'gtkbm)
      (global-set-key (kbd "C-x C-d") 'gtkbm))
 
 (and (fetch-library
       "https://raw.github.com/10sr/emacs-lisp/master/git-command.el"
       t)
-     (lazy-load-eval 'git-command '(git-command))
+     (lazy-load-eval 'git-command)
      (define-key ctl-x-map "g" 'git-command))
 
 (and (fetch-library
       "http://www.emacswiki.org/emacs/download/sl.el"
       t)
-     (lazy-load-eval 'sl '(sl)))
+     (lazy-load-eval 'sl))
 
 (defalias 'qcalc 'quick-calc)
 
@@ -1006,7 +1006,7 @@ delete; o: select other; j, l: enlarge; h, k: shrink; q: quit."
 ;; (setq multi-term-program shell-file-name)
 (and (fetch-library "http://www.emacswiki.org/emacs/download/multi-term.el"
                     t)
-     (lazy-load-eval 'multi-term '(mult-term))
+     (lazy-load-eval 'multi-term)
      (progn
        (setq multi-term-switch-after-close nil)
        (setq multi-term-dedicated-select-after-open-p t)
@@ -1242,7 +1242,7 @@ delete; o: select other; j, l: enlarge; h, k: shrink; q: quit."
   (and (fetch-library
         "https://raw.github.com/10sr/emacs-lisp/master/recentf-show.el"
         t)
-       (lazy-load-eval 'recentf-show '(recentf-show))
+       (lazy-load-eval 'recentf-show)
        (define-key ctl-x-map (kbd "C-r") 'recentf-show)
        (add-hook 'recentf-show-before-listing-hook
                  'recentf-load-list))
@@ -1455,7 +1455,7 @@ delete; o: select other; j, l: enlarge; h, k: shrink; q: quit."
 (and (fetch-library
       "https://raw.github.com/10sr/emacs-lisp/master/dired-list-all-mode.el"
       t)
-     (lazy-load-eval 'dired-list-all-mode '(dired-list-all-mode))
+     (lazy-load-eval 'dired-list-all-mode)
      (setq dired-listing-switches "-lhFG")
      (add-hook 'dired-mode-hook
                (lambda ()