From a21a6af1dfb60db4ba1c028aff91902649eae920 Mon Sep 17 00:00:00 2001 From: Michael Heerdegen Date: Fri, 10 Apr 2020 01:21:33 +0200 Subject: [PATCH] WIP: My byte compile local patch --- lisp/emacs-lisp/bytecomp.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 4f01918bdb..4fdb6e65b7 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -4752,6 +4752,14 @@ byte-compile-make-variable-buffer-local (defun byte-compile-form-make-variable-buffer-local (form) (byte-compile-keep-pending form 'byte-compile-normal-call)) +(byte-defop-compiler-1 make-local-variable + byte-compile-make-local-variable) +(defun byte-compile-make-local-variable (form) + (let ((var-exp (car-safe (cdr-safe form)))) + (when (eq 'quote (car-safe var-exp)) + (byte-compile--declare-var (car (cdr var-exp))))) + (byte-compile-normal-call form)) + (put 'function-put 'byte-hunk-handler 'byte-compile-define-symbol-prop) (put 'define-symbol-prop 'byte-hunk-handler 'byte-compile-define-symbol-prop) (defun byte-compile-define-symbol-prop (form) -- 2.26.1