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

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

29758:9f82b430dbef

    (or (boundp symbol)
	(define-abbrev-table symbol nil))
    (symbol-value symbol)))

(defun define-hooked-local-abbrev (name exp hook)
  (define-local-abbrev name exp (intern hook)))

(defun define-hooked-global-abbrev (name exp hook)
  (define-global-abbrev name exp (intern hook)))

(defun case-word-lower ()
  (ml-casify-word 'downcase-region))

(defun case-word-upper ()

29759:5c72ae402660

    (or (boundp symbol)
	(define-abbrev-table symbol nil))
    (symbol-value symbol)))

(defun define-hooked-local-abbrev (name exp hook)
  (define-abbrev local-abbrev-table name exp (intern hook)))

(defun define-hooked-global-abbrev (name exp hook)
  (define-abbrev global-abbrev-table name exp (intern hook)))

(defun case-word-lower ()
  (ml-casify-word 'downcase-region))

(defun case-word-upper ()