[Emacs-diffs] Changes to emacs/lisp/simple.el

[Chong Yidong]

Index: emacs/lisp/simple.el
diff -u emacs/lisp/simple.el:1.804 emacs/lisp/simple.el:1.805
--- emacs/lisp/simple.el:1.804  Sun May 21 22:56:27 2006
+++ emacs/lisp/simple.el        Tue May 23 00:49:55 2006
@@ -3645,10 +3645,14 @@
        (setq new (point))
 
        ;; Process intangibility within a line.
-       ;; Move to the chosen destination position from above,
-       ;; with intangibility processing enabled.
+       ;; With inhibit-point-motion-hooks bound to nil, a call to
+       ;; goto-char moves point past intangible text.
 
-       ;; Avoid calling point-entered and point-left.
+       ;; However, inhibit-point-motion-hooks controls both the
+       ;; intangibility and the point-entered/point-left hooks.  The
+       ;; following hack avoids calling the point-* hooks
+       ;; unnecessarily.  Note that we move *forward* past intangible
+       ;; text when the initial and final points are the same.
        (goto-char new)
        (let ((inhibit-point-motion-hooks nil))
          (goto-char new)