Commits

Ivan Andrus  committed 5ff1313

Fixed annoying error when using C-d to exit from a brk>

  • Participants
  • Parent commits 299cce7

Comments (0)

Files changed (1)

File gap-process.el

     (set-buffer (process-buffer proc))
     (goto-char (point-max))
     (insert (string-strip-chars string "\C-h\C-g\C-m"))
+    (set-marker comint-last-output-start (point))
     (set-marker (process-mark proc) (point))
     (if (and gap-process-beep (string-match "\C-g" string))
         (beep))
     (cond
      ((eq gap-send-state 'normal)
       (set-buffer (process-buffer proc))
+      (set-marker comint-last-output-start (point))
       (scrolling-process-filter
        proc (buttonize-syntax-error (string-strip-chars string "\C-g\C-h\C-m")))
 
         (if x
             (progn
               (setq gap-send-state 'normal)
+              (set-marker comint-last-output-start (point))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; NOTE: this section is only needed for NTEmacs
 ;;;       (insert (string-strip-chars string                        ;;GEZ: NTEmacs: get back 1st line of output