Mercurial > emacs
comparison lisp/shell.el @ 88123:375f2633d815
New directory
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 08 Sep 2003 11:56:09 +0000 |
parents | 695cf19ef79e |
children | 68c22ea6027c |
comparison
equal
deleted
inserted
replaced
52428:27bc8b966642 | 88123:375f2633d815 |
---|---|
531 | 531 |
532 \(Type \\[describe-mode] in the shell buffer for a list of commands.)" | 532 \(Type \\[describe-mode] in the shell buffer for a list of commands.)" |
533 (interactive | 533 (interactive |
534 (list | 534 (list |
535 (and current-prefix-arg | 535 (and current-prefix-arg |
536 (read-buffer "Shell buffer: " | 536 (read-buffer "Shell buffer: " "*shell*")))) |
537 (generate-new-buffer-name "*shell*"))))) | |
538 (setq buffer (get-buffer-create (or buffer "*shell*"))) | 537 (setq buffer (get-buffer-create (or buffer "*shell*"))) |
539 ;; Pop to buffer, so that the buffer's window will be correctly set | 538 ;; Pop to buffer, so that the buffer's window will be correctly set |
540 ;; when we call comint (so that comint sets the COLUMNS env var properly). | 539 ;; when we call comint (so that comint sets the COLUMNS env var properly). |
541 (pop-to-buffer buffer) | 540 (pop-to-buffer buffer) |
542 (unless (comint-check-proc buffer) | 541 (unless (comint-check-proc buffer) |
1063 (message "Directory item: %d" index) | 1062 (message "Directory item: %d" index) |
1064 t)))))) | 1063 t)))))) |
1065 | 1064 |
1066 (provide 'shell) | 1065 (provide 'shell) |
1067 | 1066 |
1068 ;;; arch-tag: bcb5f12a-c1f4-4aea-a809-2504bd5bd797 | |
1069 ;;; shell.el ends here | 1067 ;;; shell.el ends here |