Kaynağa Gözat

add interactive function reload-rcfile

pull/1/head
10sr 12 yıl önce
ebeveyn
işleme
663bcd2542
1 değiştirilmiş dosya ile 7 ekleme ve 8 silme
  1. +7
    -8
      emacs.el

+ 7
- 8
emacs.el Dosyayı Görüntüle

@@ -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



Yükleniyor…
İptal
Kaydet