(get_local_map): Call indirect-function.

4a9f44cd · Richard M. Stallman · d2609065 · 4a9f44cd
Commit 4a9f44cd authored Sep 04, 1996 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 0 deletions

src/intervals.c src/intervals.c +3 -0

No files found.
--- a/src/intervals.c
+++ b/src/intervals.c
@@ -1789,6 +1789,9 @@ get_local_map (position, buffer)
  BUF_ZV (buffer) = old_zv;

  /* Use the local map only if it is valid.  */
+  /* Do allow symbols that are defined as keymaps.  */
+  if (SYMBOLP (prop) && !NILP (prop))
+    prop = Findirect_function (prop);
  if (!NILP (prop)
      && (tem = Fkeymapp (prop), !NILP (tem)))
    return prop;