Преглед изворни кода

add interactive function reload-rcfile

pull/1/head
10sr пре 12 година
родитељ
комит
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



Loading…
Откажи
Сачувај