diff options
| author | Eli Zaretskii | 2013-06-29 18:20:46 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2013-06-29 18:20:46 +0300 |
| commit | 79007321264153e8b4e6bfb9974ae6a99babe8c1 (patch) | |
| tree | e0e07360e84c3c19db9e2f1b92c16aa0bc403260 | |
| parent | 4c672a0fec1d18cc1a445acf3e6935d681d4048f (diff) | |
| download | emacs-79007321264153e8b4e6bfb9974ae6a99babe8c1.tar.gz emacs-79007321264153e8b4e6bfb9974ae6a99babe8c1.zip | |
Minor fix in right-char and left-char, per Stefan's comments.
| -rw-r--r-- | lisp/bindings.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index 7c42cc6c0a8..a3aef3244bc 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el | |||
| @@ -725,9 +725,7 @@ see." | |||
| 725 | (interactive "^p") | 725 | (interactive "^p") |
| 726 | (if visual-order-cursor-movement | 726 | (if visual-order-cursor-movement |
| 727 | (dotimes (i (if (numberp n) (abs n) 1)) | 727 | (dotimes (i (if (numberp n) (abs n) 1)) |
| 728 | (if (< n 0) | 728 | (move-point-visually (if (< n 0) -1 1)) |
| 729 | (move-point-visually -1) | ||
| 730 | (move-point-visually 1)) | ||
| 731 | (sit-for 0)) | 729 | (sit-for 0)) |
| 732 | (if (eq (current-bidi-paragraph-direction) 'left-to-right) | 730 | (if (eq (current-bidi-paragraph-direction) 'left-to-right) |
| 733 | (forward-char n) | 731 | (forward-char n) |
| @@ -746,9 +744,7 @@ see." | |||
| 746 | (interactive "^p") | 744 | (interactive "^p") |
| 747 | (if visual-order-cursor-movement | 745 | (if visual-order-cursor-movement |
| 748 | (dotimes (i (if (numberp n) (abs n) 1)) | 746 | (dotimes (i (if (numberp n) (abs n) 1)) |
| 749 | (if (< n 0) | 747 | (move-point-visually (if (< n 0) 1 -1)) |
| 750 | (move-point-visually 1) | ||
| 751 | (move-point-visually -1)) | ||
| 752 | (sit-for 0)) | 748 | (sit-for 0)) |
| 753 | (if (eq (current-bidi-paragraph-direction) 'left-to-right) | 749 | (if (eq (current-bidi-paragraph-direction) 'left-to-right) |
| 754 | (backward-char n) | 750 | (backward-char n) |