PG
Size: a a a
PG
VL
DL
DL
PG
G(
G(
G(
G(
PG
VL
VL
VL
(defun shell-change-directory ()
"Change directory in a shell, interactively."
(interactive)
(comint-show-maximum-output)
(comint-delete-input)
(let* ((read-dir (read-directory-name "Change directory: "))
(dir (or (file-remote-p read-dir 'localname) read-dir)))
(insert (concat "cd " (shell-quote-argument dir))))
(comint-send-input))
PG
PG
VL
PG
VL