From 8ae256c66a876c3b1cef9ffc992de83bebac4057 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Fri, 27 Feb 2015 20:29:21 -0500 Subject: Replace noflet instance with cl-letf --- lisp/init-org.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lisp/init-org.el') diff --git a/lisp/init-org.el b/lisp/init-org.el index a6e7b60..92d6d3b 100644 --- a/lisp/init-org.el +++ b/lisp/init-org.el @@ -253,8 +253,9 @@ to (defun km/org-switch-to-buffer-other-window (&optional arg) (interactive "P") - (noflet ((org-pop-to-buffer-same-window (&optional buffer-or-name norecord label) - (funcall 'pop-to-buffer buffer-or-name nil norecord))) + (cl-letf (((symbol-function 'org-pop-to-buffer-same-window) + (lambda (buffer-or-name &rest args) + (funcall #'pop-to-buffer buffer-or-name)))) (org-switchb arg))) (defun km/org-open-at-point-stay () -- cgit v1.2.3