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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 78091c144b122c3c8b6ebf50b58546c31bb717f1..3787bf7f4319909c1bdbb233b01825a5591c85f4 100644 (file)
--- 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 0c75592bd039b983142b59f5b84353dd37a7ae99..25798cce64eaf10d301f8fd3a7d751123824d6a1 100644 (file)
--- 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)