summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog6
-rw-r--r--lisp/abbrev.el4
-rw-r--r--lisp/subr.el2
3 files changed, 9 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5809c2a4513..f36ed3ceebb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2013-09-17 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * subr.el (eval-after-load): Preserve evaluation order (bug#15389).
+
+ * abbrev.el (abbrev--check-chars): Fix thinko (bug#15329).
+
2013-09-16 Stefan Monnier <monnier@iro.umontreal.ca>
* icomplete.el (icomplete-in-buffer): New var.
diff --git a/lisp/abbrev.el b/lisp/abbrev.el
index d7d4482693d..458d8741ac8 100644
--- a/lisp/abbrev.el
+++ b/lisp/abbrev.el
@@ -607,9 +607,9 @@ An obsolete but still supported calling form is:
"Check if the characters in ABBREV have word syntax in either the
current (if global is nil) or standard syntax table."
(with-syntax-table
- (cond ((null global) (standard-syntax-table))
+ (cond ((null global) (syntax-table))
;; ((syntax-table-p global) global)
- (t (syntax-table)))
+ (t (standard-syntax-table)))
(when (string-match "\\W" abbrev)
(let ((badchars ())
(pos 0))
diff --git a/lisp/subr.el b/lisp/subr.el
index 7df1e86b5bf..f8b5d605f91 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -3878,7 +3878,7 @@ This function makes or adds to an entry on `after-load-alist'."
(when (equal file lfn)
(remove-hook 'after-load-functions fun)
(funcall func))))
- (add-hook 'after-load-functions fun)))))))
+ (add-hook 'after-load-functions fun 'append)))))))
;; Add FORM to the element unless it's already there.
(unless (member delayed-func (cdr elt))
(nconc elt (list delayed-func)))))))