diff options
| author | Richard M. Stallman | 2002-03-28 18:27:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-03-28 18:27:23 +0000 |
| commit | a615252bebb6a65466d63630cbac9d668f1e5430 (patch) | |
| tree | ce0137eed48b9a6c64329457b2efe98aee15b28e | |
| parent | 0c54cd99f539b7fb790e590dd59a1ea73a4ec59d (diff) | |
| download | emacs-a615252bebb6a65466d63630cbac9d668f1e5430.tar.gz emacs-a615252bebb6a65466d63630cbac9d668f1e5430.zip | |
(line-move-to-column): Don't call move-to-column if COL=0.
| -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 b9235eaf17f..8e4a52f4d32 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -2633,7 +2633,9 @@ Outline mode sets this." | |||
| 2633 | This function works only in certain cases, | 2633 | This function works only in certain cases, |
| 2634 | because what we really need is for `move-to-column' | 2634 | because what we really need is for `move-to-column' |
| 2635 | and `current-column' to be able to ignore invisible text." | 2635 | and `current-column' to be able to ignore invisible text." |
| 2636 | (move-to-column col) | 2636 | (if (zerop col) |
| 2637 | (beginning-of-line) | ||
| 2638 | (move-to-column col)) | ||
| 2637 | 2639 | ||
| 2638 | (when (and line-move-ignore-invisible | 2640 | (when (and line-move-ignore-invisible |
| 2639 | (not (bolp)) (line-move-invisible (1- (point)))) | 2641 | (not (bolp)) (line-move-invisible (1- (point)))) |