From 8e845e23f4f0aff065587fee41e7ae335332f602 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 22 Nov 2007 13:49:34 +0000 Subject: [PATCH] (mailcap-parse-mailcaps, mailcap-parse-mimetypes, mailcap-extension-to-mime, mailcap-mime-info, make-symbolic-link): Declare as functions. --- lisp/dired-aux.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 1ac6208313a..6bef35963cd 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -463,6 +463,11 @@ with a prefix argument." ;;; Shell commands +(declare-function mailcap-parse-mailcaps "gnus/mailcap" (&optional path force)) +(declare-function mailcap-parse-mimetypes "gnus/mailcap" (&optional path force)) +(declare-function mailcap-extension-to-mime "gnus/mailcap" (extn)) +(declare-function mailcap-mime-info "gnus/mailcap" (string &optional request)) + (defun dired-read-shell-command-default (files) "Return a list of default commands for `dired-read-shell-command'." (require 'mailcap) @@ -1196,6 +1201,8 @@ Special value `always' suppresses confirmation." (dired-copy-file-recursive from to ok-flag dired-copy-preserve-time t dired-recursive-copies)) +(declare-function make-symbolic-link "fileio.c") + (defun dired-copy-file-recursive (from to ok-flag &optional preserve-time top recursive) (let ((attrs (file-attributes from)) -- 2.39.2