Browse Source

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.
Nicolas Goaziou 5 years ago
parent
commit
eb3dd6186d
3 changed files with 24 additions and 22 deletions
  1. 0 22
      lisp/org-faces.el
  2. 22 0
      lisp/org-src.el
  3. 2 0
      lisp/org.el

+ 0 - 22
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)

+ 22 - 0
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."

+ 2 - 0
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))