martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* simple.el (line-move-to-column): Constrain move-to-column to

Browse Source 
current field.
This commit is contained in:
Chong Yidong
2006-08-03 14:26:27 +00:00
parent 9b7fa2975f
commit 7abcd3e393
2 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@@ -1,3 +1,8 @@
2006-08-03 Chong Yidong <cyd@stupidchicken.com>
* simple.el (line-move-to-column): Constrain move-to-column to
current field.
2006-08-03 Stefan Monnier <monnier@iro.umontreal.ca>
* font-lock.el (font-lock-beg, font-lock-end)

5
lisp/simple.el
View File

@@ -3697,7 +3697,10 @@ because what we really need is for `move-to-column'
and `current-column' to be able to ignore invisible text."
(if (zerop col)
(beginning-of-line)
(move-to-column col))
(let ((opoint (point)))
(move-to-column col)
;; move-to-column doesn't respect field boundaries.
(goto-char (constrain-to-field (point) opoint))))
(when (and line-move-ignore-invisible
(not (bolp)) (line-move-invisible-p (1- (point))))