11 lines
198 B
Plaintext
11 lines
198 B
Plaintext
|
# -*- mode: snippet -*-
|
||
|
|
# name: readfile
|
||
|
|
# key: readfile
|
||
|
|
# condition: t
|
||
|
|
# --
|
||
|
|
(with-open-file (in "$1")
|
||
|
|
(do ((line (read-line in nil)
|
||
|
|
(read-line in nil)))
|
||
|
|
((null line))
|
||
|
|
$2))
|