comparison lisp/comint/comint.el @ 136:b980b6286996 r20-2b2

Import from CVS: tag r20-2b2
author cvs
date Mon, 13 Aug 2007 09:31:12 +0200
parents 34a5b81f86ba
children 538048ae2ab8
comparison
equal deleted inserted replaced
135:4636a6841cd6 136:b980b6286996
369 "Called upon entry into comint-mode 369 "Called upon entry into comint-mode
370 This is run before the process is cranked up." 370 This is run before the process is cranked up."
371 :type 'hook 371 :type 'hook
372 :group 'comint) 372 :group 'comint)
373 373
374 (defcustom comint-exec-hook '() 374 ;; This is initialized by the various language environments, do not
375 ;; Custom-ize it.
376 (defvar comint-exec-hook '()
375 "Called each time a process is exec'd by `comint-exec'. 377 "Called each time a process is exec'd by `comint-exec'.
376 This is called after the process is cranked up. It is useful for things that 378 This is called after the process is cranked up. It is useful for things that
377 must be done each time a process is executed in a comint mode buffer (e.g., 379 must be done each time a process is executed in a comint mode buffer (e.g.,
378 `(process-kill-without-query)'). In contrast, the `comint-mode-hook' is only 380 `(process-kill-without-query)'). In contrast, the `comint-mode-hook' is only
379 executed once when the buffer is created." 381 executed once when the buffer is created.")
380 :type 'hook
381 :group 'comint)
382 382
383 (defvar comint-mode-map nil) 383 (defvar comint-mode-map nil)
384 384
385 (defvar comint-ptyp t 385 (defvar comint-ptyp t
386 "Non-nil if communications via pty; false if by pipe. Buffer local. 386 "Non-nil if communications via pty; false if by pipe. Buffer local.