diff options
| author | Richard M. Stallman | 2001-01-12 19:51:09 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2001-01-12 19:51:09 +0000 |
| commit | 6bfdc2e29f72fda0bb19ee78daf625e2224e27ce (patch) | |
| tree | 51068c0526349b53d3a18cedf8d974d842ba2945 | |
| parent | 420198cbe200caebda715cd3b73858f4b8b6a964 (diff) | |
| download | emacs-6bfdc2e29f72fda0bb19ee78daf625e2224e27ce.tar.gz emacs-6bfdc2e29f72fda0bb19ee78daf625e2224e27ce.zip | |
(last): Handle a list that doesn't end in nil.
| -rw-r--r-- | lisp/subr.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 3a60e15b0e5..2d6a72a6ac5 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -131,7 +131,7 @@ If N is bigger than the length of X, return X." | |||
| 131 | (setq m (1+ m) p (cdr p))) | 131 | (setq m (1+ m) p (cdr p))) |
| 132 | (if (<= n 0) p | 132 | (if (<= n 0) p |
| 133 | (if (< n m) (nthcdr (- m n) x) x))) | 133 | (if (< n m) (nthcdr (- m n) x) x))) |
| 134 | (while (cdr x) | 134 | (while (consp (cdr x)) |
| 135 | (setq x (cdr x))) | 135 | (setq x (cdr x))) |
| 136 | x)) | 136 | x)) |
| 137 | 137 | ||