From: Bozhidar Batsov Date: Mon, 25 Nov 2013 18:45:34 +0000 (+0200) Subject: * lisp/emacs-lisp/bytecomp.el (byte-compile-form): Fix a typo. X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~698 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d694737ae44dce74d367782865ee41d115c22bbd;p=emacs.git * lisp/emacs-lisp/bytecomp.el (byte-compile-form): Fix a typo. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 09f2c804b9f..b5a3c2f46f2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2013-11-25 Bozhidar Batsov + + * emacs-lisp/bytecomp.el (byte-compile-form): Fix a typo. + 2013-11-25 Sebastian Wiesner * emacs-lisp/bytecomp.el (byte-compile-interactive-only-functions): diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index faa72e73959..116f356822e 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -2930,7 +2930,7 @@ for symbols generated by the byte compiler itself." ((symbolp (car form)) (let* ((fn (car form)) (handler (get fn 'byte-compile)) - (interactive-onaly (or (get fn 'interactive-only) + (interactive-only (or (get fn 'interactive-only) (memq fn byte-compile-interactive-only-functions)))) (when (macroexp--const-symbol-p fn) (byte-compile-warn "`%s' called as a function" fn))