From e9283e70e6bf5ac82ee581bbae7cbb8d6a75525d Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Mon, 29 Oct 2007 06:48:22 +0000 Subject: [PATCH] (wdired-next-line, wdired-previous-line): Use next-line and previous-line wrapped in with-no-warnings. --- lisp/ChangeLog | 5 +++++ lisp/wdired.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 78091c144b1..3787bf7f431 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-10-29 Martin Rudalics + + * wdired.el (wdired-next-line, wdired-previous-line): Use + next-line and previous-line wrapped in with-no-warnings. + 2007-10-29 Ryan Yeske * net/rcirc.el (rcirc-server-alist): Use coloned symbols for diff --git a/lisp/wdired.el b/lisp/wdired.el index 0c75592bd03..25798cce64e 100644 --- a/lisp/wdired.el +++ b/lisp/wdired.el @@ -499,7 +499,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") - (forward-line arg) + (with-no-warnings (next-line arg)) (if (or (eq wdired-use-dired-vertical-movement t) (and wdired-use-dired-vertical-movement (< (current-column) @@ -512,7 +512,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") - (forward-line (- arg)) + (with-no-warnings (previous-line arg)) (if (or (eq wdired-use-dired-vertical-movement t) (and wdired-use-dired-vertical-movement (< (current-column) -- 2.39.2