* lisp/emacs-lisp/bytecomp.el (byte-compile-form): Fix a typo.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 09f2c804b9fb16455cf758a8ce272bedec206132..b5a3c2f46f222c4d784778340e75e047185ad162 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-11-25  Bozhidar Batsov  <bozhidar@bozhidar-home.local>
+
+       * emacs-lisp/bytecomp.el (byte-compile-form): Fix a typo.
+
 2013-11-25  Sebastian Wiesner <lunaryorn@gmail.com>
 
        * emacs-lisp/bytecomp.el (byte-compile-interactive-only-functions):

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index faa72e739594febca0b03007c39ba4a01fc7bb75..116f356822e5e0cb8aa2d5ed964e899fc9abe962 100644 (file)
--- 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))