mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-08 15:30:40 -08:00
Code Issues Projects Releases Wiki Activity

(byte-compile-declare-function): Reverse branches of if statement.

Browse source
This commit is contained in:
Glenn Morris 2007-12-02 21:41:33 +00:00
parent e1970249e4
commit 7628b337d8
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/bytecomp.el
View file

@ -2823,10 +2823,10 @@ If FORM is a lambda or a macro, byte-compile it as a function."
(put 'declare-function 'byte-hunk-handler 'byte-compile-declare-function)
(defun byte-compile-declare-function (form)
(push (cons (nth 1 form)
(if (or (< (length form) 4) ; arglist not specified
(not (listp (nth 3 form))))
t
(list 'declared (nth 3 form))))
(if (and (> (length form) 3)
(listp (nth 3 form)))
(list 'declared (nth 3 form))
t)) ; arglist not specified
byte-compile-function-environment)
nil)