From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 4 Sep 1996 15:40:46 +0000 (+0000)
Subject: (get_local_map): Call indirect-function.
X-Git-Tag: emacs-20.1~3820
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4a9f44cd824ab47bfff7fb31b39ad0bca181f898;p=emacs.git

(get_local_map): Call indirect-function.
---

diff --git a/src/intervals.c b/src/intervals.c
index 00c7395cbb0..0cc28ac2751 100644
--- 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;