# contributor: Xah Lee (XahLee.org) # name: read lines of a file # key: x-file # -- (defun read-lines (filePath) "Return a list of lines in FILEPATH." (with-temp-buffer (insert-file-contents filePath) (split-string (buffer-string) "\n" t)) ) ;; process all lines (mapc (lambda (aLine) (message aLine) ; do your stuff here ) (read-lines "inputFilePath") )