From: Chong Yidong <cyd@stupidchicken.com>
Date: Tue, 3 Jun 2008 22:56:56 +0000 (+0000)
Subject: (line-move-1): If we did not move as far as desired, ensure that
X-Git-Tag: emacs-pretest-23.0.90~5123
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2a1e0c92c318a2c0ba436b4435cd0fe2f7f75261;p=emacs.git

(line-move-1): If we did not move as far as desired, ensure that
point-left and point-entered hooks are called.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 118bb715ec8..8367ae9ba10 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -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)))))))