diff options
| author | Glenn Morris | 2014-08-27 18:55:45 -0700 |
|---|---|---|
| committer | Glenn Morris | 2014-08-27 18:55:45 -0700 |
| commit | 93b31b57283d369fefc5c95082d7b09288f05128 (patch) | |
| tree | 27b837747f954f99108aa3803b0a2d5ac14fabc8 | |
| parent | cbe070d11440419e271aba723aa42d834395f2cd (diff) | |
| download | emacs-93b31b57283d369fefc5c95082d7b09288f05128.tar.gz emacs-93b31b57283d369fefc5c95082d7b09288f05128.zip | |
* lisp/subr.el (remq): Revert 2014-08-25 doc change (not always true).
See the interminable bug discussion if you have nothing better to do.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/subr.el | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8f23c01de43..b2674b3b6af 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2014-08-28 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * subr.el (remq): Revert 2014-08-25 doc change (not always true). | ||
| 4 | |||
| 1 | 2014-08-27 Dmitry Antipov <dmantipov@yandex.ru> | 5 | 2014-08-27 Dmitry Antipov <dmantipov@yandex.ru> |
| 2 | 6 | ||
| 3 | * startup.el (normal-top-level): Now use internal--top-level-message. | 7 | * startup.el (normal-top-level): Now use internal--top-level-message. |
diff --git a/lisp/subr.el b/lisp/subr.el index 2f2aea9d8a3..c168cf5fdb2 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -565,7 +565,7 @@ SEQ must be a list, vector, or string. The comparison is done with `equal'." | |||
| 565 | (delete elt (copy-sequence seq)))) | 565 | (delete elt (copy-sequence seq)))) |
| 566 | 566 | ||
| 567 | (defun remq (elt list) | 567 | (defun remq (elt list) |
| 568 | "Return a copy of LIST with all occurrences of ELT removed. | 568 | "Return LIST with all occurrences of ELT removed. |
| 569 | The comparison is done with `eq'. Contrary to `delq', this does not use | 569 | The comparison is done with `eq'. Contrary to `delq', this does not use |
| 570 | side-effects, and the argument LIST is not modified." | 570 | side-effects, and the argument LIST is not modified." |
| 571 | (while (and (eq elt (car list)) (setq list (cdr list)))) | 571 | (while (and (eq elt (car list)) (setq list (cdr list)))) |