diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 965d1e9..170ab3a 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -195,7 +195,8 @@
     (pop kill-ring)) ; remove most recent element of kill ring
   (defun org-src-export-to-pdf ()
     (interactive)
-    (org-src-in-org-buffer (org-latex-export-to-pdf-no-kr)))
+    (with-current-buffer (org-src--source-buffer)
+      (org-latex-export-to-pdf-no-kr)))
   (setq org-confirm-babel-evaluate nil)
   (org-babel-do-load-languages
    'org-babel-load-languages