mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-24 19:02:52 +00:00
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.
This commit is contained in:
parent
8eb209984e
commit
52dc48050e
|
@ -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)
|
||||
|
|
|
@ -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: ")
|
||||
|
|
Loading…
Reference in a new issue