From unknown Sun Jun 15 10:52:53 2025 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable MIME-Version: 1.0 X-Mailer: MIME-tools 5.509 (Entity 5.509) Content-Type: text/plain; charset=utf-8 From: bug#1344 <1344@debbugs.gnu.org> To: bug#1344 <1344@debbugs.gnu.org> Subject: Status: lisp/progmodes/tcl.el (tcl-filter): shouldn't move point Reply-To: bug#1344 <1344@debbugs.gnu.org> Date: Sun, 15 Jun 2025 17:52:53 +0000 retitle 1344 lisp/progmodes/tcl.el (tcl-filter): shouldn't move point reassign 1344 emacs submitter 1344 Ivan Shmakov severity 1344 normal tag 1344 patch thanks From rgm@gnu.org Thu Nov 13 16:01:50 2008 X-Spam-Checker-Version: SpamAssassin 3.2.3-bugs.debian.org_2005_01_02 (2007-08-08) on rzlab.ucr.edu X-Spam-Level: X-Spam-Status: No, score=-11.0 required=4.0 tests=BAYES_00,MURPHY_DRUGS_REL8, RCVD_IN_DNSWL_MED,X_DEBBUGS_NO_ACK autolearn=ham version=3.2.3-bugs.debian.org_2005_01_02 Received: (at quiet) by emacsbugs.donarmstrong.com; 14 Nov 2008 00:01:50 +0000 Received: from fencepost.gnu.org (fencepost.gnu.org [140.186.70.10]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with ESMTP id mAE01lIJ021360 for ; Thu, 13 Nov 2008 16:01:48 -0800 Received: from rgm by fencepost.gnu.org with local (Exim 4.67) (envelope-from ) id 1L0m89-0002ft-RH for quiet@emacsbugs.donarmstrong.com; Thu, 13 Nov 2008 19:01:45 -0500 From: Ivan Shmakov To: quiet@debbugs.gnu.org Subject: lisp/progmodes/tcl.el (tcl-filter): shouldn't move point Date: Tue, 04 Nov 2008 14:45:11 +0600 Lines: 40 X-From-Line: emacs-devel-bounces+rgm=gnu.org@gnu.org Tue Nov 4 03:43:10 2008 Received: from mail.gnu.org ([199.232.76.166]:55537 helo=mx10.gnu.org) by fencepost.gnu.org with esmtp (Exim 4.67) (envelope-from ) id 1KxHVF-0007QQ-Lu for rgm@gnu.org; Tue, 04 Nov 2008 03:43:09 -0500 Received: from Debian-exim by monty-python.gnu.org with spam-scanned (Exim 4.60) (envelope-from ) id 1KxHY6-0006sc-6J for rgm@gnu.org; Tue, 04 Nov 2008 03:46:07 -0500 Received: from lists.gnu.org ([199.232.76.165]:56460) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1KxHY5-0006sP-9J for rgm@gnu.org; Tue, 04 Nov 2008 03:46:05 -0500 Received: from localhost ([127.0.0.1]:44459 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1KxHY4-0008WQ-Q6 for rgm@gnu.org; Tue, 04 Nov 2008 03:46:04 -0500 Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1KxHXT-0008Vm-3i for emacs-devel@gnu.org; Tue, 04 Nov 2008 03:45:27 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1KxHXQ-0008VQ-Ny for emacs-devel@gnu.org; Tue, 04 Nov 2008 03:45:26 -0500 Received: from [199.232.76.173] (port=35928 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1KxHXQ-0008VL-Gd for emacs-devel@gnu.org; Tue, 04 Nov 2008 03:45:24 -0500 Received: from mx20.gnu.org ([199.232.41.8]:54011) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1KxHXQ-0006pL-BP for emacs-devel@gnu.org; Tue, 04 Nov 2008 03:45:24 -0500 Received: from ey-out-1920.google.com ([74.125.78.146]) by mx20.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1KxHXP-0005CO-7l for emacs-devel@gnu.org; Tue, 04 Nov 2008 03:45:23 -0500 Received: by ey-out-1920.google.com with SMTP id 4so1051124eyg.24 for ; Tue, 04 Nov 2008 00:45:20 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma; h=domainkey-signature:received:received:from:subject:to:cc:date :message-id:user-agent:mime-version:content-type; bh=8vGqhIi4QmNCtX25HaijKedmn7N+Jwf6apKquhgemg8=; b=wrGVbJxrwzpKV437AtrKBkYUqKM2WBoPuv3rt1S4fGYH1MuTE3jKnvX7KcaMFIwZkT 3LEBuzu4EGjzr5sqOcg+isXTR8GoztVRQo9GLsOXegfZzwn/U9NUsQerPJqOjtlIRmKN sMWnf00bnzTbS9XQmn6VyI83bllu7PevLLr0k= DomainKey-Signature: a=rsa-sha1; c=nofws; d=gmail.com; s=gamma; h=from:subject:to:cc:date:message-id:user-agent:mime-version :content-type; b=DiQNQRT5YdhoUN7j3k8c1DkmFqB7KpcooLxb8E5lKiW7iXUiefmEarJnEb/9dyLUnM XtV7ArzrvlPbfbTeXpUyWx212Iq7qjpM5YWzOxeBnJMUnvVe9hxBTzspsjadrr6/Jn2E 9gAevY7S5NRjDMHBDPtdIDwf1h1UHlbWBOfRM= Received: by 10.210.66.1 with SMTP id o1mr1293410eba.174.1225788320524; Tue, 04 Nov 2008 00:45:20 -0800 (PST) Received: from violet.siamics.int ([81.201.255.124]) by mx.google.com with ESMTPS id k5sm42195333nfh.0.2008.11.04.00.45.18 (version=TLSv1/SSLv3 cipher=RC4-MD5); Tue, 04 Nov 2008 00:45:19 -0800 (PST) X-Debbugs-No-Ack: yes X-detected-kernel: by mx20.gnu.org: Linux 2.6 (newer, 2) X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6, seldom 2.4 (older, 4) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+rgm=gnu.org@gnu.org X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6, seldom 2.4 (older, 4) Message-ID: <6e1vxfqiom.fsf@fencepost.gnu.org> User-Agent: Gnus (www.gnus.org), GNU Emacs (www.gnu.org/software/emacs/) MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Sender: Glenn Morris Tags: patch [ resent from http://lists.gnu.org/archive/html/emacs-devel/2008-11/msg00104.html ] tcl.el reads: --cut: http://cvs.savannah.gnu.org/viewvc/*checkout*/emacs/emacs/lisp/progmodes/tcl.el?revision=1.93-- (defun tcl-filter (proc string) (let ((inhibit-quit t)) (with-current-buffer (process-buffer proc) (goto-char (process-mark proc)) ;; Delete prompt if requested. (if (marker-buffer inferior-tcl-delete-prompt-marker) (progn (delete-region (point) inferior-tcl-delete-prompt-marker) (set-marker inferior-tcl-delete-prompt-marker nil))))) (comint-output-filter proc string)) --cut: http://cvs.savannah.gnu.org/viewvc/*checkout*/emacs/emacs/lisp/progmodes/tcl.el?revision=1.93-- Thus, the point is moved every time there is a new output from Tcl. Shouldn't it be like the following instead? --- tcl.el?revision=1.93 +++ tcl.el @@ -1031,11 +1031,11 @@ (defun tcl-filter (proc string) (let ((inhibit-quit t)) (with-current-buffer (process-buffer proc) - (goto-char (process-mark proc)) ;; Delete prompt if requested. (if (marker-buffer inferior-tcl-delete-prompt-marker) (progn - (delete-region (point) inferior-tcl-delete-prompt-marker) + (delete-region (process-mark proc) + inferior-tcl-delete-prompt-marker) (set-marker inferior-tcl-delete-prompt-marker nil))))) (comint-output-filter proc string)) If such scrolling is desired, the `comint-move-point-for-output' variable could be set non-nil. From rgm@gnu.org Fri Nov 21 14:37:01 2008 X-Spam-Checker-Version: SpamAssassin 3.2.3-bugs.debian.org_2005_01_02 (2007-08-08) on rzlab.ucr.edu X-Spam-Level: X-Spam-Status: No, score=-8.8 required=4.0 tests=AWL,BAYES_00,MISSING_SUBJECT, NOSUBJECT,RCVD_IN_DNSWL_MED,X_DEBBUGS_NO_ACK autolearn=ham version=3.2.3-bugs.debian.org_2005_01_02 Received: (at control) by emacsbugs.donarmstrong.com; 21 Nov 2008 22:37:01 +0000 Received: from fencepost.gnu.org (fencepost.gnu.org [140.186.70.10]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with ESMTP id mALMawYa031805 for ; Fri, 21 Nov 2008 14:37:00 -0800 Received: from rgm by fencepost.gnu.org with local (Exim 4.67) (envelope-from ) id 1L3ecI-0006kq-EN; Fri, 21 Nov 2008 17:36:46 -0500 MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Message-ID: <18727.14334.118747.596676@fencepost.gnu.org> Date: Fri, 21 Nov 2008 17:36:46 -0500 From: Glenn Morris To: control X-Attribution: GM X-Mailer: VM (www.wonderworks.com/vm), GNU Emacs (www.gnu.org/software/emacs) X-Hue: magenta X-Ran: h>}Wi5sZ($;%/ukF>r=!Fsc^9;\O^3w}>QrregzRtjLxie-C+v[A<