forked from mirrors/org-mode
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,7 +2426,8 @@ INFO may provide the values of these header arguments (in the
|
||||||
(delete-region (point) (org-babel-result-end)))
|
(delete-region (point) (org-babel-result-end)))
|
||||||
((member "append" result-params)
|
((member "append" result-params)
|
||||||
(goto-char (org-babel-result-end)) (setq beg (point-marker)))
|
(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
|
(setq results-switches
|
||||||
(if results-switches (concat " " results-switches) ""))
|
(if results-switches (concat " " results-switches) ""))
|
||||||
(let ((wrap
|
(let ((wrap
|
||||||
|
|
|
@ -18602,6 +18602,10 @@ block from point."
|
||||||
(throw 'exit n)))))
|
(throw 'exit n)))))
|
||||||
nil)))
|
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)
|
(defun org-occur-in-agenda-files (regexp &optional _nlines)
|
||||||
"Call `multi-occur' with buffers for all agenda files."
|
"Call `multi-occur' with buffers for all agenda files."
|
||||||
(interactive "sOrg-files matching: ")
|
(interactive "sOrg-files matching: ")
|
||||||
|
|
Loading…
Reference in New Issue