mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/files.el (pwd):

Browse source 
When called with a prefix argument, insert the current default
directory at point.
This commit is contained in:
Simen Heggestøyl 2015-05-01 23:24:10 +02:00
parent f2f5a39c6d
commit a58c6cb528
2 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/files.el
View file

@ -654,10 +654,14 @@ the value of `default-directory'."
'file-directory-p))
(defun pwd ()
"Show the current default directory."
(interactive nil)
(message "Directory %s" default-directory))
(defun pwd (&optional insert)
"Show the current default directory.
With prefix argument INSERT, insert the current default directory
at point instead."
(interactive "P")
(if insert
(insert default-directory)
(message "Directory %s" default-directory)))
(defvar cd-path nil
"Value of the CDPATH environment variable, as a list.