diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2020-02-18 12:47:32 -0500 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2020-02-18 12:47:32 -0500 |
commit | 0c0fa1d5fddadea943a9813e491f3f7727b86f45 (patch) | |
tree | 1e0e55bc9c3bbd292920fa7a10703bbb0261ed60 /lisp/wdired.el | |
parent | 121f9bb14ab0abe618cabd24bd25ed328e36891c (diff) | |
download | emacs-0c0fa1d5fddadea943a9813e491f3f7727b86f45.tar.gz |
* lisp/wdired.el (wdired-next-line, wdired-previous-line): Preserve column
Diffstat (limited to 'lisp/wdired.el')
-rw-r--r-- | lisp/wdired.el | 2 |
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 |