# HG changeset patch # User Juanma Barranquero # Date 1195739374 0 # Node ID aad1610bcbbf9d1fe412be56938b3c596338c5c7 # Parent 996f5a68400d8d51e4faaac528a35fce5b8c8e48 (mailcap-parse-mailcaps, mailcap-parse-mimetypes, mailcap-extension-to-mime, mailcap-mime-info, make-symbolic-link): Declare as functions. diff -r 996f5a68400d -r aad1610bcbbf lisp/dired-aux.el --- a/lisp/dired-aux.el Thu Nov 22 13:48:39 2007 +0000 +++ b/lisp/dired-aux.el Thu Nov 22 13:49:34 2007 +0000 @@ -463,6 +463,11 @@ ;;; 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 @@ (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))