From cfefaca284327babde6cf483c8bb2127e8c0e5fd Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Sat, 17 Nov 2012 16:38:00 +0000 Subject: [PATCH] Fix: cleanup after #333 fix, use 'cl-flet' --- yasnippet-tests.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/yasnippet-tests.el b/yasnippet-tests.el index 194c0fd8f..cdb781af1 100644 --- a/yasnippet-tests.el +++ b/yasnippet-tests.el @@ -222,7 +222,7 @@ \"ok\" \"fail\")`")) (yas-expand-snippet snippet)) - (should (string= (yas--buffer-contents) "ok")))) + (should (string= (yas--buffer-contents) "ok")))) (ert-deftest string-match-with-subregexp-in-mirror-transformations () (with-temp-buffer @@ -260,11 +260,11 @@ TODO: correct this bug!" (defmacro yas-with-overriden-buffer-list (&rest body) (let ((saved-sym (gensym))) `(let ((,saved-sym (symbol-function 'buffer-list))) - (flet ((buffer-list () - (remove-if #'(lambda (buf) - (with-current-buffer buf - (eq major-mode 'lisp-interaction-mode))) - (funcall ,saved-sym)))) + (cl-flet ((buffer-list () + (remove-if #'(lambda (buf) + (with-current-buffer buf + (eq major-mode 'lisp-interaction-mode))) + (funcall ,saved-sym)))) ,@body)))) (defmacro yas-with-some-interesting-snippet-dirs (&rest body) @@ -474,9 +474,9 @@ TODO: be meaner" (defun yas/ert () (interactive) (with-temp-buffer - (flet ((message (&rest args) - (declare (ignore args)) - nil)) + (cl-flet ((message (&rest args) ; + (declare (ignore args)) + nil)) (ert t (buffer-name (current-buffer))) (princ (buffer-string))))) -- 2.39.2