# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 961493868 0
# Node ID 5c72ae40266079e07e43aadf5c4f04fd33515c39
# Parent  9f82b430dbef318a4a69df9a12589ea92319bfa6
(define-hooked-local-abbrev, define-hooked-global-abbrev): Fix, using
define-abbrev.

diff -r 9f82b430dbef -r 5c72ae402660 lisp/emulation/mlsupport.el
--- 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))