[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r105050: * lisp/subr.el (remq): Handl
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r105050: * lisp/subr.el (remq): Handle the empty list. (Bug#9024) |
Date: |
Fri, 08 Jul 2011 20:50:01 -0400 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 105050
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2011-07-08 20:50:01 -0400
message:
* lisp/subr.el (remq): Handle the empty list. (Bug#9024)
modified:
lisp/ChangeLog
lisp/subr.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2011-07-08 17:02:01 +0000
+++ b/lisp/ChangeLog 2011-07-09 00:50:01 +0000
@@ -1,3 +1,7 @@
+2011-07-09 Glenn Morris <address@hidden>
+
+ * subr.el (remq): Handle the empty list. (Bug#9024)
+
2011-07-08 Andreas Schwab <address@hidden>
* mail/sendmail.el (send-mail-function): No longer delay custom
=== modified file 'lisp/subr.el'
--- a/lisp/subr.el 2011-07-02 04:27:41 +0000
+++ b/lisp/subr.el 2011-07-09 00:50:01 +0000
@@ -490,7 +490,7 @@
"Return LIST with all occurrences of ELT removed.
The comparison is done with `eq'. Contrary to `delq', this does not use
side-effects, and the argument LIST is not modified."
- (while (eq elt (car list)) (setq list (cdr list)))
+ (while (and (eq elt (car list)) (setq list (cdr list))))
(if (memq elt list)
(delq elt (copy-sequence list))
list))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r105050: * lisp/subr.el (remq): Handle the empty list. (Bug#9024),
Glenn Morris <=