From 79d2af9c26e04a6094c593eb03262d3cb9f4c0e5 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 30 Dec 1999 12:26:53 +0000 Subject: [PATCH] (Fexpand_abbrev): If expanding an abbrev which has only a hook, and the hook has a non-nil `no-self-insert' property, let the return value of the hook specify whether an expansion took place. If it returns nil, no expansion has been performed. --- src/abbrev.c | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/src/abbrev.c b/src/abbrev.c index e3ee9e039b2..f5586f5c4d7 100644 --- a/src/abbrev.c +++ b/src/abbrev.c @@ -364,7 +364,20 @@ Returns the abbrev symbol, if expansion took place.") hook = XSYMBOL (sym)->function; if (!NILP (hook)) - call0 (hook); + { + Lisp_Object expanded, prop; + + /* If expanding an abbrev which has only a hook, and the hook + has a non-nil `no-self-insert' property, let the return value + of the hook specify whether an expansion took place. If it + returns nil, no expansion has been done. */ + expanded = call0 (hook); + if (SYMBOLP (hook) + && NILP (expanded) + && (prop = Fget (hook, intern ("no-self-insert")), + !NILP (prop))) + value = Qnil; + } return value; } -- 2.39.5