Function: eshell/pwd

eshell/pwd is a byte-compiled function defined in em-dirs.el.gz.

Signature

(eshell/pwd)

Documentation

Change output from pwd to be cleaner.

Source Code

;; Defined in /usr/src/emacs/lisp/eshell/em-dirs.el.gz
(defun eshell/pwd ()
  "Change output from `pwd' to be cleaner."
  (let ((dir default-directory))
    (when (and (eq (aref dir (1- (length dir))) ?/)
               (not (and (eshell-under-windows-p)
                         (string-match "\\`[A-Za-z]:[\\/]\\'" dir)))
               (length> (file-local-name dir) 1))
      (setq dir (substring dir 0 -1)))
    (funcall (or eshell-pwd-convert-function #'identity) dir)))