procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* simple.el (line-move-finish): Don't call point motion hooks

Browse source 
while processing intangibility.
This commit is contained in:
Chong Yidong 2006-05-12 17:39:59 +00:00
parent 4e8f005c08
commit d584e29dfa
1 changed files with 18 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

40
lisp/simple.el
View file

@ -3645,29 +3645,25 @@ Outline mode sets this."
;; Process intangibility within a line.
;; Move to the chosen destination position from above,
;; with intangibility processing enabled.
(goto-char (point-min))
(let ((inhibit-point-motion-hooks nil))
(goto-char new)
;; If intangibility moves us to a different (later) place
;; in the same line, use that as the destination.
(if (<= (point) line-end)
(goto-char new)
;; If intangibility moves us to a different (later) place
;; in the same line, use that as the destination.
(if (<= (point) line-end)
(setq new (point))
;; If that position is "too late",
;; try the previous allowable position.
;; See if it is ok.
(backward-char)
(if (if forward
;; If going forward, don't accept the previous
;; allowable position if it is before the target line.
(< line-beg (point))
;; If going backward, don't accept the previous
;; allowable position if it is still after the target line.
(<= (point) line-end))
(setq new (point))
;; If that position is "too late",
;; try the previous allowable position.
;; See if it is ok.
(backward-char)
(if (if forward
;; If going forward, don't accept the previous
;; allowable position if it is before the target line.
(< line-beg (point))
;; If going backward, don't accept the previous
;; allowable position if it is still after the target line.
(<= (point) line-end))
(setq new (point))
;; As a last resort, use the end of the line.
(setq new line-end))))
;; As a last resort, use the end of the line.
(setq new line-end)))
;; Now move to the updated destination, processing fields
;; as well as intangibility.