diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2022-06-23 14:33:46 +0200 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2022-06-23 17:04:56 +0200 |
| commit | 48248c901d0884c042345c3ae1ba8fdfeb195c74 (patch) | |
| tree | 45a2a91d6f36008e33fa99beb234dafe7d6138d3 /lisp/emacs-lisp | |
| parent | 89afd90bde9ff689ff62c6a5c170edf661b2fb8c (diff) | |
| download | emacs-48248c901d0884c042345c3ae1ba8fdfeb195c74.tar.gz emacs-48248c901d0884c042345c3ae1ba8fdfeb195c74.tar.bz2 emacs-48248c901d0884c042345c3ae1ba8fdfeb195c74.zip | |
Remove unused function in bytecomp.el
* lisp/emacs-lisp/bytecomp.el (byte-compile-delete-first): Remove.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 12 |
1 files changed, 0 insertions, 12 deletions
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 |