           (message file-name))
       (error "Buffer not visiting a file"))))
 
-(defun reload-init ()
-  "Do load-file of the emacs config file"
-  (interactive)
-  (load-file (concat user-emacs-directory "/init.el")))
-
-;; Replaced the use of below with xah-run-current-file
-;; (defun load-current-file ()
-;;   "Load current file"
-;;   (interactive)
-;;   (load-file (buffer-file-name)))
-
-;; Source: http://www.emacswiki.org/emacs-en/download/misc-cmds.el
+;; http://www.emacswiki.org/emacs-en/download/misc-cmds.el
 (defun revert-buffer-no-confirm ()
   "Revert buffer without confirmation."
   (interactive)

                   name (file-name-nondirectory new-name)))))))

;; Display the file path of the file in current buffer and also copy it to the kill-ring
;; Source: http://camdez.com/blog/2013/11/14/emacs-show-buffer-file-name/
(defun show-copy-buffer-file-name (arg)
  "Show the full path to the current file in the minibuffer and also copy it.
Prefixed with one `universal argument', copy only the file name (not the full path).
Prefixed with two `universal argument's, copy the full path without env var replacement."
  (interactive "p")
  (let* ((file-name-full (buffer-file-name))
         file-name)

;; Time-stamp: <2015-02-24 15:54:17 kmodi>

;; Functions to manipulate windows and buffers

