Mercurial > emacs
comparison lisp/simple.el @ 70842:8b271981e0c5
Update comments.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Tue, 23 May 2006 00:49:55 +0000 |
parents | d3fec44f2362 |
children | 23bc72ff5e31 c44562301a11 |
comparison
equal
deleted
inserted
replaced
70841:2a874a2efaf4 | 70842:8b271981e0c5 |
---|---|
3643 ;; Move to the desired column. | 3643 ;; Move to the desired column. |
3644 (line-move-to-column column) | 3644 (line-move-to-column column) |
3645 (setq new (point)) | 3645 (setq new (point)) |
3646 | 3646 |
3647 ;; Process intangibility within a line. | 3647 ;; Process intangibility within a line. |
3648 ;; Move to the chosen destination position from above, | 3648 ;; With inhibit-point-motion-hooks bound to nil, a call to |
3649 ;; with intangibility processing enabled. | 3649 ;; goto-char moves point past intangible text. |
3650 | 3650 |
3651 ;; Avoid calling point-entered and point-left. | 3651 ;; However, inhibit-point-motion-hooks controls both the |
3652 ;; intangibility and the point-entered/point-left hooks. The | |
3653 ;; following hack avoids calling the point-* hooks | |
3654 ;; unnecessarily. Note that we move *forward* past intangible | |
3655 ;; text when the initial and final points are the same. | |
3652 (goto-char new) | 3656 (goto-char new) |
3653 (let ((inhibit-point-motion-hooks nil)) | 3657 (let ((inhibit-point-motion-hooks nil)) |
3654 (goto-char new) | 3658 (goto-char new) |
3655 | 3659 |
3656 ;; If intangibility moves us to a different (later) place | 3660 ;; If intangibility moves us to a different (later) place |