Mercurial > hg > xemacs-beta
changeset 4288:9eb558ffe8ff
[xemacs-hg @ 2007-11-27 15:38:39 by aidan]
Remove a useless let binding in byte-optimize-featurep, eliminating a
byte-compile-time warning.
| author | aidan |
|---|---|
| date | Tue, 27 Nov 2007 15:38:40 +0000 |
| parents | 89e64783d068 |
| children | 20accccbebd6 |
| files | lisp/ChangeLog lisp/byte-optimize.el |
| diffstat | 2 files changed, 14 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Nov 27 13:51:10 2007 +0000 +++ b/lisp/ChangeLog Tue Nov 27 15:38:40 2007 +0000 @@ -1,3 +1,9 @@ +2007-11-27 Aidan Kehoe <kehoea@parhasard.net> + + * byte-optimize.el (byte-optimize-featurep): + Remove a useless let binding that was a hangover from an earlier + version of the code. Eliminates a byte-compile time warning. + 2007-11-22 Vin Shelton <acs@xemacs.org> * about.el (about-hacker-contribution): Updated my bio.
--- a/lisp/byte-optimize.el Tue Nov 27 13:51:10 2007 +0000 +++ b/lisp/byte-optimize.el Tue Nov 27 15:38:40 2007 +0000 @@ -1174,15 +1174,14 @@ (put 'featurep 'byte-optimizer 'byte-optimize-featurep) (defun byte-optimize-featurep (form) - (let ((to-check (cdr-safe form))) - (if (memq (car-safe - (cdr-safe - (car-safe - (cdr-safe - form)))) - byte-optimize-ever-present-features) - t - form))) + (if (memq (car-safe + (cdr-safe + (car-safe + (cdr-safe + form)))) + byte-optimize-ever-present-features) + t + form)) ;;; enumerating those functions which need not be called if the returned