[Emacs-diffs] /srv/bzr/emacs/trunk r107098: ert-x trivia

[Glenn Morris]

------------------------------------------------------------
revno: 107098
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2012-02-04 13:18:46 -0800
message:
  ert-x trivia
  
  * lisp/emacs-lisp/ert-x.el (ert-simulate-command):
  Check deferred-action-list (which is obsolete) is bound.
  
  * etc/NEWS: Related markup.
modified:
  etc/NEWS
  lisp/ChangeLog
  lisp/emacs-lisp/ert-x.el

=== modified file 'etc/NEWS'
--- a/etc/NEWS  2012-02-04 19:48:06 +0000
+++ b/etc/NEWS  2012-02-04 21:18:46 +0000
@@ -1427,7 +1427,10 @@
 ---
 *** `byte-compile-disable-print-circle' is obsolete.
 
+---
 *** `deferred-action-list' and `deferred-action-function' are obsolete.
+Use `post-command-hook' instead.
+
 +++
 *** `font-lock-maximum-size' is obsolete.
 

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-02-04 20:59:54 +0000
+++ b/lisp/ChangeLog    2012-02-04 21:18:46 +0000
@@ -1,5 +1,8 @@
 2012-02-04  Glenn Morris  <address@hidden>
 
+       * emacs-lisp/ert-x.el (ert-simulate-command):
+       Check deferred-action-list (which is obsolete) is bound.
+
        * subr.el (with-wrapper-hook): Doc fixes.
 
        * simple.el (filter-buffer-substring-functions)

=== modified file 'lisp/emacs-lisp/ert-x.el'
--- a/lisp/emacs-lisp/ert-x.el  2012-01-05 09:46:05 +0000
+++ b/lisp/emacs-lisp/ert-x.el  2012-02-04 21:18:46 +0000
@@ -167,8 +167,9 @@
     (run-hooks 'pre-command-hook)
     (setq return-value (apply (car command) (cdr command)))
     (run-hooks 'post-command-hook)
-    (when deferred-action-list
-      (run-hooks 'deferred-action-function))
+    (and (boundp 'deferred-action-list)
+         deferred-action-list
+         (run-hooks 'deferred-action-function))
     (setq real-last-command (car command)
           last-command this-command)
     (when (boundp 'last-repeatable-command)