Mercurial > emacs

changeset 86173:4fbadbd4abb0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(process-lines): Move to ../lisp/subr.el.
author Glenn Morris <rgm@gnu.org>
date Sat, 17 Nov 2007 03:42:49 +0000
parents e8cb5c919219
children 046133f8b789
files admin/admin.el
diffstat 1 files changed, 0 insertions(+), 17 deletions(-) [+]
line wrap: on
line diff
--- a/admin/admin.el	Sat Nov 17 03:42:22 2007 +0000
+++ b/admin/admin.el	Sat Nov 17 03:42:49 2007 +0000
@@ -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."