Commit 8e99d072 authored by Barry O'Reilly's avatar Barry O'Reilly Committed by Stefan Monnier

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

Fixes: debbugs:12022
parent 96154d32
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)
......
......@@ -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;
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment