Mercurial > emacs
comparison lisp/simple.el @ 60664:2edb492f66d9
(move-beginning-of-line): Move to beginning of buffer
line, as well as beginning of screen line.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Thu, 17 Mar 2005 15:33:56 +0000 |
| parents | b532848a1806 |
| children | 660b45682e47 1830bcd0eec0 30ad2795fdab |
comparison
equal
deleted
inserted
replaced
| 60663:8a1e88626f04 | 60664:2edb492f66d9 |
|---|---|
| 3534 boundaries bind `inhibit-field-text-motion' to t." | 3534 boundaries bind `inhibit-field-text-motion' to t." |
| 3535 (interactive "p") | 3535 (interactive "p") |
| 3536 (or arg (setq arg 1)) | 3536 (or arg (setq arg 1)) |
| 3537 (if (/= arg 1) | 3537 (if (/= arg 1) |
| 3538 (line-move (1- arg) t)) | 3538 (line-move (1- arg) t)) |
| 3539 (beginning-of-line 1) | |
| 3539 (let ((orig (point))) | 3540 (let ((orig (point))) |
| 3540 (vertical-motion 0) | 3541 (vertical-motion 0) |
| 3541 (goto-char (constrain-to-field (point) orig (/= arg 1) t nil)))) | 3542 (if (/= orig (point)) |
| 3543 (goto-char (constrain-to-field (point) orig (/= arg 1) t nil))))) | |
| 3542 | 3544 |
| 3543 | 3545 |
| 3544 ;;; Many people have said they rarely use this feature, and often type | 3546 ;;; Many people have said they rarely use this feature, and often type |
| 3545 ;;; it by accident. Maybe it shouldn't even be on a key. | 3547 ;;; it by accident. Maybe it shouldn't even be on a key. |
| 3546 (put 'set-goal-column 'disabled t) | 3548 (put 'set-goal-column 'disabled t) |