diff options
| -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 |