[Emacs-diffs] emacs/lisp ChangeLog progmodes/compile.el

[Sam Steingold]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Sam Steingold <sds>     09/02/17 16:49:42

Modified files:
        lisp           : ChangeLog 
        lisp/progmodes : compile.el 

Log message:
        (compilation-filter): Call `comint-carriage-motion', just like 
`comint-output-filter'.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15344&r2=1.15345
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/compile.el?cvsroot=emacs&r1=1.485&r2=1.486

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15344
retrieving revision 1.15345
diff -u -b -r1.15344 -r1.15345
--- ChangeLog   17 Feb 2009 14:58:15 -0000      1.15344
+++ ChangeLog   17 Feb 2009 16:49:40 -0000      1.15345
@@ -1,3 +1,8 @@
+2009-02-17  Sam Steingold  <address@hidden>
+
+       * progmodes/compile.el (compilation-filter): Call
+       `comint-carriage-motion', just like `comint-output-filter'.
+
 2009-02-17  Juanma Barranquero  <address@hidden>
 
        * net/newst-treeview.el (newsticker--treeview-load): Remove bogus `if'.

Index: progmodes/compile.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/compile.el,v
retrieving revision 1.485
retrieving revision 1.486
diff -u -b -r1.485 -r1.486
--- progmodes/compile.el        5 Jan 2009 03:23:23 -0000       1.485
+++ progmodes/compile.el        17 Feb 2009 16:49:42 -0000      1.486
@@ -1726,7 +1726,9 @@
 
 (defun compilation-filter (proc string)
   "Process filter for compilation buffers.
-Just inserts the text, and runs `compilation-filter-hook'."
+Just inserts the text,
+handles carriage motion (see `comint-inhibit-carriage-motion'),
+and runs `compilation-filter-hook'."
   (when (buffer-live-p (process-buffer proc))
     (with-current-buffer (process-buffer proc)
       (let ((inhibit-read-only t)
@@ -1739,6 +1741,8 @@
               ;; point at `process-mark' scroll along with the output, but we
               ;; now use window-point-insertion-type instead.
               (insert string)
+              (unless comint-inhibit-carriage-motion
+                (comint-carriage-motion (process-mark proc) (point)))
               (set-marker (process-mark proc) (point))
               (run-hooks 'compilation-filter-hook))
           (goto-char pos))))))