Explorar el Código

emacs.el: add function prepare-init-el

pull/1/head
10sr hace 10 años
padre
commit
67b7ed6c50
Se han modificado 1 ficheros con 15 adiciones y 0 borrados
  1. +15
    -0
      emacs.el

+ 15
- 0
emacs.el Ver fichero

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


Cargando…
Cancelar
Guardar