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