diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-05-04 18:24:00 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-05-04 18:24:00 +0100 |
| commit | c6a610ecdcf295d49cb70089f4ecb64768598e99 (patch) | |
| tree | 2e49a6d1ffd350f99efaff8f9acace7f851c9851 /lisp/emacs-lisp/bytecomp.el | |
| parent | 1ec7499e59a8724cb9f3d8688a7c922acad3be27 (diff) | |
| parent | 2db70edd9cc8b52cb32c97fe2ff0ae008f02a31c (diff) | |
| download | emacs-c6a610ecdcf295d49cb70089f4ecb64768598e99.tar.gz emacs-c6a610ecdcf295d49cb70089f4ecb64768598e99.tar.bz2 emacs-c6a610ecdcf295d49cb70089f4ecb64768598e99.zip | |
Merge remote-tracking branch 'savannah/master' into HEAD
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 8f85c928399..c0662a6d280 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -4800,6 +4800,14 @@ binding slots have been popped." (defun byte-compile-form-make-variable-buffer-local (form) (byte-compile-keep-pending form 'byte-compile-normal-call)) +;; Make `make-local-variable' declare the variable locally +;; dynamic - this suppresses some unnecessary warnings +(byte-defop-compiler-1 make-local-variable + byte-compile-make-local-variable) +(defun byte-compile-make-local-variable (form) + (pcase form (`(,_ ',var) (byte-compile--declare-var var))) + (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) |