andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* simple.el (line-move-finish): Ignore field boundaries if the

Browse source 
initial and final points have the same `field' property.
This commit is contained in:
Chong Yidong 2006-09-29 18:18:42 +00:00
parent d471b4fe3a
commit e94e78cc99
2 changed files with 14 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2006-09-29 Chong Yidong <cyd@stupidchicken.com>
* simple.el (line-move-finish): Ignore field boundaries if the
initial and final points have the same `field' property.
2006-09-29 Kim F. Storm <storm@cua.dk>
* ido.el (ido-file-internal): Only bind minibuffer-completing-file-name

11
lisp/simple.el
View file

@ -3735,8 +3735,15 @@ Outline mode sets this."
(goto-char opoint)
(let ((inhibit-point-motion-hooks nil))
(goto-char
(constrain-to-field new opoint t t
'inhibit-line-move-field-capture)))
;; Ignore field boundaries if the initial and final
;; positions have the same `field' property, even if the
;; fields are non-contiguous. This seems to be "nicer"
;; behavior in many situations.
(if (eq (get-char-property new 'field)
(get-char-property opoint 'field))
new
(constrain-to-field new opoint t t
'inhibit-line-move-field-capture))))
;; If all this moved us to a different line,
;; retry everything within that new line.