comparison lisp/comint.el @ 50966:379cf00d7016

(comint-carriage-motion, comint-output-filter): Bind inhibit-read-only rather than buffer-read-only. (comint-truncate-buffer): Bind inhibit-read-only.

50965:c1e6923f4f9b

;;; comint.el --- general command interpreter in a window stuff

;; Copyright (C) 1988, 90, 92, 93, 94, 95, 96, 97, 98, 99, 2000, 2001, 2002
;;	Free Software Foundation, Inc.

;; Author: Olin Shivers <[e-mail]>
;;	Simon Marshall <[e-mail]>
;; Maintainer: FSF

(defun comint-exec (buffer name command startfile switches)
  "Start up a process in buffer BUFFER for comint modes.
Blasts any old process running in the buffer.  Doesn't set the buffer mode.
You can use this to cheaply run a series of processes in the same comint
buffer.  The hook `comint-exec-hook' is run after each exec."
  (save-excursion
    (set-buffer buffer)
    (let ((proc (get-buffer-process buffer)))	; Blast any old process.
      (if proc (delete-process proc)))
    ;; Crank up a new process
    (let ((proc
	   (if (consp command)

    (when (< (skip-chars-forward "^\b\r" end) (- end start))
      (save-match-data
	(save-restriction
	  (widen)
	  (let ((inhibit-field-text-motion t)
		(buffer-read-only nil))
	    ;; CR LF -> LF
	    ;; Note that this won't work properly when the CR and LF
	    ;; are in different output chunks, but this is probably an
	    ;; exceedingly rare case (because they are generally
	    ;; written as a unit), and to delay interpretation of a

		    (setq functions (cdr functions))))
	      (setq string (funcall (car functions) string)))
	    (setq functions (cdr functions))))

	;; Insert STRING
	(let ((buffer-read-only nil)
	      ;; Avoid the overhead of save-excursion, since we just
	      ;; fiddle with the point
	      (saved-point (point-marker)))

	  ;; The point should float after any insertion we do

  (interactive)
  (save-excursion
    (goto-char (process-mark (get-buffer-process (current-buffer))))
    (forward-line (- comint-buffer-maximum-size))
    (beginning-of-line)
    (delete-region (point-min) (point))))

(defun comint-strip-ctrl-m (&optional string)
  "Strip trailing `^M' characters from the current output group.
This function could be on `comint-output-filter-functions' or bound to a key."
  (interactive)

50966:379cf00d7016

;;; comint.el --- general command interpreter in a window stuff

;; Copyright (C) 1988,90,92,93,94,95,96,97,98,99,2000,01,02,2003
;;	Free Software Foundation, Inc.

;; Author: Olin Shivers <[e-mail]>
;;	Simon Marshall <[e-mail]>
;; Maintainer: FSF

(defun comint-exec (buffer name command startfile switches)
  "Start up a process in buffer BUFFER for comint modes.
Blasts any old process running in the buffer.  Doesn't set the buffer mode.
You can use this to cheaply run a series of processes in the same comint
buffer.  The hook `comint-exec-hook' is run after each exec."
  (with-current-buffer buffer
    (let ((proc (get-buffer-process buffer)))	; Blast any old process.
      (if proc (delete-process proc)))
    ;; Crank up a new process
    (let ((proc
	   (if (consp command)

    (when (< (skip-chars-forward "^\b\r" end) (- end start))
      (save-match-data
	(save-restriction
	  (widen)
	  (let ((inhibit-field-text-motion t)
		(inhibit-read-only t))
	    ;; CR LF -> LF
	    ;; Note that this won't work properly when the CR and LF
	    ;; are in different output chunks, but this is probably an
	    ;; exceedingly rare case (because they are generally
	    ;; written as a unit), and to delay interpretation of a

		    (setq functions (cdr functions))))
	      (setq string (funcall (car functions) string)))
	    (setq functions (cdr functions))))

	;; Insert STRING
	(let ((inhibit-read-only t)
	      ;; Avoid the overhead of save-excursion, since we just
	      ;; fiddle with the point
	      (saved-point (point-marker)))

	  ;; The point should float after any insertion we do

  (interactive)
  (save-excursion
    (goto-char (process-mark (get-buffer-process (current-buffer))))
    (forward-line (- comint-buffer-maximum-size))
    (beginning-of-line)
    (let ((inhibit-read-only t))
      (delete-region (point-min) (point)))))

(defun comint-strip-ctrl-m (&optional string)
  "Strip trailing `^M' characters from the current output group.
This function could be on `comint-output-filter-functions' or bound to a key."
  (interactive)