mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
Code Issues Releases Activity

(byte-compile-declare-function): New function, byte-hunk-handler for

Browse Source 
declare-function.
(byte-compile-callargs-warn): Handle declared functions.
This commit is contained in:
Glenn Morris 2007-11-17 03:46:23 +00:00
parent aefbd1608c
commit d97362d779
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/emacs-lisp/bytecomp.el
View File

@ -1258,7 +1258,7 @@ Each function's symbol gets added to `byte-compile-noruntime-functions'."
(byte-compile-fdefinition (car form) t)))
(sig (if (and def (not (eq def t)))
(byte-compile-arglist-signature
(if (eq 'lambda (car-safe def))
(if (memq (car-safe def) '(declared lambda))
(nth 1 def)
(if (byte-code-function-p def)
(aref def 0)
@ -2817,6 +2817,16 @@ If FORM is a lambda or a macro, byte-compile it as a function."
(cdr body))
(body
(list body))))
(put 'declare-function 'byte-hunk-handler 'byte-compile-declare-function)
(defun byte-compile-declare-function (form)
(push (cons (nth 1 form)
(if (< (length form) 4) ; arglist not specified
t
(list 'declared (nth 3 form))))
byte-compile-function-environment)
nil)
;; This is the recursive entry point for compiling each subform of an
;; expression.