From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 18 Feb 2020 17:47:32 +0000 (-0500)
Subject: * lisp/wdired.el (wdired-next-line, wdired-previous-line): Preserve column
X-Git-Tag: emacs-28.0.90~7872
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0c0fa1d5fddadea943a9813e491f3f7727b86f45;p=emacs.git

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

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