Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: 9616aaa383
Fetching contributors…

Cannot retrieve contributors at this time

11 lines (8 sloc) 0.369 kB
(defun dirname (file)
(chomp (shell-command-to-string (format "dirname %s" file))))
(defun current-directory ()
(let ((current-directory-or-file
(or load-file-name buffer-file-name dired-directory "")))
(if (file-directory-p current-directory-or-file) current-directory-or-file
(dirname current-directory-or-file))))
(provide 'directory-utils)
Jump to Line
Something went wrong with that request. Please try again.