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

define-abbrev.

diff --git a/lisp/emulation/mlsupport.el b/lisp/emulation/mlsupport.el
index 7f7a357cc3cc8b92a12049464db6c8a816deeeb6..ab32291dbfe8572565f7f1b522112b86fdaa1b78 100644 (file)
--- 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))