Commit 48248c90 authored by Mattias Engdegård's avatar Mattias Engdegård
Browse files

Remove unused function in bytecomp.el

* lisp/emacs-lisp/bytecomp.el (byte-compile-delete-first): Remove.
parent 89afd90b
Pipeline #18746 failed with stages
in 189 minutes and 59 seconds
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment