* src/keyboard.c (access_keymap_keyremap): Accept anonymous functions.

Fixes: debbugs:12022

diff --git a/src/ChangeLog b/src/ChangeLog
index cf24ee95a05fbd19d50bdc00c7f1ae8b24fce136..93dc127acdc3c9f069605a0c1a36b9fd49b22a0b 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2012-08-14  Barry OReilly  <gundaetiapo@gmail.com>  (tiny change)
+
+       * keyboard.c (access_keymap_keyremap): Accept anonymous functions
+       (bug#12022).
+
 2012-08-14  Martin Rudalics  <rudalics@gmx.at>
 
        * frame.c (make_frame_without_minibuffer, make_minibuffer_frame)

diff --git a/src/keyboard.c b/src/keyboard.c
index 5ed1f9f2c69e8bd2f71d09e0bc517cb983756f4f..a286e9f3036386bd7d4060ccb4fa74137c3c59b4 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -8836,7 +8836,7 @@ access_keymap_keyremap (Lisp_Object map, Lisp_Object key, Lisp_Object prompt,
   /* If the keymap gives a function, not an
      array, then call the function with one arg and use
      its value instead.  */
-  if (SYMBOLP (next) && !NILP (Ffboundp (next)) && do_funcall)
+  if (do_funcall && FUNCTIONP (next))
     {
       Lisp_Object tem;
       tem = next;

diff --git a/src/lisp.h b/src/lisp.h
index 3dbea6e0f720a5a69efedf329717a4bf90c1f459..f6aa46d3f41f4aaf25233a7b06efbb968ff02adf 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -641,7 +641,7 @@ clip_to_bounds (ptrdiff_t lower, EMACS_INT num, ptrdiff_t upper)
 
 typedef struct interval *INTERVAL;
 
-/* Complain if object is not string or buffer type */
+/* Complain if object is not string or buffer type.  */
 #define CHECK_STRING_OR_BUFFER(x) \
   CHECK_TYPE (STRINGP (x) || BUFFERP (x), Qbuffer_or_string_p, x)