(line-move): Use sign of arg to choose error condition.
authorRichard M. Stallman <rms@gnu.org>
Sun, 30 Oct 1994 06:38:49 +0000 (06:38 +0000)
committerRichard M. Stallman <rms@gnu.org>
Sun, 30 Oct 1994 06:38:49 +0000 (06:38 +0000)
lisp/simple.el

index c824d36..897a5c7 100644 (file)
@@ -1594,7 +1594,7 @@ When the `track-eol' feature is doing its job, the value is 9999.")
                     (zerop (forward-line 1)))
            (and (zerop (forward-line arg))
                 (bolp)))
-         (signal (if (bobp)
+         (signal (if (< arg 0)
                      'beginning-of-buffer
                    'end-of-buffer)
                  nil))