Commit 1b55e301 authored by Miles Bader's avatar Miles Bader

(comint-send-input): Properly handle empty and no-newline input regions.

parent cd012309
2002-06-12 Miles Bader <miles@gnu.org>
* comint.el (comint-send-input): Properly handle empty and
no-newline input regions.
2002-06-12 Colin Walters <walters@gnu.org>
* calc/calc.el: Use `when', `unless'.
......
......@@ -1446,7 +1446,7 @@ Similarly for Soar, Scheme, etc."
(let ((beg (marker-position pmark))
(end (if no-newline (point) (1- (point)))))
(when (not (> beg end)) ; handle a special case
(when (> end beg)
;; Set text-properties for the input field
(add-text-properties
beg end
......@@ -1461,7 +1461,7 @@ Similarly for Soar, Scheme, etc."
;; `boundary' field to make cursor movement between input
;; and output fields smoother.
(put-text-property beg end 'field 'input)))
(unless comint-use-prompt-regexp-instead-of-fields
(unless (or no-newline comint-use-prompt-regexp-instead-of-fields)
;; Cover the terminating newline
(add-text-properties end (1+ end)
'(rear-nonsticky t
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment