| @@ -91,10 +91,7 @@ otherwise the path where the library installed." | |||||
| (set-scroll-bar-mode nil)) | (set-scroll-bar-mode nil)) | ||||
| (add-hook 'kill-emacs-hook | (add-hook 'kill-emacs-hook | ||||
| ;; load when exitting to examine if file is written properly | ;; load when exitting to examine if file is written properly | ||||
| (lambda () | |||||
| (when (file-readable-p "~/.emacs") | |||||
| (load-file "~/.emacs")) | |||||
| )) | |||||
| 'reload-rcfile) | |||||
| (add-hook 'after-init-hook | (add-hook 'after-init-hook | ||||
| (lambda () | (lambda () | ||||
| @@ -112,10 +109,6 @@ otherwise the path where the library installed." | |||||
| ;; my prefix map | ;; my prefix map | ||||
| (define-prefix-command 'my-prefix-map) | (define-prefix-command 'my-prefix-map) | ||||
| '(add-hook 'after-init-hook | |||||
| (lambda () | |||||
| (define-key ctl-x-map (kbd "C-x") 'my-prefix-map) | |||||
| )) | |||||
| (define-key ctl-x-map (kbd "C-x") 'my-prefix-map) | (define-key ctl-x-map (kbd "C-x") 'my-prefix-map) | ||||
| (define-key my-prefix-map (kbd "C-q") 'quoted-insert) | (define-key my-prefix-map (kbd "C-q") 'quoted-insert) | ||||
| (define-key my-prefix-map (kbd "C-z") 'suspend-frame) | (define-key my-prefix-map (kbd "C-z") 'suspend-frame) | ||||
| @@ -143,6 +136,12 @@ otherwise the path where the library installed." | |||||
| t) | t) | ||||
| (require 'save-window-size nil t)) | (require 'save-window-size nil t)) | ||||
| (defun reload-rcfile () | |||||
| "Reload emacs rc file." | |||||
| (interactive) | |||||
| (when (file-readable-p user-init-file) | |||||
| (load-file user-init-file))) | |||||
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ||||
| ;; global keys | ;; global keys | ||||