Quellcode durchsuchen

emacs.el: add function prepare-init-el

pull/1/head
10sr vor 10 Jahren
Ursprung
Commit
67b7ed6c50
1 geänderte Dateien mit 15 neuen und 0 gelöschten Zeilen
  1. +15
    -0
      emacs.el

+ 15
- 0
emacs.el Datei anzeigen

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


Laden…
Abbrechen
Speichern