ld/yasnippet
1
0
Fork 0
mirror of https://github.com/joaotavora/yasnippet.git synced 2025-10-13 21:13:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
João Távora 2012-11-17 16:38:00 +00:00
parent 7e4876169b
commit cfefaca284
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
yasnippet-tests.el
View File

@ -222,7 +222,7 @@
\"ok\" \"ok\"
\"fail\")`")) \"fail\")`"))
(yas-expand-snippet snippet)) (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 () (ert-deftest string-match-with-subregexp-in-mirror-transformations ()
(with-temp-buffer (with-temp-buffer
@ -260,11 +260,11 @@ TODO: correct this bug!"
(defmacro yas-with-overriden-buffer-list (&rest body) (defmacro yas-with-overriden-buffer-list (&rest body)
(let ((saved-sym (gensym))) (let ((saved-sym (gensym)))
`(let ((,saved-sym (symbol-function 'buffer-list))) `(let ((,saved-sym (symbol-function 'buffer-list)))
(flet ((buffer-list () (cl-flet ((buffer-list ()
(remove-if #'(lambda (buf) (remove-if #'(lambda (buf)
(with-current-buffer buf (with-current-buffer buf
(eq major-mode 'lisp-interaction-mode))) (eq major-mode 'lisp-interaction-mode)))
(funcall ,saved-sym)))) (funcall ,saved-sym))))
,@body)))) ,@body))))
(defmacro yas-with-some-interesting-snippet-dirs (&rest body) (defmacro yas-with-some-interesting-snippet-dirs (&rest body)
@ -474,9 +474,9 @@ TODO: be meaner"
(defun yas/ert () (defun yas/ert ()
(interactive) (interactive)
(with-temp-buffer (with-temp-buffer
(flet ((message (&rest args) (cl-flet ((message (&rest args) ;
(declare (ignore args)) (declare (ignore args))
nil)) nil))
(ert t (buffer-name (current-buffer))) (ert t (buffer-name (current-buffer)))
(princ (buffer-string))))) (princ (buffer-string)))))