Remove unused function in bytecomp.el

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

Remove unused function in bytecomp.el
* lisp/emacs-lisp/bytecomp.el (byte-compile-delete-first): Remove.
48248c90 · Mattias Engdegård · 89afd90b · 48248c90
Commit 48248c90 authored Jun 23, 2022 by Mattias Engdegård
Hide whitespace changes
Inline Side-by-side

Showing with 0 additions and 12 deletions

lisp/emacs-lisp/bytecomp.el lisp/emacs-lisp/bytecomp.el +0 -12

No files found.
--- 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