diff options
| author | Kim F. Storm | 2005-03-17 15:33:56 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2005-03-17 15:33:56 +0000 |
| commit | bfb1a447d213a125d099b2432bdf6843a156bb1b (patch) | |
| tree | a5efde36e9a996ec2ad2c04ecbc92397c05ded10 | |
| parent | 0b6ec58d7c2fb9fd42210a5af5fa288a62d9e98d (diff) | |
| download | emacs-bfb1a447d213a125d099b2432bdf6843a156bb1b.tar.gz emacs-bfb1a447d213a125d099b2432bdf6843a156bb1b.zip | |
(move-beginning-of-line): Move to beginning of buffer
line, as well as beginning of screen line.
| -rw-r--r-- | lisp/simple.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index e154d56ea66..1a76c1a852e 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -3536,9 +3536,11 @@ boundaries bind `inhibit-field-text-motion' to t." | |||
| 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 |