Mercurial > emacs

changeset 16809:c378600f005d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(internal_self_insert): Check the property on the hook, not on the abbrev symbol.
author Richard M. Stallman <rms@gnu.org>
date Thu, 02 Jan 1997 02:30:33 +0000
parents aac35896dd04
children 20dc495230a0
files src/cmds.c
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/cmds.c	Thu Jan 02 02:30:23 1997 +0000
+++ b/src/cmds.c	Thu Jan 02 02:30:33 1997 +0000
@@ -325,11 +325,13 @@
       sym = Fexpand_abbrev ();
 
       /* If we expanded an abbrev which has only a hook,
+	 and the hook has a non-nil `no-self-insert' property,
 	 return right away--don't really self-insert.  */
-      if (! NILP (sym) && ! NILP (XSYMBOL (sym)->function))
+      if (! NILP (sym) && ! NILP (XSYMBOL (sym)->function)
+	  && SYMBOLP (XSYMBOL (sym)->function))
 	{
 	  Lisp_Object prop;
-	  prop = Fget (sym, intern ("no-self-insert"));
+	  prop = Fget (XSYMBOL (sym)->function, intern ("no-self-insert"));
 	  if (! NILP (prop))
 	    return Qnil;
 	}