Commit 2a1e0c92 authored by Chong Yidong's avatar Chong Yidong

(line-move-1): If we did not move as far as desired, ensure that

point-left and point-entered hooks are called.
parent 36b3ea14
......@@ -4059,13 +4059,20 @@ Outline mode sets this."
(= arg 0))
(cond ((> arg 0)
;; If we did not move down as far as desired,
;; at least go to end of line.
(end-of-line))
;; If we did not move down as far as desired, at least go
;; to end of line. Be sure to call point-entered and
;; point-left-hooks.
(let* ((npoint (prog1 (line-end-position)
(goto-char opoint)))
(inhibit-point-motion-hooks nil))
(goto-char npoint)))
((< arg 0)
;; If we did not move up as far as desired,
;; at least go to beginning of line.
(beginning-of-line))
(let* ((npoint (prog1 (line-beginning-position)
(goto-char opoint)))
(inhibit-point-motion-hooks nil))
(goto-char npoint)))
(t
(line-move-finish (or goal-column temporary-goal-column)
opoint (> orig-arg 0)))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment