Mercurial > hg > xemacs-beta

diff lisp/bytecomp.el @ 5472:e79980ee5efe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge with trunk.
author Mats Lidell <matsl@xemacs.org>
date Tue, 22 Feb 2011 22:56:02 +0100
parents 00e79bbbe48f 31475de17064
children ac37a5f7e5be
line wrap: on
line diff
--- a/lisp/bytecomp.el	Mon Feb 14 22:43:46 2011 +0100
+++ b/lisp/bytecomp.el	Tue Feb 22 22:56:02 2011 +0100
@@ -2886,7 +2886,7 @@
        (tree-equal . 3)))
 
 (defun byte-compile-normal-call (form)
-  (and (get (car form) 'byte-compile-keyword-start)
+  (and (symbolp (car form)) (get (car form) 'byte-compile-keyword-start)
        (let ((plist (nthcdr (get (car form) 'byte-compile-keyword-start)
 			    form)))
 	 (symbol-macrolet