[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/abbrev.el,v
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/abbrev.el,v |
Date: |
Fri, 09 Nov 2007 16:07:20 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Stefan Monnier <monnier> 07/11/09 16:07:19
Index: abbrev.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/abbrev.el,v
retrieving revision 1.61
retrieving revision 1.62
diff -u -b -r1.61 -r1.62
--- abbrev.el 5 Nov 2007 04:28:32 -0000 1.61
+++ abbrev.el 9 Nov 2007 16:07:17 -0000 1.62
@@ -895,13 +895,15 @@
- `:enable-function' can be set to a function of no argument which returns
non-nil iff the abbrevs in this table should be used for this instance
of `expand-abbrev'."
+ ;; We used to manually add the docstring, but we also want to record this
+ ;; location as the definition of the variable (in load-history), so we may
+ ;; as well just use `defvar'.
+ (eval `(defvar ,tablename nil ,@(if (stringp docstring) (list docstring))))
(let ((table (if (boundp tablename) (symbol-value tablename))))
(unless table
(setq table (make-abbrev-table props))
(set tablename table)
(push tablename abbrev-table-name-list))
- (when (stringp docstring)
- (put tablename 'variable-documentation docstring))
(dolist (elt definitions)
(apply 'define-abbrev table elt))))
- [Emacs-diffs] Changes to emacs/lisp/abbrev.el,v, Stefan Monnier, 2007/11/03
- [Emacs-diffs] Changes to emacs/lisp/abbrev.el,v, Juanma Barranquero, 2007/11/04
- [Emacs-diffs] Changes to emacs/lisp/abbrev.el,v, Stefan Monnier, 2007/11/04
- [Emacs-diffs] Changes to emacs/lisp/abbrev.el,v,
Stefan Monnier <=
- [Emacs-diffs] Changes to emacs/lisp/abbrev.el,v, Stefan Monnier, 2007/11/16
- [Emacs-diffs] Changes to emacs/lisp/abbrev.el,v, Stefan Monnier, 2007/11/18