projects
/
elisp
/
liece.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7a6b335
)
(remq): New compiler macro.
author
ueno
<ueno>
Wed, 6 Sep 2000 01:02:44 +0000
(
01:02
+0000)
committer
ueno
<ueno>
Wed, 6 Sep 2000 01:02:44 +0000
(
01:02
+0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/liece-clfns.el
patch
|
blob
|
history
diff --git
a/lisp/ChangeLog
b/lisp/ChangeLog
index
8100a66
..
a464c05
100644
(file)
--- a/
lisp/ChangeLog
+++ b/
lisp/ChangeLog
@@
-1,3
+1,7
@@
+2000-09-06 Daiki Ueno <ueno@unixuser.org>
+
+ * liece-clfns.el (remq): New compiler macro.
+
2000-09-05 Akira Ohashi <bg66@luck.gr.jp>
* liece-channel.el (liece-channel-redisplay-buffer): New hook
2000-09-05 Akira Ohashi <bg66@luck.gr.jp>
* liece-channel.el (liece-channel-redisplay-buffer): New hook
diff --git
a/lisp/liece-clfns.el
b/lisp/liece-clfns.el
index
d80c564
..
e3771a5
100644
(file)
--- a/
lisp/liece-clfns.el
+++ b/
lisp/liece-clfns.el
@@
-58,6
+58,15
@@
(pop x))
x))))
(pop x))
x))))
+ (define-compiler-macro remq (&whole form elt list)
+ (if (liece-clfns-subr-fboundp 'remq)
+ form
+ `(let ((elt ,elt)
+ (list ,list))
+ (if (memq elt list)
+ (delq elt (copy-sequence list))
+ list))))
+
(define-compiler-macro member-if (&whole form pred list)
(if (liece-clfns-subr-fboundp 'member-if)
form
(define-compiler-macro member-if (&whole form pred list)
(if (liece-clfns-subr-fboundp 'member-if)
form