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) |