(process-lines): Move to ../lisp/subr.el.

diff --git a/admin/ChangeLog b/admin/ChangeLog
index 706b2f68c8d5784e15c5056dfa72ffa5bcdcf7eb..20d0adc0e89dbafbac553b34214a400af0b67e0d 100644 (file)
--- a/admin/ChangeLog
+++ b/admin/ChangeLog
@@ -1,3 +1,7 @@
+2007-11-17  Glenn Morris  <rgm@gnu.org>
+
+       * admin.el (process-lines): Move to ../lisp/subr.el.
+
 2007-10-23  Glenn Morris  <rgm@gnu.org>
 
        * MAINTAINERS: Move here from ../.

diff --git a/admin/admin.el b/admin/admin.el
index 76c50243b3dc4bc9cfc91bbaf473b76f057ee0ba..a8b436171c5c7a6dc245d2fe7e479979cea44dbb 100644 (file)
--- a/admin/admin.el
+++ b/admin/admin.el
@@ -29,23 +29,6 @@
 
 ;;; Code:
 
-(defun process-lines (program &rest args)
-  "Execute PROGRAM with ARGS, returning its output as a list of lines.
-Signal an error if the program returns with a non-zero exit status."
-  (with-temp-buffer
-    (let ((status (apply 'call-process program nil (current-buffer) nil args)))
-      (unless (eq status 0)
-       (error "%s exited with status %s" program status))
-      (goto-char (point-min))
-      (let (lines)
-       (while (not (eobp))
-         (setq lines (cons (buffer-substring-no-properties
-                            (line-beginning-position)
-                            (line-end-position))
-                           lines))
-         (forward-line 1))
-       (nreverse lines)))))
-
 (defun add-release-logs (root version)
   "Add \"Version VERSION released.\" change log entries in ROOT.
 Root must be the root of an Emacs source tree."