/[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.278 by lektu, Tue Jun 18 14:36:07 2002 UTC revision 1.279 by miles, Thu Jun 20 07:30:04 2002 UTC
# Line 1660  This function should be in the list `com Line 1660  This function should be in the list `com
1660              ;; Advance process-mark              ;; Advance process-mark
1661              (set-marker (process-mark process) (point))              (set-marker (process-mark process) (point))
1662    
1663                (run-hook-with-args 'comint-output-filter-functions string)
1664                (goto-char (process-mark process)) ; in case a filter moved it
1665    
1666              (unless comint-use-prompt-regexp-instead-of-fields              (unless comint-use-prompt-regexp-instead-of-fields
1667                (let ((inhibit-read-only t))                (let ((inhibit-read-only t))
1668                  (add-text-properties comint-last-output-start (point)                  (add-text-properties comint-last-output-start (point)
# Line 1684  This function should be in the list `com Line 1687  This function should be in the list `com
1687                    (overlay-put comint-last-prompt-overlay                    (overlay-put comint-last-prompt-overlay
1688                                 'font-lock-face 'comint-highlight-prompt))))                                 'font-lock-face 'comint-highlight-prompt))))
1689    
1690              (goto-char saved-point)              (goto-char saved-point)))))))
   
             (run-hook-with-args 'comint-output-filter-functions string)))))))  
1691    
1692  (defun comint-preinput-scroll-to-bottom ()  (defun comint-preinput-scroll-to-bottom ()
1693    "Go to the end of buffer in all windows showing it.    "Go to the end of buffer in all windows showing it.
# Line 1794  the current line with any initial string Line 1795  the current line with any initial string
1795  `comint-prompt-regexp' removed."  `comint-prompt-regexp' removed."
1796    (let ((bof (field-beginning)))    (let ((bof (field-beginning)))
1797      (if (eq (get-char-property bof 'field) 'input)      (if (eq (get-char-property bof 'field) 'input)
1798          (field-string bof)          (field-string-no-properties bof)
1799        (comint-bol)        (comint-bol)
1800        (buffer-substring-no-properties (point) (line-end-position)))))        (buffer-substring-no-properties (point) (line-end-position)))))
1801    

Legend:
Removed from v.1.278  
changed lines
  Added in v.1.279

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