From eb3dd6186d4ff1a66a1211fe67be57c9d15ffe50 Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Date: Sat, 24 Sep 2016 10:52:49 +0200
Subject: [PATCH] Silence byte-compiler

* lisp/org-faces.el (org-src-block-faces): Move it from here...
* lisp/org-src.el (org-src-block-faces): ... to here.
---
 lisp/org-faces.el | 22 ----------------------
 lisp/org-src.el   | 22 ++++++++++++++++++++++
 lisp/org.el       |  2 ++
 3 files changed, 24 insertions(+), 22 deletions(-)

diff --git a/lisp/org-faces.el b/lisp/org-faces.el
index 04cf77e45..96f7b8e06 100644
--- a/lisp/org-faces.el
+++ b/lisp/org-faces.el
@@ -400,28 +400,6 @@ See also `org-fontify-quote-and-verse-blocks'."
   :group 'org-faces
   :version "25.2")
 
-(defcustom org-src-block-faces nil
-  "Alist of faces to be used for source-block.
-Each element is a cell of the format
-
-     (\"language\" FACE)
-
-Where FACE is either a defined face or an anonymous face.
-
-For instance, the following value would color the background of
-emacs-lisp source blocks and python source blocks in purple and
-green, respectability.
-
-    \\='((\"emacs-lisp\" (:background \"#EEE2FF\"))
-      (\"python\" (:background \"#e5ffb8\")))"
-  :group 'org-faces
-  :type '(repeat (list (string :tag "language")
-                       (choice
-                        (face :tag "Face")
-                        (sexp :tag "Anonymous face"))))
-  :version "25.2"
-  :package-version '(Org . "9.0"))
-
 (defface org-block-begin-line '((t (:inherit org-meta-line)))
   "Face used for the line delimiting the begin of source blocks."
   :group 'org-faces)
diff --git a/lisp/org-src.el b/lisp/org-src.el
index 359b60d9e..68fde4a45 100644
--- a/lisp/org-src.el
+++ b/lisp/org-src.el
@@ -193,6 +193,28 @@ For example, there is no ocaml-mode in Emacs, but the mode to use is
 	   (string "Language name")
 	   (symbol "Major mode"))))
 
+(defcustom org-src-block-faces nil
+  "Alist of faces to be used for source-block.
+Each element is a cell of the format
+
+     (\"language\" FACE)
+
+Where FACE is either a defined face or an anonymous face.
+
+For instance, the following value would color the background of
+emacs-lisp source blocks and python source blocks in purple and
+green, respectability.
+
+    \\='((\"emacs-lisp\" (:background \"#EEE2FF\"))
+      (\"python\" (:background \"#e5ffb8\")))"
+  :group 'org-edit-structure
+  :type '(repeat (list (string :tag "language")
+                       (choice
+                        (face :tag "Face")
+                        (sexp :tag "Anonymous face"))))
+  :version "25.2"
+  :package-version '(Org . "9.0"))
+
 (defcustom org-src-tab-acts-natively nil
   "If non-nil, the effect of TAB in a code block is as if it were
 issued in the language major mode buffer."
diff --git a/lisp/org.el b/lisp/org.el
index b3c0efc23..cc081a6d2 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -156,6 +156,8 @@ Stars are put in group 1 and the trimmed body in group 2.")
 (declare-function org-table-beginning-of-field "org-table" (&optional n))
 (declare-function org-table-blank-field "org-table" ())
 (declare-function org-table-calc-current-TBLFM "org-table" (&optional arg))
+(declare-function org-table-copy-region "org-table" (beg end &optional cut))
+(declare-function org-table-cut-region "org-table" (beg end))
 (declare-function org-table-edit-field "org-table" (arg))
 (declare-function org-table-end "org-table" (&optional table-type))
 (declare-function org-table-end-of-field "org-table" (&optional n))
-- 
2.11.4.GIT