(wdired-next-line, wdired-previous-line): Use

next-line and previous-line wrapped in with-no-warnings.

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  <rudalics@gmx.at>
+
+        * wdired.el (wdired-next-line, wdired-previous-line): Use
+        next-line and previous-line wrapped in with-no-warnings.
+
 2007-10-29  Ryan Yeske  <rcyeske@gmail.com>
 
         * 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)