1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/subr.el b/lisp/subr.el
index 04d8132eaaf..6e9f66fe97b 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1278,10 +1278,10 @@ The normal global definition of the character C-x indirects to this keymap.")
   "Convert a key sequence to a list of events."
   (if (vectorp key)
       (append key nil)
-    (mapcar (function (lambda (c)
-			(if (> c 127)
-			    (logxor c listify-key-sequence-1)
-			  c)))
+    (mapcar (lambda (c)
+              (if (> c 127)
+                  (logxor c listify-key-sequence-1)
+                c))
 	    key)))
 
 (defun eventp (object)