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

Diff of /emacs/lisp/comint.el

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

revision 1.250 by miles, Thu Nov 8 11:54:06 2001 UTC revision 1.251 by monnier, Fri Nov 16 14:22:03 2001 UTC
# Line 478  to continue it. Line 478  to continue it.
478    
479  Entry to this mode runs the hooks on `comint-mode-hook'."  Entry to this mode runs the hooks on `comint-mode-hook'."
480    (setq mode-line-process '(":%s"))    (setq mode-line-process '(":%s"))
481    (make-local-variable 'comint-last-input-start)    (set (make-local-variable 'comint-last-input-start) (point-min-marker))
482    (setq comint-last-input-start (make-marker))    (set (make-local-variable 'comint-last-input-end) (point-min-marker))
483    (set-marker comint-last-input-start (point-min))    (set (make-local-variable 'comint-last-output-start) (make-marker))
   (make-local-variable 'comint-last-input-end)  
   (setq comint-last-input-end (make-marker))  
   (set-marker comint-last-input-end (point-min))  
   (make-local-variable 'comint-last-output-start)  
   (setq comint-last-output-start (make-marker))  
484    (make-local-variable 'comint-last-output-overlay)    (make-local-variable 'comint-last-output-overlay)
485    (make-local-variable 'comint-last-prompt-overlay)    (make-local-variable 'comint-last-prompt-overlay)
486    (make-local-variable 'comint-prompt-regexp)        ; Don't set; default    (make-local-variable 'comint-prompt-regexp)        ; Don't set; default
# Line 504  Entry to this mode runs the hooks on `co Line 499  Entry to this mode runs the hooks on `co
499    (make-local-variable 'comint-input-autoexpand)    (make-local-variable 'comint-input-autoexpand)
500    (make-local-variable 'comint-input-ignoredups)    (make-local-variable 'comint-input-ignoredups)
501    (make-local-variable 'comint-delimiter-argument-list)    (make-local-variable 'comint-delimiter-argument-list)
   (make-local-hook 'comint-dynamic-complete-functions)  
502    (make-local-variable 'comint-completion-fignore)    (make-local-variable 'comint-completion-fignore)
503    (make-local-variable 'comint-get-old-input)    (make-local-variable 'comint-get-old-input)
   (make-local-hook 'comint-input-filter-functions)  
504    (make-local-variable 'comint-input-filter)    (make-local-variable 'comint-input-filter)
505    (make-local-variable 'comint-input-sender)    (make-local-variable 'comint-input-sender)
506    (make-local-variable 'comint-eol-on-send)    (make-local-variable 'comint-eol-on-send)
# Line 515  Entry to this mode runs the hooks on `co Line 508  Entry to this mode runs the hooks on `co
508    (make-local-variable 'comint-scroll-to-bottom-on-output)    (make-local-variable 'comint-scroll-to-bottom-on-output)
509    (make-local-variable 'comint-scroll-show-maximum-output)    (make-local-variable 'comint-scroll-show-maximum-output)
510    (add-hook 'pre-command-hook 'comint-preinput-scroll-to-bottom t t)    (add-hook 'pre-command-hook 'comint-preinput-scroll-to-bottom t t)
   (make-local-hook 'comint-output-filter-functions)  
   (make-local-hook 'comint-exec-hook)  
511    (make-local-variable 'comint-ptyp)    (make-local-variable 'comint-ptyp)
512    (make-local-variable 'comint-process-echoes)    (make-local-variable 'comint-process-echoes)
513    (make-local-variable 'comint-file-name-chars)    (make-local-variable 'comint-file-name-chars)
514    (make-local-variable 'comint-file-name-quote-list)    (make-local-variable 'comint-file-name-quote-list)
515    (make-local-variable 'comint-accum-marker)    (set (make-local-variable 'comint-accum-marker) (make-marker))
   (setq comint-accum-marker (make-marker))  
   (set-marker comint-accum-marker nil)  
516    ;; This behavior is not useful in comint buffers, and is annoying    ;; This behavior is not useful in comint buffers, and is annoying
517    (set (make-local-variable 'next-line-add-newlines) nil))    (set (make-local-variable 'next-line-add-newlines) nil))
518    
# Line 660  If PROGRAM is a string, any more args ar Line 649  If PROGRAM is a string, any more args ar
649    ;; comint mode.  Otherwise, leave buffer and existing process alone.    ;; comint mode.  Otherwise, leave buffer and existing process alone.
650    (unless (comint-check-proc buffer)    (unless (comint-check-proc buffer)
651      (with-current-buffer buffer      (with-current-buffer buffer
652        (comint-mode)) ; Install local vars, mode, keymap, ...        (unless (derived-mode-p 'comint-mode)
653            (comint-mode))) ; Install local vars, mode, keymap, ...
654      (comint-exec buffer name program startfile switches))      (comint-exec buffer name program startfile switches))
655    buffer)    buffer)
656    

Legend:
Removed from v.1.250  
changed lines
  Added in v.1.251

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