mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(comint-get-old-input-default): Strip text properties for fields too.

Browse source 
(comint-output-filter): Run output-filter functions before setting up
the prompt.
This commit is contained in:
Miles Bader 2002-06-20 07:30:16 +00:00
parent cf6af551a3
commit 3848dd73d7
2 changed files with 10 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/ChangeLog
View file

@ -1,13 +1,14 @@
2002-06-20 Miles Bader <miles@gnu.org>
* international/characters.el: Re-enable code giving word syntax
to certain japanese-jisx0208 characters.
2002-06-18 Miles Bader <miles@gnu.org>
* comint.el (comint-get-old-input-default): Strip text properties
for fields too.
* comint.el (comint-output-filter): Run output-filter functions
before setting up the prompt.
* international/characters.el: Re-enable code giving word syntax
to certain japanese-jisx0208 characters.
2002-06-19 Glenn Morris <gmorris@ast.cam.ac.uk>
* progmodes/f90.el (f90-type-def-re): Fix value.

9
lisp/comint.el
View file

@ -1660,6 +1660,9 @@ This function should be in the list `comint-output-filter-functions'."
;; Advance process-mark
(set-marker (process-mark process) (point))
(run-hook-with-args 'comint-output-filter-functions string)
(goto-char (process-mark process)) ; in case a filter moved it
(unless comint-use-prompt-regexp-instead-of-fields
(let ((inhibit-read-only t))
(add-text-properties comint-last-output-start (point)
@ -1684,9 +1687,7 @@ This function should be in the list `comint-output-filter-functions'."
(overlay-put comint-last-prompt-overlay
'font-lock-face 'comint-highlight-prompt))))
(goto-char saved-point)
(run-hook-with-args 'comint-output-filter-functions string)))))))
(goto-char saved-point)))))))
(defun comint-preinput-scroll-to-bottom ()
"Go to the end of buffer in all windows showing it.
@ -1794,7 +1795,7 @@ the current line with any initial string matching the regexp
`comint-prompt-regexp' removed."
(let ((bof (field-beginning)))
(if (eq (get-char-property bof 'field) 'input)
(field-string bof)
(field-string-no-properties bof)
(comint-bol)
(buffer-substring-no-properties (point) (line-end-position)))))