From: Mattias Engdegård <mattiase@acm.org>
Date: Thu, 23 Jun 2022 12:33:46 +0000 (+0200)
Subject: Remove unused function in bytecomp.el
X-Git-Tag: emacs-29.0.90~1447^2~1512
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=48248c901d0884c042345c3ae1ba8fdfeb195c74;p=emacs.git

Remove unused function in bytecomp.el

* lisp/emacs-lisp/bytecomp.el (byte-compile-delete-first): Remove.
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 4fd65bb5d53..a8c68f81531 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1174,18 +1174,6 @@ message buffer `default-directory'."
 	    (t
 	     (insert (format "%s\n" string)))))))
 
-;; copied from gnus-util.el
-(defsubst byte-compile-delete-first (elt list)
-  (if (eq (car list) elt)
-      (cdr list)
-    (let ((total list))
-      (while (and (cdr list)
-		  (not (eq (cadr list) elt)))
-	(setq list (cdr list)))
-      (when (cdr list)
-	(setcdr list (cddr list)))
-      total)))
-
 (defvar byte-compile-last-warned-form nil)
 (defvar byte-compile-last-logged-file nil)
 (defvar byte-compile-root-dir nil