From 0c0fa1d5fddadea943a9813e491f3f7727b86f45 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 18 Feb 2020 12:47:32 -0500 Subject: [PATCH] * lisp/wdired.el (wdired-next-line, wdired-previous-line): Preserve column --- lisp/wdired.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/wdired.el b/lisp/wdired.el index d91853e64dd..11cbe5822a7 100644 --- a/lisp/wdired.el +++ b/lisp/wdired.el @@ -640,6 +640,7 @@ Optional arguments are ignored." See `wdired-use-dired-vertical-movement'. Optional prefix ARG says how many lines to move; default is one line." (interactive "^p") + (setq this-command 'next-line) ;Let `line-move' preserve the column. (with-no-warnings (next-line arg)) (if (or (eq wdired-use-dired-vertical-movement t) (and wdired-use-dired-vertical-movement @@ -653,6 +654,7 @@ says how many lines to move; default is one line." See `wdired-use-dired-vertical-movement'. Optional prefix ARG says how many lines to move; default is one line." (interactive "^p") + (setq this-command 'previous-line) ;Let `line-move' preserve the column. (with-no-warnings (previous-line arg)) (if (or (eq wdired-use-dired-vertical-movement t) (and wdired-use-dired-vertical-movement -- 2.39.5