(no subject)

[not . real]

>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 <tontti+emacs@NOT.a.real.cc.hut.fi>
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) <up> 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 <tab> 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