changeset 29759:5c72ae402660

(define-hooked-local-abbrev, define-hooked-global-abbrev): Fix, using define-abbrev.
author Dave Love <fx@gnu.org>
date Tue, 20 Jun 2000 09:37:48 +0000
parents 9f82b430dbef
children c2940b6e267e
files lisp/emulation/mlsupport.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))