HCoop
/
bpt
/
emacs.git
/ blame
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blob
|
blame
(incremental) |
history
|
HEAD
Merge from emacs-24; up to 2012-12-12T22:29:54Z!yamaoka@jpl.org
[bpt/emacs.git]
/
admin
/
coccinelle
/
list_loop.cocci
Commit
Line
Data
7d7bbefd
DA
1
// Omit redundant type check, consistently use CONSP.
2
@@
3
identifier A;
4
expression X;
5
statement S;
6
@@
7
(
8
for (A = X;
9
- !NILP (A);
10
+ CONSP (A);
11
- A = Fcdr (A))
12
+ A = XCDR (A))
13
S
14
|
15
for (A = X; CONSP (A);
16
- A = Fcdr (A))
17
+ A = XCDR (A))
18
S
19
)