master 48248c901d: Remove unused function in bytecomp.el

[Mattias Engdegård]

branch: master
commit 48248c901d0884c042345c3ae1ba8fdfeb195c74
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    Remove unused function in bytecomp.el
    
    * lisp/emacs-lisp/bytecomp.el (byte-compile-delete-first): Remove.
---
 lisp/emacs-lisp/bytecomp.el | 12 ------------
 1 file changed, 12 deletions(-)

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 4fd65bb5d5..a8c68f8153 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