415 |
(make-local-variable 'list-buffers-directory) |
(make-local-variable 'list-buffers-directory) |
416 |
(setq list-buffers-directory (expand-file-name default-directory)) |
(setq list-buffers-directory (expand-file-name default-directory)) |
417 |
;; shell-dependent assignments. |
;; shell-dependent assignments. |
418 |
(when (zerop (ring-length comint-input-ring)) |
(when (ring-empty-p comint-input-ring) |
419 |
(let ((shell (file-name-nondirectory (car |
(let ((shell (file-name-nondirectory (car |
420 |
(process-command (get-buffer-process (current-buffer))))))) |
(process-command (get-buffer-process (current-buffer))))))) |
421 |
(setq comint-input-ring-file-name |
(setq comint-input-ring-file-name |