From c8fa6e9daf079b02a495f62ad1de64339903b42d Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Fri, 16 Aug 2024 16:03:13 +0200 Subject: [PATCH] scope.el: Delete some unused functions --- lisp/emacs-lisp/scope.el | 55 ---------------------------------------- 1 file changed, 55 deletions(-) diff --git a/lisp/emacs-lisp/scope.el b/lisp/emacs-lisp/scope.el index fe9e4b7c37d..82bb02e07b4 100644 --- a/lisp/emacs-lisp/scope.el +++ b/lisp/emacs-lisp/scope.el @@ -84,44 +84,6 @@ Optional argument LOCAL is a local context to extend." (scope-local-new bare beg local) (cdr bindings) body)) (scope-n local body))) -(defun scope-if-let* (local bindings body) - (if bindings - (let ((binding (car bindings))) - (if (consp binding) - (if (cdr binding) - ;; BINDING is (SYMBOL VALUEFORM). - (let* ((sym (car binding)) - (bare (bare-symbol sym)) - (beg (scope-sym-pos sym))) - (when beg - (funcall scope-callback 'variable - beg (length (symbol-name bare)) beg)) - (scope-1 local (cadr binding)) - (scope-if-let* (scope-local-new bare beg local) - (cdr bindings) body)) - ;; BINDING is (VALUEFORM). - (scope-1 local (car binding)) - (scope-if-let* local (cdr bindings) body)) - ;; BINDING is just SYMBOL. - (let* ((sym binding) - (bare (bare-symbol sym)) - (beg (scope-sym-pos sym))) - (when beg - (funcall scope-callback 'variable - beg (length (symbol-name bare)) beg)) - (scope-if-let* (scope-local-new bare beg local) - (cdr bindings) body)))) - (scope-n local body))) - -(defun scope-if-let (local bindings body) - (scope-if-let* local - (if (and (consp bindings) - (or (symbol-with-pos-p (car bindings)) - (symbolp (car bindings)))) - (list bindings) - bindings) - body)) - (defun scope-lambda (local args body) (let ((int-spec nil) (doc-form nil)) @@ -194,23 +156,6 @@ Optional argument LOCAL is a local context to extend." (scope-1 local bodyform) (dolist (handler handlers) (scope-n l (cdr handler))))) -(defun scope--backquote (local elements depth) - (cond - ((zerop depth) (scope-n local elements)) - ((consp elements) - (cond - ((memq (car elements) '(\, \,@)) - (scope--backquote local (cdr elements) (1- depth))) - ((eq (car elements) '\`) - (scope--backquote local (cdr elements) (1+ depth))) - (t (scope--backquote local (car elements) depth) - (scope--backquote local (cdr elements) depth)))) - ((vectorp elements) - (scope--backquote local (append elements nil) depth)))) - -(defun scope-backquote (local elements &optional depth) - (scope--backquote local elements (or depth 1))) - (defvar scope-flet-alist nil) (defun scope-flet (local defs body) -- 2.39.2