Merge remote-tracking branch 'savannah/master' into HEAD
This commit is contained in:
commit
c6a610ecdc
100 changed files with 1342 additions and 596 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue