diff lisp/emulation/mlsupport.el @ 29759:5c72ae402660

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

--- a/lisp/emulation/mlsupport.el	Mon Jun 19 22:22:47 2000 +0000
+++ b/lisp/emulation/mlsupport.el	Tue Jun 20 09:37:48 2000 +0000
@@ -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))