diff --git a/lisp/ob-calc.el b/lisp/ob-calc.el index d335aab74..f834f05cb 100644 --- a/lisp/ob-calc.el +++ b/lisp/ob-calc.el @@ -93,7 +93,7 @@ (mapcar #'org-trim (split-string (org-babel-expand-body:calc body params) "[\n\r]")))) (save-excursion - (with-current-buffer (get-buffer "*Calculator*") + (with-current-buffer "*Calculator*" (prog1 (calc-eval (calc-top 1)) (calc-pop 1))))) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index f8195a053..06249ed48 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -3883,7 +3883,7 @@ generating a new one." ;; buffer found (get-buffer org-agenda-buffer-name) ;; C-u parameter is same as last call - (with-current-buffer (get-buffer org-agenda-buffer-name) + (with-current-buffer org-agenda-buffer-name (and (equal current-prefix-arg org-agenda-last-prefix-arg)