diff options
| author | Mauro Aranda | 2021-01-04 10:02:20 -0300 |
|---|---|---|
| committer | Mauro Aranda | 2021-01-04 10:02:20 -0300 |
| commit | 4e80eb7b7ce76e02fa0b2b0fa66223f29e3f6bcd (patch) | |
| tree | bcce0b8a668105eb84b8feb819294c1c42babaea /lisp/wid-edit.el | |
| parent | 65f21729e60f831026ce134b87561c5119b6a926 (diff) | |
| download | emacs-4e80eb7b7ce76e02fa0b2b0fa66223f29e3f6bcd.tar.gz emacs-4e80eb7b7ce76e02fa0b2b0fa66223f29e3f6bcd.zip | |
Don't skip widgets when moving backward
* lisp/wid-edit.el (widget-move): Remove code that caused
widget-backward to skip an immediate previous widget when moving
backward from the start of a widget. (Bug#45623)
* test/lisp/wid-edit-tests.el (widget-test-widget-backward): New test.
Diffstat (limited to 'lisp/wid-edit.el')
| -rw-r--r-- | lisp/wid-edit.el | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index f920130226e..8b10d71dcb3 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el | |||
| @@ -1204,7 +1204,6 @@ This is much faster.") | |||
| 1204 | ARG may be negative to move backward. | 1204 | ARG may be negative to move backward. |
| 1205 | When the second optional argument is non-nil, | 1205 | When the second optional argument is non-nil, |
| 1206 | nothing is shown in the echo area." | 1206 | nothing is shown in the echo area." |
| 1207 | (or (bobp) (> arg 0) (backward-char)) | ||
| 1208 | (let ((wrapped 0) | 1207 | (let ((wrapped 0) |
| 1209 | (number arg) | 1208 | (number arg) |
| 1210 | (old (widget-tabable-at))) | 1209 | (old (widget-tabable-at))) |