/[emacs]/emacs/lisp/shell.el
ViewVC logotype

Diff of /emacs/lisp/shell.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.112 by pot, Tue May 14 08:42:48 2002 UTC revision 1.113 by pot, Tue May 14 08:46:00 2002 UTC
# Line 415  buffer." Line 415  buffer."
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

Legend:
Removed from v.1.112  
changed lines
  Added in v.1.113

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26