Permalink
Browse files

Fix: cleanup after #333 fix, use 'cl-flet'

  • Loading branch information...
1 parent 7e48761 commit cfefaca284327babde6cf483c8bb2127e8c0e5fd @joaotavora committed Nov 17, 2012
Showing with 9 additions and 9 deletions.
  1. +9 −9 yasnippet-tests.el
View
@@ -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)))))

0 comments on commit cfefaca

Please sign in to comment.