diff options
| author | Basil L. Contovounesios | 2020-06-01 16:56:26 +0100 |
|---|---|---|
| committer | Basil L. Contovounesios | 2020-06-01 16:56:26 +0100 |
| commit | 6d6ec1bc1e784af786cc0436f54211095bf7a952 (patch) | |
| tree | eca08897fdb785a01b54088109fa4c30dd013fdb /lisp | |
| parent | 1b6bd97440349954ee310da0523c436985971ea9 (diff) | |
| download | emacs-6d6ec1bc1e784af786cc0436f54211095bf7a952.tar.gz emacs-6d6ec1bc1e784af786cc0436f54211095bf7a952.zip | |
; Fix some recent byte-compilation warnings
For discussion of the autoloaded function declaration, see
https://lists.gnu.org/archive/html/emacs-devel/2020-05/msg00910.html.
* lisp/dnd.el (dnd-handle-one-url): It is no longer necessary to
declare the autoloaded function browse-url-select-handler after
ldefs-boot.el was updated.
* lisp/progmodes/elisp-mode.el: Declare xref.el function to silence
byte-compiler.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/dnd.el | 3 | ||||
| -rw-r--r-- | lisp/progmodes/elisp-mode.el | 2 |
2 files changed, 1 insertions, 4 deletions
diff --git a/lisp/dnd.el b/lisp/dnd.el index f47f4a2c30e..1d0e26cb013 100644 --- a/lisp/dnd.el +++ b/lisp/dnd.el | |||
| @@ -101,9 +101,6 @@ is what has been dropped. Returns ACTION." | |||
| 101 | (throw 'done t))) | 101 | (throw 'done t))) |
| 102 | nil) | 102 | nil) |
| 103 | (catch 'done | 103 | (catch 'done |
| 104 | ;; Autoloaded but the byte-compiler still complains. | ||
| 105 | (declare-function browse-url-select-handler "browse-url" | ||
| 106 | (url &optional kind)) | ||
| 107 | (let ((browser (browse-url-select-handler url 'internal))) | 104 | (let ((browser (browse-url-select-handler url 'internal))) |
| 108 | (when browser | 105 | (when browser |
| 109 | (setq ret 'private) | 106 | (setq ret 'private) |
diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el index a0a0a0dc6a9..8812c49ba43 100644 --- a/lisp/progmodes/elisp-mode.el +++ b/lisp/progmodes/elisp-mode.el | |||
| @@ -861,7 +861,7 @@ non-nil result supercedes the xrefs produced by | |||
| 861 | 861 | ||
| 862 | xrefs)) | 862 | xrefs)) |
| 863 | 863 | ||
| 864 | (declare-function project-external-roots "project") | 864 | (declare-function xref-apropos-regexp "xref" (pattern)) |
| 865 | 865 | ||
| 866 | (cl-defmethod xref-backend-apropos ((_backend (eql elisp)) pattern) | 866 | (cl-defmethod xref-backend-apropos ((_backend (eql elisp)) pattern) |
| 867 | (apply #'nconc | 867 | (apply #'nconc |