diff options
| author | Richard M. Stallman | 1994-10-30 06:38:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-10-30 06:38:49 +0000 |
| commit | da4871b308b3ad8383a4d137279459dd07a8e5fc (patch) | |
| tree | 36366b86e815197337aba2a70fbcacd96971c753 | |
| parent | 7e1ddd454816d7eaa32ce1751eeffcfdb1cbb730 (diff) | |
| download | emacs-da4871b308b3ad8383a4d137279459dd07a8e5fc.tar.gz emacs-da4871b308b3ad8383a4d137279459dd07a8e5fc.zip | |
(line-move): Use sign of arg to choose error condition.
| -rw-r--r-- | lisp/simple.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index c824d364f8c..897a5c706fa 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -1594,7 +1594,7 @@ When the `track-eol' feature is doing its job, the value is 9999.") | |||
| 1594 | (zerop (forward-line 1))) | 1594 | (zerop (forward-line 1))) |
| 1595 | (and (zerop (forward-line arg)) | 1595 | (and (zerop (forward-line arg)) |
| 1596 | (bolp))) | 1596 | (bolp))) |
| 1597 | (signal (if (bobp) | 1597 | (signal (if (< arg 0) |
| 1598 | 'beginning-of-buffer | 1598 | 'beginning-of-buffer |
| 1599 | 'end-of-buffer) | 1599 | 'end-of-buffer) |
| 1600 | nil)) | 1600 | nil)) |