[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r101954: lisp/subr.el (last): Deal wi
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r101954: lisp/subr.el (last): Deal with dotted lists (reported in bug#7174). |
Date: |
Thu, 14 Oct 2010 01:43:39 +0200 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 101954
author: Glenn Morris <address@hidden>
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Thu 2010-10-14 01:43:39 +0200
message:
lisp/subr.el (last): Deal with dotted lists (reported in bug#7174).
modified:
lisp/ChangeLog
lisp/subr.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2010-10-13 23:15:03 +0000
+++ b/lisp/ChangeLog 2010-10-13 23:43:39 +0000
@@ -1,3 +1,7 @@
+2010-10-13 Glenn Morris <address@hidden>
+
+ * subr.el (last): Deal with dotted lists (reported in bug#7174).
+
2010-10-13 Stephen Berman <address@hidden>
* subr.el (last): Use `safe-length' instead of `length' (bug#7206).
=== modified file 'lisp/subr.el'
--- a/lisp/subr.el 2010-10-13 23:15:03 +0000
+++ b/lisp/subr.el 2010-10-13 23:43:39 +0000
@@ -289,7 +289,7 @@
If N is non-nil, return the Nth-to-last link of LIST.
If N is bigger than the length of LIST, return LIST."
(if n
- (and (> n 0)
+ (and (>= n 0)
(let ((m (safe-length list)))
(if (< n m) (nthcdr (- m n) list) list)))
(and list
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r101954: lisp/subr.el (last): Deal with dotted lists (reported in bug#7174).,
Juanma Barranquero <=