mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-21 06:55:35 +00:00
Code

Backport commit 6d1c1fca0 from Emacs

Browse Source 
* lisp/ob-calc.el: (org-babel-execute:calc):
* lisp/org-agenda.el (org-agenda-use-sticky-p):
Replace (with-current-buffer (get-buffer ...) ...) with
(with-current-buffer ...).

; Simplify (with-current-buffer (get-buffer ...) ...)
6d1c1fca0aa7c5a1ff0254af3f89a34d5309ea0d
Tim Landscheidt
Thu Mar 14 12:40:26 2024 +0200
This commit is contained in:
Tim Landscheidt 2024-03-12 00:21:06 +00:00 committed by Kyle Meyer
parent 014f85f55f
commit d12f8b8624
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ob-calc.el
View File

@ -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)))))

2
lisp/org-agenda.el
View File

@ -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)