Mercurial > emacs

comparison lisp/abbrev.el @ 102351:a11b9c55c39c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(clear-abbrev-table): Always return nil (Bug#2515).
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 01 Mar 2009 19:22:22 +0000
parents a9dc0e7c3f2b
children c61c29e47d6a
comparison
equal deleted inserted replaced
102350:a17d9934ae60 102351:a11b9c55c39c
519 (assert sym) 519 (assert sym)
520 (let ((newsym (intern "" table))) 520 (let ((newsym (intern "" table)))
521 (set newsym nil) ; Make sure it won't be confused for an abbrev. 521 (set newsym nil) ; Make sure it won't be confused for an abbrev.
522 (setplist newsym (symbol-plist sym))) 522 (setplist newsym (symbol-plist sym)))
523 (abbrev-table-put table :abbrev-table-modiff 523 (abbrev-table-put table :abbrev-table-modiff
524 (1+ (abbrev-table-get table :abbrev-table-modiff))))) 524 (1+ (abbrev-table-get table :abbrev-table-modiff))))
525 nil)
525 526
526 (defun define-abbrev (table name expansion &optional hook &rest props) 527 (defun define-abbrev (table name expansion &optional hook &rest props)
527 "Define an abbrev in TABLE named NAME, to expand to EXPANSION and call HOOK. 528 "Define an abbrev in TABLE named NAME, to expand to EXPANSION and call HOOK.
528 NAME must be a string, and should be lower-case. 529 NAME must be a string, and should be lower-case.
529 EXPANSION should usually be a string. 530 EXPANSION should usually be a string.