(define-hooked-local-abbrev, define-hooked-global-abbrev): Fix, using

define-abbrev.

1 files 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))