[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/simple.el,v
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/simple.el,v |
Date: |
Sat, 17 Mar 2007 19:44:22 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Chong Yidong <cyd> 07/03/17 19:44:22
Index: simple.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/simple.el,v
retrieving revision 1.849
retrieving revision 1.850
diff -u -b -r1.849 -r1.850
--- simple.el 8 Mar 2007 14:43:08 -0000 1.849
+++ simple.el 17 Mar 2007 19:44:21 -0000 1.850
@@ -3594,7 +3594,7 @@
'end-of-buffer)
nil)))
;; Move by arg lines, but ignore invisible ones.
- (let (done line-end)
+ (let (done)
(while (and (> arg 0) (not done))
;; If the following character is currently invisible,
;; skip all characters with that same `invisible' property
value.
@@ -3603,9 +3603,11 @@
;; Move a line.
;; We don't use `end-of-line', since we want to escape
;; from field boundaries ocurring exactly at point.
+ (goto-char (constrain-to-field
(let ((inhibit-field-text-motion t))
- (setq line-end (line-end-position)))
- (goto-char (constrain-to-field line-end (point) t t))
+ (line-end-position))
+ (point) t t
+ 'inhibit-line-move-field-capture))
;; If there's no invisibility here, move over the newline.
(cond
((eobp)
- [Emacs-diffs] Changes to emacs/lisp/simple.el,v, Richard M. Stallman, 2007/03/04
- [Emacs-diffs] Changes to emacs/lisp/simple.el,v, Stefan Monnier, 2007/03/05
- [Emacs-diffs] Changes to emacs/lisp/simple.el,v, Chong Yidong, 2007/03/08
- [Emacs-diffs] Changes to emacs/lisp/simple.el,v,
Chong Yidong <=
- [Emacs-diffs] Changes to emacs/lisp/simple.el,v, Chong Yidong, 2007/03/19
- [Emacs-diffs] Changes to emacs/lisp/simple.el,v, Richard M. Stallman, 2007/03/20
- [Emacs-diffs] Changes to emacs/lisp/simple.el,v, Chong Yidong, 2007/03/28
- [Emacs-diffs] Changes to emacs/lisp/simple.el,v, Juanma Barranquero, 2007/03/30