repo.or.cz
/
emacs.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Constrain window box sizes (Bug#16649).
[emacs.git]
/
admin
/
coccinelle
/
list_loop.cocci
blob
89f0bfff7b37f2ba12737db78d7a5fc00f5fe24d
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
)