mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

ert-x trivia

Browse Source 
* lisp/emacs-lisp/ert-x.el (ert-simulate-command):
Check deferred-action-list (which is obsolete) is bound.

* etc/NEWS: Related markup.
This commit is contained in:
Glenn Morris 2012-02-04 13:18:46 -08:00
parent c7291ad983
commit f160676e2d
3 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
etc/NEWS
View File

@ -1427,7 +1427,10 @@ Use `filter-buffer-substring-functions' instead.
---
*** `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.

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2012-02-04 Glenn Morris <rgm@gnu.org>
* 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)

5
lisp/emacs-lisp/ert-x.el
View File

@ -167,8 +167,9 @@ test for `called-interactively' in the command will fail."
(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)