Mercurial > hg > xemacs-beta

comparison lisp/comint/comint.el @ 112:48d667d6f17f r20-1b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b8
author cvs
date Mon, 13 Aug 2007 09:20:48 +0200
parents fe104dbd9147
children 34a5b81f86ba
comparison
equal deleted inserted replaced
111:164ab62060bf 112:48d667d6f17f
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.
1383 (set-extent-property comint-input-extent 'detachable t) 1368 (set-extent-property comint-input-extent 'detachable t)
1384 ) 1369 )
1385 1370
1386 (defun comint-input-setup () 1371 (defun comint-input-setup ()
1387 "Insure the comint-input-extent is ready." 1372 "Insure the comint-input-extent is ready."
1373 (require 'comint-xemacs)
1388 (setq comint-input-extent (make-extent (point) (point-max))) 1374 (setq comint-input-extent (make-extent (point) (point-max)))
1389 (set-extent-property comint-input-extent 'detachable nil) 1375 (set-extent-property comint-input-extent 'detachable nil)
1390 (set-extent-property comint-input-extent 'start-closed t) 1376 (set-extent-property comint-input-extent 'start-closed t)
1391 (set-extent-property comint-input-extent 'end-closed t) 1377 (set-extent-property comint-input-extent 'end-closed t)
1392 (set-extent-face comint-input-extent 'comint-input-face) 1378 (set-extent-face comint-input-extent 'comint-input-face)