 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (setq initial-frame-alist
-      '((top . 80)			; ʒu()
-	(left . 200)			; ʒu()
-	(width . 150)			; TCY()
+      '((width . 150)			; TCY()
 	(height . 50)			; TCY()
 	))
 

;; i[fBNg[̕ύX
;;   (Ώۃt@C̃p^[ . ۑt@CpX) ̃Xg
;; (setq auto-save-file-name-transforms
;;       '(("\\`/[^/]*:\\([^/]*/\\)*\\([^/]*\\)\\'" "~/.emacs.d/auto-save-list/\\2" t)))


;; ۑ̊Ԋu

;; s̗L
(setq create-lockfiles nil)




(defvar my-inhibit-auto-file-directory-list
  (list
   "~/DropBox"
   (concat (getenv "USERPROFILE") "/Google hCu")
   )
  "쐬(obNAbvAۑAbN)֎~fBNg[̃Xg")
  
(add-hook 'find-file-hook
	  '(lambda ()
	     (when (listp my-inhibit-auto-file-directory-list)
	       (let ((inhibit-ptn (concat "^\\(" (mapconcat '(lambda(str) (regexp-quote (expand-file-name str)))
							    my-inhibit-auto-file-directory-list "\\|") "\\)")))
		 (when (string-match inhibit-ptn buffer-file-name)
		   (setq backup-inhibited t) ;; obNAbv֎~
		   (auto-save-mode nil)	     ;; ۑȂ
		   (make-local-variable 'create-lockfiles) ;; bNt@C쐬Ȃ
		   (setq create-lockfiles nil)
		   )))))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
