From 3896e421d031fd69271efc6be00adb7280ea8dcc Mon Sep 17 00:00:00 2001 From: Geoff Shannon Date: Thu, 15 May 2014 13:48:24 -0700 Subject: [PATCH] Find user-init-file when given prefix arg --- core/prelude-core.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/core/prelude-core.el b/core/prelude-core.el index 568e6f8..c96a8b5 100644 --- a/core/prelude-core.el +++ b/core/prelude-core.el @@ -550,10 +550,12 @@ This follows freedesktop standards, should work in X servers." '(2 "_NET_WM_STATE_FULLSCREEN" 0)) (error "Only X server is supported"))) -(defun prelude-find-user-init-file () - "Edit the `prelude-user-init-file', in another window." - (interactive) - (find-file-other-window prelude-user-init-file)) +(defun prelude-find-user-init-file (arg) + "Edit the `prelude-user-init-file', in another window. +With a prefix argument ARG, find the `user-init-file' instead." + (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 () "Edit the shell init file in another window."