emacs22 compatibility

This commit is contained in:
João Távora 2012-07-02 01:33:52 +01:00
parent 4713bba467
commit 13a2e50bbe
2 changed files with 3 additions and 3 deletions

View File

@ -197,7 +197,7 @@ TODO: correct this bug!"
(find-file-noselect ".emacs.d/snippets/c-mode/stupidsnippet") (find-file-noselect ".emacs.d/snippets/c-mode/stupidsnippet")
(insert "something") (insert "something")
(save-buffer) (save-buffer)
(kill-buffer)) (kill-buffer (current-buffer)))
(test-compiled-snippets-mtime) (test-compiled-snippets-mtime)
;; delete a snippet file ;; delete a snippet file
;; ;;
@ -209,7 +209,7 @@ TODO: correct this bug!"
(with-current-buffer (find-file-noselect ".emacs.d/snippets/c-mode/anotherstupidsnippet") (with-current-buffer (find-file-noselect ".emacs.d/snippets/c-mode/anotherstupidsnippet")
(insert "blablabla") (insert "blablabla")
(save-buffer) (save-buffer)
(kill-buffer)) (kill-buffer (current-buffer)))
(test-compiled-snippets-mtime)))))) (test-compiled-snippets-mtime))))))

View File

@ -1681,7 +1681,7 @@ Optional USE-JIT use jit-loading of snippets."
(yas/subdirs dir 'files 'relative)))) (yas/subdirs dir 'files 'relative))))
(defun yas/compile-calculate-md5 (files-and-mtimes) (defun yas/compile-calculate-md5 (files-and-mtimes)
(secure-hash 'md5 (mapconcat #'(lambda (c) (format "%s%f" (car c) (float-time (cdr c)))) files-and-mtimes " "))) (md5 (mapconcat #'(lambda (c) (format "%s%f" (car c) (float-time (cdr c)))) files-and-mtimes " ")))
(defun yas/recompile-directory-maybe (directory mode-sym) (defun yas/recompile-directory-maybe (directory mode-sym)
(flet ((recompile () (flet ((recompile ()