From 480d3523bc83d92234c5b4ace589dae74836cb3b Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 4 Jun 2016 21:48:02 +0200 Subject: [PATCH] org-element: Fix failing test * testing/lisp/test-org-element.el (test-org-element/link-parser): Fix failing test. The bug was introduced in 827413e. --- testing/lisp/test-org-element.el | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el index 2acd2036d..190373d47 100644 --- a/testing/lisp/test-org-element.el +++ b/testing/lisp/test-org-element.el @@ -1604,13 +1604,12 @@ e^{i\\pi}+1=0 (equal "127.0.0.1" (org-test-with-temp-text "[[http://orgmode.org]]" - (cl-letf (((symbol-function 'link-translate) - (lambda (type _) (cons type "127.0.0.1")))) - (let ((org-link-translation-function 'link-translate)) - (org-element-property - :path - (org-element-map (org-element-parse-buffer) 'link - 'identity nil t))))))) + (let ((org-link-translation-function + (lambda (type _) (cons type "127.0.0.1")))) + (org-element-property + :path + (org-element-map (org-element-parse-buffer) 'link + #'identity nil t)))))) ;; ... id link. (should (equal