rm window-size-save

emacs.el

@@ -1232,6 +1232,7 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
           (lambda ()
             (define-key dired-mode-map "o" 'my-dired-x-open)
             (define-key dired-mode-map "i" 'dired-get-du)
+            (define-key dired-mode-map "f" 'find-file)
             (define-key dired-mode-map "!" 'shell-command)
             (define-key dired-mode-map "&" 'async-shell-command)
             (define-key dired-mode-map "X" 'dired-do-async-shell-command)
@@ -1751,67 +1752,6 @@ this is test, does not rename files"
                  (beep))))))))
 ;; (aref (read-key-sequence-vector "aa") 0)
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; save and restore frame size
-;;http://www.bookshelf.jp/soft/meadow_30.html#SEC416
-(defun my-window-size-save ()
-  (let* ((rlist (frame-parameters (selected-frame)))
-         (ilist initial-frame-alist)
-         (nCHeight (frame-height))
-         (nCWidth (frame-width))
-         (tMargin (if (integerp (cdr (assoc 'top rlist)))
-                      (cdr (assoc 'top rlist)) 0))
-         (lMargin (if (integerp (cdr (assoc 'left rlist)))
-                      (cdr (assoc 'left rlist)) 0))
-         buf
-         (file "~/.emacs.d/.framesize.el")
-         (recentf-exclude '("\\.emacs\\.d/\\.framesize\\.el$")))
-    (if (get-file-buffer (expand-file-name file))
-        (setq buf (get-file-buffer (expand-file-name file)))
-      (setq buf (find-file-noselect file)))
-    (set-buffer buf)
-    (erase-buffer)
-    (insert (concat
-             ;; 初期値をいじるよりも modify-frame-parameters
-             ;; で変えるだけの方がいい?
-             "(delete 'width default-frame-alist)\n"
-             "(delete 'height default-frame-alist)\n"
-             "(delete 'top default-frame-alist)\n"
-             "(delete 'left default-frame-alist)\n"
-             "(setq default-frame-alist (append (list\n"
-             "'(width . " (int-to-string nCWidth) ")\n"
-             "'(height . " (int-to-string nCHeight) ")\n"
-             "'(top . " (int-to-string tMargin) ")\n"
-             "'(left . " (int-to-string lMargin) "))\n"
-             "default-frame-alist))\n"
-             ;;"(setq default-frame-alist default-frame-alist)"
-             ))
-    (save-buffer)
-    ))
-(defun my-window-size-load ()
-  (let* ((file "~/.emacs.d/.framesize.el"))
-    (if (file-exists-p file)
-        (load file))))
-(when window-system
-  (my-window-size-load)
-  (add-hook 'after-init-hook      ;何かがframeの大きさ勝手に変えやがる
-            (lambda ()
-              (run-with-timer 1
-                              nil
-                              (lambda ()
-                                (modify-frame-parameters (selected-frame)
-                                                         default-frame-alist))))
-            t)
-  (add-hook 'kill-emacs-hook
-            'my-window-size-save))
-
-;; windowサイズを固定
-;; setq default-frame-alist
-;;       (append (list '(width . 80)
-;; 		    '(height . 35)
-;; 	      )
-;; 	      default-frame-alist)
-;; ) ;;デフォルトのフレーム設定
 
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; ;; emacsを殺伐とさせる