comparison lisp/comint.el @ 59996:aac0a33f5772

Change release version from 21.4 to 22.1 throughout. Change development version from 21.3.50 to 22.0.50.
author Kim F. Storm <storm@cua.dk>
date Wed, 09 Feb 2005 15:50:47 +0000
parents eb109ea1450a
children 16de2600fc58 3ebd9bdb4fe5
comparison
equal deleted inserted replaced
59995:8f4938738427 59996:aac0a33f5772
192 192
193 If you sometimes use comint-mode on text-only terminals or with `emacs-nw', 193 If you sometimes use comint-mode on text-only terminals or with `emacs-nw',
194 you might wish to use another binding for `comint-kill-whole-line'." 194 you might wish to use another binding for `comint-kill-whole-line'."
195 :type 'boolean 195 :type 'boolean
196 :group 'comint 196 :group 'comint
197 :version "21.4") 197 :version "22.1")
198 198
199 (defvar comint-delimiter-argument-list () 199 (defvar comint-delimiter-argument-list ()
200 "List of characters to recognise as separate arguments in input. 200 "List of characters to recognise as separate arguments in input.
201 Strings comprising a character in this list will separate the arguments 201 Strings comprising a character in this list will separate the arguments
202 surrounding them, and also be regarded as arguments in their own right (unlike 202 surrounding them, and also be regarded as arguments in their own right (unlike
807 (process-mark (get-buffer-process (current-buffer)))) 807 (process-mark (get-buffer-process (current-buffer))))
808 (point)) 808 (point))
809 ;; Insert the input at point 809 ;; Insert the input at point
810 (insert (buffer-substring-no-properties 810 (insert (buffer-substring-no-properties
811 (previous-single-char-property-change (1+ pos) 'field) 811 (previous-single-char-property-change (1+ pos) 'field)
812 (next-single-char-property-change pos 'field)))))) 812 (next-single-char-property-change pos 'field))))))
813 813
814 814
815 ;; Input history processing in a buffer 815 ;; Input history processing in a buffer
816 ;; =========================================================================== 816 ;; ===========================================================================
817 ;; Useful input history functions, courtesy of the Ergo group. 817 ;; Useful input history functions, courtesy of the Ergo group.