* lisp/wdired.el (wdired-next-line, wdired-previous-line): Preserve column

1 files changed, 2 insertions, 0 deletions

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