浏览代码

add interactive function reload-rcfile

pull/1/head
10sr 11 年前
父节点
当前提交
663bcd2542
共有 1 个文件被更改,包括 7 次插入8 次删除
  1. +7
    -8
      emacs.el

+ 7
- 8
emacs.el 查看文件

@@ -91,10 +91,7 @@ otherwise the path where the library installed."
(set-scroll-bar-mode nil))
(add-hook 'kill-emacs-hook
;; 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
(lambda ()
@@ -112,10 +109,6 @@ otherwise the path where the library installed."

;; 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 my-prefix-map (kbd "C-q") 'quoted-insert)
(define-key my-prefix-map (kbd "C-z") 'suspend-frame)
@@ -143,6 +136,12 @@ otherwise the path where the library installed."
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



正在加载...
取消
保存