summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2016-09-24 08:52:49 (GMT)
committer Nicolas Goaziou <mail@nicolasgoaziou.fr>2016-09-24 08:52:49 (GMT)
commiteb3dd6186d4ff1a66a1211fe67be57c9d15ffe50 (patch)
treecf046c7cc38e40c273de56119fd7df854ecd82c4
parent5bc849238891683bc30b7fdd43fee514ef7fab9d (diff)
downloadorg-mode-master.zip
org-mode-master.tar.gz
Silence byte-compilerHEADmaster
* lisp/org-faces.el (org-src-block-faces): Move it from here... * lisp/org-src.el (org-src-block-faces): ... to here.
-rw-r--r--lisp/org-faces.el22
-rw-r--r--lisp/org-src.el22
-rw-r--r--lisp/org.el2
3 files changed, 24 insertions, 22 deletions
diff --git a/lisp/org-faces.el b/lisp/org-faces.el
index 04cf77e..96f7b8e 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 359b60d..68fde4a 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 b3c0efc..cc081a6 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))