From: Dave Love <fx@gnu.org>
Date: Tue, 20 Jun 2000 09:37:48 +0000 (+0000)
Subject: (define-hooked-local-abbrev, define-hooked-global-abbrev): Fix, using
X-Git-Tag: emacs-pretest-21.0.90~3227
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=db5f1c439a1cdc65ce9d9247956314a3a8f11c25;p=emacs.git

(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 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))