Переглянути джерело

emacs.el: add function prepare-init-el

pull/1/head
10sr 10 роки тому
джерело
коміт
67b7ed6c50
1 змінених файлів з 15 додано та 0 видалено
  1. +15
    -0
      emacs.el

+ 15
- 0
emacs.el Переглянути файл

@@ -20,6 +20,21 @@
(require 'cl nil t))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; prepare init.el

(defun prepare-init-el (elfile)
"Prepare ~/.emacs/init.el to load ELFILE."
(interactive "fFilename to set to be loaded: ")
(with-temp-buffer
(insert (format "(and (file-readable-p \"%s\")
(load-file \"%s\"))"
elfile
elfile))
(write-file (expand-file-name (concat user-emacs-directory
"init.el")))))


;; (add-hook 'after-change-major-mode-hook
;; (lambda ()
;; (message "cmm: %S %s"


Завантаження…
Відмінити
Зберегти