From f1d8fb869ee1d0e18162583399199298d9815b26 Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Sun, 18 Mar 2012 00:22:47 +0900
Subject: [PATCH] misc changes

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

diff --git a/emacs.el b/emacs.el
index f4bde22..10a2824 100644
--- a/emacs.el
+++ b/emacs.el
@@ -500,7 +500,7 @@
 (defun dllib-if-unfound (lib url &optional bite-compile-p force-download-p) ; new version
   "if LIB does not exist, download it from URL and locate it to \"~/emacs.d/lisp/LIB.el\".
 return nil if LIB unfound and downloading failed, otherwise the path of LIB."
-  (let* ((dir (expand-file-name "~/.emacs.d/lisp/"))
+  (let* ((dir (expand-file-name (concat user-emacs-directory "lisp/")))
          (lpath (concat dir lib ".el"))
          (locate-p (locate-library lib)))
     (if (or force-download-p (not locate-p))
@@ -511,7 +511,9 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
                                          t)
                           (when bite-compile-p
                             (byte-compile-file lpath)))
-                 (error (message "downloading %s...something wrong happened!" url)
+                 (error (and (file-readable-p lpath)
+                             (delete-file lpath))
+                        (message "downloading %s...something wrong happened!" url)
                         nil))
                (locate-library lib))
       locate-p)))
@@ -525,6 +527,10 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
 
 (require 'simple nil t)
 
+(and window-system
+     (dllib-if-unfound "save-window-size" "https://raw.github.com/10sr/emacs-lisp/master/save-window-size.el" t)
+     (require 'save-window-size nil t))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; share clipboard with x
 (when (and window-system
@@ -1845,6 +1851,11 @@ this is test, does not rename files"
   (when (>= emacs-major-version 23)
     (setq anthy-accept-timeout 1)))
 
+;; quail
+;; aproposs input-method for some information
+(setq default-input-method "japanese")
+
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; windows用設定