[Emacs-diffs] Changes to emacs/lisp/shell.el

[Francesco Potortì]

Index: emacs/lisp/shell.el
diff -c emacs/lisp/shell.el:1.112 emacs/lisp/shell.el:1.113
*** emacs/lisp/shell.el:1.112   Tue May 14 04:42:48 2002
--- emacs/lisp/shell.el Tue May 14 04:46:00 2002
***************
*** 415,421 ****
    (make-local-variable 'list-buffers-directory)
    (setq list-buffers-directory (expand-file-name default-directory))
    ;; shell-dependent assignments.
!   (when (zerop (ring-length comint-input-ring))
      (let ((shell (file-name-nondirectory (car
                   (process-command (get-buffer-process (current-buffer)))))))
        (setq comint-input-ring-file-name
--- 415,421 ----
    (make-local-variable 'list-buffers-directory)
    (setq list-buffers-directory (expand-file-name default-directory))
    ;; shell-dependent assignments.
!   (when (ring-empty-p comint-input-ring)
      (let ((shell (file-name-nondirectory (car
                   (process-command (get-buffer-process (current-buffer)))))))
        (setq comint-input-ring-file-name