[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/auctex 67ecb0b 18/30: ; Silence the compiler

From: Tassilo Horn
Subject: [elpa] externals/auctex 67ecb0b 18/30: ; Silence the compiler
Date: Fri, 25 Sep 2020 11:00:14 -0400 (EDT)

branch: externals/auctex
commit 67ecb0bc3be90a8be08eaf001b63538cb57f3294
Author: Arash Esbati <arash@gnu.org>
Commit: Arash Esbati <arash@gnu.org>

    ; Silence the compiler
    * prv-emacs.el: Silence the compiler for unknown functions.
 prv-emacs.el | 38 ++++++++++++++++++++++++++++++--------
 1 file changed, 30 insertions(+), 8 deletions(-)

diff --git a/prv-emacs.el b/prv-emacs.el
index 0ccce7b..2d9a6ef 100644
--- a/prv-emacs.el
+++ b/prv-emacs.el
@@ -30,19 +30,41 @@
 (require 'tex)
 (require 'latex)
+;; Silence the compiler for functions:
+(declare-function preview-inherited-face-attribute "prv-emacs"
+                 (face attribute &optional inherit))
+(declare-function preview-filter-specs-1 "preview"
+                 (specs))
+(declare-function preview-format-kill "preview"
+                 (format-cons))
+(declare-function preview-delete "preview"
+                 (ovr &rest ignored))
+(declare-function preview-relaxed-string= "preview"
+                 (&rest args))
+(declare-function preview-disable "preview"
+                 (ovr))
+(declare-function preview-inactive-string "preview"
+                 (ov))
+(declare-function preview-filter-specs "preview"
+                 (spec-list))
+(declare-function preview-auto-reveal-p "preview"
+                 (mode distance))
+(declare-function desktop-buffer-preview-misc-data "preview"
+                 (&rest ignored))
 (defcustom preview-transparent-color '(highlight :background)
   "Color to appear transparent in previews.
 Set this to something unusual when using `preview-transparent-border',
 to the default background in most other cases."
   :type '(radio (const :tag "None" nil)
-                (const :tag "Autodetect" t)
-                (color :tag "By name" :value "white")
-                (list :tag "Take from face"
-                      :value (default :background)
-                      (face)
-                      (choice :tag "What to take"
-                       (const :tag "Background" :value :background)
-                       (const :tag "Foreground" :value :foreground))))
+               (const :tag "Autodetect" t)
+               (color :tag "By name" :value "white")
+               (list :tag "Take from face"
+                     :value (default :background)
+                     (face)
+                     (choice :tag "What to take"
+                             (const :tag "Background" :value :background)
+                             (const :tag "Foreground" :value :foreground))))
   :group 'preview-appearance)
 ;;; Note that the following default introduces a border only when

reply via email to

[Prev in Thread] Current Thread [Next in Thread]