/[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.314 by teirllm, Fri Apr 8 23:45:09 2005 UTC revision 1.315 by rms, Sun Apr 10 23:26:57 2005 UTC
# Line 1388  Ignore duplicates if `comint-input-ignor Line 1388  Ignore duplicates if `comint-input-ignor
1388                                    cmd))))                                    cmd))))
1389        (ring-insert comint-input-ring cmd)))        (ring-insert comint-input-ring cmd)))
1390    
1391  (defun comint-send-input (&optional no-newline)  (defun comint-send-input (&optional no-newline artificial)
1392    "Send input to process.    "Send input to process.
1393  After the process output mark, sends all text from the process mark to  After the process output mark, sends all text from the process mark to
1394  point as input to the process.  Before the process output mark, calls  point as input to the process.  Before the process output mark, calls
1395  value of variable `comint-get-old-input' to retrieve old input, copies  value of variable `comint-get-old-input' to retrieve old input, copies
1396  it to the process mark, and sends it.  A terminal newline is also  it to the process mark, and sends it.
1397  inserted into the buffer and sent to the process unless NO-NEWLINE is  
1398  non-nil.  This command also sends and inserts a final newline, unless
1399    NO-NEWLINE is non-nil.
1400    
1401  Any history reference may be expanded depending on the value of the variable  Any history reference may be expanded depending on the value of the variable
1402  `comint-input-autoexpand'.  The list of function names contained in the value  `comint-input-autoexpand'.  The list of function names contained in the value
# Line 1409  end of line before sending the input. Line 1410  end of line before sending the input.
1410  After the input has been sent, if `comint-process-echoes' is non-nil,  After the input has been sent, if `comint-process-echoes' is non-nil,
1411  then `comint-send-input' waits to see if the process outputs a string  then `comint-send-input' waits to see if the process outputs a string
1412  matching the input, and if so, deletes that part of the output.  matching the input, and if so, deletes that part of the output.
1413    If ARTIFICIAL is non-nil, it inhibits such deletion.
1414    Callers sending input not from the user should use ARTIFICIAL = t.
1415    
1416  The values of `comint-get-old-input', `comint-input-filter-functions', and  The values of `comint-get-old-input', `comint-input-filter-functions', and
1417  `comint-input-filter' are chosen according to the command interpreter running  `comint-input-filter' are chosen according to the command interpreter running
# Line 1513  Similarly for Soar, Scheme, etc." Line 1516  Similarly for Soar, Scheme, etc."
1516              (funcall comint-input-sender proc input))              (funcall comint-input-sender proc input))
1517    
1518            ;; Optionally delete echoed input (after checking it).            ;; Optionally delete echoed input (after checking it).
1519            (when comint-process-echoes            (when (and comint-process-echoes (not artificial))
1520              (let ((echo-len (- comint-last-input-end              (let ((echo-len (- comint-last-input-end
1521                                 comint-last-input-start)))                                 comint-last-input-start)))
1522                ;; Wait for all input to be echoed:                ;; Wait for all input to be echoed:
# Line 2088  Useful if you accidentally suspend the t Line 2091  Useful if you accidentally suspend the t
2091  This means mark it as if it had been sent as input, without sending it."  This means mark it as if it had been sent as input, without sending it."
2092    (let ((comint-input-sender 'ignore)    (let ((comint-input-sender 'ignore)
2093          (comint-input-filter-functions nil))          (comint-input-filter-functions nil))
2094      (comint-send-input t))      (comint-send-input t t))
2095    (end-of-line)    (end-of-line)
2096    (let ((pos (point))    (let ((pos (point))
2097          (marker (process-mark (get-buffer-process (current-buffer)))))          (marker (process-mark (get-buffer-process (current-buffer)))))
# Line 2115  Sends an EOF only if point is at the end Line 2118  Sends an EOF only if point is at the end
2118  (defun comint-send-eof ()  (defun comint-send-eof ()
2119    "Send an EOF to the current buffer's process."    "Send an EOF to the current buffer's process."
2120    (interactive)    (interactive)
2121    (comint-send-input t)    (comint-send-input t t)
2122    (process-send-eof))    (process-send-eof))
2123    
2124    

Legend:
Removed from v.1.314  
changed lines
  Added in v.1.315

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