From 52dc48050e06b2f21502fd499f1e1370896a1c96 Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Thu, 27 Apr 2023 22:38:35 +0200 Subject: [PATCH] Handle compiler warnings from Emacs master * lisp/ob-core.el (org-babel-insert-result): Comment out unused `cond' clause. Still leave it there for readability of the logic. * lisp/org.el (org-agenda-restrict-begin): (org-agenda-restrict): (org-agenda-restrict-end): Mark variables from org-agenda. --- lisp/ob-core.el | 7 ++++--- lisp/org.el | 4 ++++ 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/ob-core.el b/lisp/ob-core.el index 3f6696fce..1c167c033 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -2426,12 +2426,13 @@ INFO may provide the values of these header arguments (in the (delete-region (point) (org-babel-result-end))) ((member "append" result-params) (goto-char (org-babel-result-end)) (setq beg (point-marker))) - ((member "prepend" result-params))) ; already there + ;; ((member "prepend" result-params)) ; Do nothing. Already there. + ) (setq results-switches (if results-switches (concat " " results-switches) "")) (let ((wrap - (lambda (start finish &optional no-escape no-newlines - inline-start inline-finish) + (lambda ( start finish &optional no-escape no-newlines + inline-start inline-finish) (when inline (setq start inline-start) (setq finish inline-finish) diff --git a/lisp/org.el b/lisp/org.el index 61862b3d6..3750d837b 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -18602,6 +18602,10 @@ block from point." (throw 'exit n))))) nil))) +;; Defined in org-agenda.el +(defvar org-agenda-restrict) +(defvar org-agenda-restrict-begin) +(defvar org-agenda-restrict-end) (defun org-occur-in-agenda-files (regexp &optional _nlines) "Call `multi-occur' with buffers for all agenda files." (interactive "sOrg-files matching: ")