Mercurial > hg > xemacs-beta

comparison lisp/comint/comint.el @ 34:d620409f5eb8 r19-15b100

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b100
author cvs
date Mon, 13 Aug 2007 08:53:20 +0200
parents e04119814345
children 56c54cf7c5b6
comparison
equal deleted inserted replaced
33:9ee3cade837d 34:d620409f5eb8
352 (put 'comint-output-filter-functions 'permanent-local t) 352 (put 'comint-output-filter-functions 'permanent-local t)
353 (put 'comint-scroll-to-bottom-on-input 'permanent-local t) 353 (put 'comint-scroll-to-bottom-on-input 'permanent-local t)
354 (put 'comint-scroll-to-bottom-on-output 'permanent-local t) 354 (put 'comint-scroll-to-bottom-on-output 'permanent-local t)
355 (put 'comint-scroll-show-maximum-output 'permanent-local t) 355 (put 'comint-scroll-show-maximum-output 'permanent-local t)
356 (put 'comint-ptyp 'permanent-local t) 356 (put 'comint-ptyp 'permanent-local t)
357
358 (defface comint-input-face '((((class color)
359 (background dark))
360 (:foreground "red"))
361 (((class color)
362 (background light))
363 (:foreground "blue"))
364 (((class mono))
365 (:bold t))
366 (((class grayscale))
367 (:bold t))
368 (t
369 (:bold t)))
370 "How to display user input for comint shells."
371 :group 'comint-input-face)
372 357
373 358
374 359
375 (defun comint-mode () 360 (defun comint-mode ()
376 "Major mode for interacting with an inferior interpreter. 361 "Major mode for interacting with an inferior interpreter.
1382 (set-extent-property comint-input-extent 'detachable t) 1367 (set-extent-property comint-input-extent 'detachable t)
1383 ) 1368 )
1384 1369
1385 (defun comint-input-setup () 1370 (defun comint-input-setup ()
1386 "Insure the comint-input-extent is ready." 1371 "Insure the comint-input-extent is ready."
1372 (require 'comint-xemacs)
1387 (setq comint-input-extent (make-extent (point) (point-max))) 1373 (setq comint-input-extent (make-extent (point) (point-max)))
1388 (set-extent-property comint-input-extent 'detachable nil) 1374 (set-extent-property comint-input-extent 'detachable nil)
1389 (set-extent-property comint-input-extent 'start-closed t) 1375 (set-extent-property comint-input-extent 'start-closed t)
1390 (set-extent-property comint-input-extent 'end-closed t) 1376 (set-extent-property comint-input-extent 'end-closed t)
1391 (set-extent-face comint-input-extent 'comint-input-face) 1377 (set-extent-face comint-input-extent 'comint-input-face)