Mercurial > emacs
comparison lisp/comint.el @ 7071:058f19d36c07
(comint-mode): Remove space after `:' in mode-line-process.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 24 Apr 1994 08:14:46 +0000 |
parents | d4575065e6aa |
children | 1e2d4da6b5c4 |
comparison
equal
deleted
inserted
replaced
7070:d3334311fc58 | 7071:058f19d36c07 |
---|---|
340 (interactive) | 340 (interactive) |
341 ;; Do not remove this. All major modes must do this. | 341 ;; Do not remove this. All major modes must do this. |
342 (kill-all-local-variables) | 342 (kill-all-local-variables) |
343 (setq major-mode 'comint-mode) | 343 (setq major-mode 'comint-mode) |
344 (setq mode-name "Comint") | 344 (setq mode-name "Comint") |
345 (setq mode-line-process '(": %s")) | 345 (setq mode-line-process '(":%s")) |
346 (use-local-map comint-mode-map) | 346 (use-local-map comint-mode-map) |
347 (make-local-variable 'comint-last-input-start) | 347 (make-local-variable 'comint-last-input-start) |
348 (setq comint-last-input-start (make-marker)) | 348 (setq comint-last-input-start (make-marker)) |
349 (set-marker comint-last-input-start (point-min)) | 349 (set-marker comint-last-input-start (point-min)) |
350 (make-local-variable 'comint-last-input-end) | 350 (make-local-variable 'comint-last-input-end) |