Find user-init-file when given prefix arg

This commit is contained in:
Geoff Shannon 2014-05-15 13:48:24 -07:00
parent 1ac728d6a7
commit 3896e421d0

View file

@ -550,10 +550,12 @@ This follows freedesktop standards, should work in X servers."
'(2 "_NET_WM_STATE_FULLSCREEN" 0)) '(2 "_NET_WM_STATE_FULLSCREEN" 0))
(error "Only X server is supported"))) (error "Only X server is supported")))
(defun prelude-find-user-init-file () (defun prelude-find-user-init-file (arg)
"Edit the `prelude-user-init-file', in another window." "Edit the `prelude-user-init-file', in another window.
(interactive) With a prefix argument ARG, find the `user-init-file' instead."
(find-file-other-window prelude-user-init-file)) (interactive "P")
(if arg (find-file-other-window user-init-file)
(find-file-other-window prelude-user-init-file)))
(defun prelude-find-shell-init-file () (defun prelude-find-shell-init-file ()
"Edit the shell init file in another window." "Edit the shell init file in another window."