mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(line-move-1): Respect `inhibit-line-move-field-capture' property.

Browse Source
This commit is contained in:
Chong Yidong 2007-03-17 19:44:21 +00:00
parent f24478c1c5
commit 0788987302
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/simple.el
View File

@ -3594,7 +3594,7 @@ Outline mode sets this."
'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 @@ Outline mode sets this."
;; Move a line.
;; We don't use `end-of-line', since we want to escape
;; from field boundaries ocurring exactly at point.
(let ((inhibit-field-text-motion t))
(setq line-end (line-end-position)))
(goto-char (constrain-to-field line-end (point) t t))
(goto-char (constrain-to-field
(let ((inhibit-field-text-motion t))
(line-end-position))
(point) t t
'inhibit-line-move-field-capture))
;; If there's no invisibility here, move over the newline.
(cond
((eobp)