* lisp/emacs-lisp/bytecomp.el: Check existence of f in #'f.
(byte-compile-callargs-warn): Use `push'. (byte-compile-arglist-warn): Ignore higher-order "calls". (byte-compile-file-form-autoload): Use `pcase'. (byte-compile-function-form): If quoting a symbol, check that it exists.
This commit is contained in:
parent
e5eefe9b96
commit
bb41480a68
3 changed files with 64 additions and 39 deletions
|
@ -83,7 +83,6 @@ The return value of this function is not used."
|
|||
(list 'quote f) (list 'quote new-name) (list 'quote when))))
|
||||
(list 'compiler-macro
|
||||
#'(lambda (f args compiler-function)
|
||||
;; FIXME: Make it possible to just reuse `args'.
|
||||
`(eval-and-compile
|
||||
(put ',f 'compiler-macro
|
||||
,(if (eq (car-safe compiler-function) 'lambda)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue