From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: not.real@tky.hut.fi Newsgroups: gmane.emacs.bugs Subject: (no subject) Date: Tue, 19 Oct 2004 18:39:03 -0400 Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Message-ID: NNTP-Posting-Host: deer.gmane.org X-Trace: sea.gmane.org 1098225100 10781 80.91.229.6 (19 Oct 2004 22:31:40 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 19 Oct 2004 22:31:40 +0000 (UTC) Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Wed Oct 20 00:31:30 2004 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1CK2Vu-0004WH-00 for ; Wed, 20 Oct 2004 00:31:30 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1CK2dG-0001Sv-RQ for geb-bug-gnu-emacs@m.gmane.org; Tue, 19 Oct 2004 18:39:06 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.33) id 1CK2dD-0001S3-Vj for bug-gnu-emacs@gnu.org; Tue, 19 Oct 2004 18:39:04 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.33) id 1CK2dD-0001Rk-Bk for bug-gnu-emacs@gnu.org; Tue, 19 Oct 2004 18:39:03 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1CK2dD-0001RZ-81 for bug-gnu-emacs@gnu.org; Tue, 19 Oct 2004 18:39:03 -0400 Original-Received: from [130.233.200.78] (helo=moog.hut.fi) by monty-python.gnu.org with smtp (Exim 4.34) id 1CK2VH-00085y-4M for bug-gnu-emacs@gnu.org; Tue, 19 Oct 2004 18:31:24 -0400 X-BeenThere: bug-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.bugs:9374 X-Report-Spam: http://spam.gmane.org/gmane.emacs.bugs:9374 >>From tontti+emacs@NOT.a.real.cc.hut.fi Wed Oct 20 01:08:48 2004 Date: Wed, 20 Oct 2004 01:08:48 +0300 (EEST) From: Asko Tontti To: bug-gnu-emacs@gnu.org Subject: line movement broken with intangible (forms-mode) [sorry, real address: remove NOT.a.real] This bug report will be sent to the Free Software Foundation, not to your local site managers! Please write in English, because the Emacs maintainers do not have translators to read other languages for them. Your bug report will be posted to the bug-gnu-emacs@gnu.org mailing list, and to the gnu.emacs.bug news group. In GNU Emacs 21.3.1 (i386-redhat-linux-gnu, X toolkit, Xaw3d scroll bars) of 2004-04-15 on bugs.devel.redhat.com configured using `configure --host=i386-redhat-linux --build=i386-redhat-linux --target=i386-redhat-linux-gnu --program-prefix= --prefix=/usr --exec-prefix=/usr --bindir=/usr/bin --sbindir=/usr/sbin --sysconfdir=/etc --datadir=/usr/share --includedir=/usr/include --libdir=/usr/lib --libexecdir=/usr/libexec --localstatedir=/var --sharedstatedir=/usr/com --mandir=/usr/share/man --infodir=/usr/share/info --with-pop --with-sound' Important settings: value of $LC_ALL: nil value of $LC_COLLATE: nil value of $LC_CTYPE: nil value of $LC_MESSAGES: nil value of $LC_MONETARY: nil value of $LC_NUMERIC: nil value of $LC_TIME: nil value of $LANG: en_US.UTF-8 locale-coding-system: utf-8 default-enable-multibyte-characters: t Please describe exactly what actions triggered the bug and the precise symptoms of the bug: In forms major mode 1) key (previous-line) doesn't work if previous line is intangible and non-empty. 2) forms--show-record sets cursor (point) to wrong location. It should be on the first field. There seems to be initialization problem so that intangible property isn't honoured properly before using key in the current record. This is also fixed by setting cursor to the first field. Patches: --- simple.el.ORIG 2002-10-24 16:07:58.000000000 +0300 +++ simple.el 2004-10-20 00:10:32.167568719 +0300 @@ -2594,7 +2594,7 @@ (goto-char (point-min)) (let ((inhibit-point-motion-hooks nil)) (goto-char new)) - (if (<= new line-end) + (if (<= (point) line-end) (setq new (point))))) ;; NEW is where we want to move to. ;; LINE-BEG and LINE-END are the beginning and end of the line. --- forms.el.ORIG 2001-07-16 15:22:58.000000000 +0300 +++ forms.el 2004-10-20 00:22:51.505796688 +0300 @@ -1546,7 +1546,7 @@ (funcall forms--format forms--the-record-list) ;; Prepare. - (goto-char (point-min)) + (goto-char (aref forms--markers 0)) (set-buffer-modified-p nil) (setq buffer-read-only forms-read-only) (setq mode-line-process Recent messages: Loading /usr/share/emacs/site-lisp/site-start.d/ruby-mode-init.el (source)...done Loading font-lock... Loading regexp-opt...done Loading font-lock...done Loading mwheel...done Loading jka-compr...done For information about the GNU Project and its goals, type C-h C-p. Making completion list... Loading view...done Loading emacsbug...done -- "Technological improvement flows from the freedom of technologists to learn and create." - Professor Edward W. Felten