From db5f1c439a1cdc65ce9d9247956314a3a8f11c25 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 20 Jun 2000 09:37:48 +0000 Subject: [PATCH] (define-hooked-local-abbrev, define-hooked-global-abbrev): Fix, using define-abbrev. --- lisp/emulation/mlsupport.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emulation/mlsupport.el b/lisp/emulation/mlsupport.el index 7f7a357cc3c..ab32291dbfe 100644 --- a/lisp/emulation/mlsupport.el +++ b/lisp/emulation/mlsupport.el @@ -227,10 +227,10 @@ (symbol-value symbol))) (defun define-hooked-local-abbrev (name exp hook) - (define-local-abbrev name exp (intern hook))) + (define-abbrev local-abbrev-table name exp (intern hook))) (defun define-hooked-global-abbrev (name exp hook) - (define-global-abbrev name exp (intern hook))) + (define-abbrev global-abbrev-table name exp (intern hook))) (defun case-word-lower () (ml-casify-word 'downcase-region)) -- 2.39.2