From 670d3fce9d2df5fd60e77498981b553e878dbc8d Mon Sep 17 00:00:00 2001 From: Romain Francoise Date: Mon, 14 Nov 2005 21:04:26 +0000 Subject: [PATCH] If `vm-visit-folder' doesn't exist, define it as a dummy function in `eval-when-compile' to avoid compiler warning. Require `man' at compile time. --- lisp/ChangeLog | 6 ++++++ lisp/dired-x.el | 9 ++++++--- 2 files changed, 12 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 674a8ec5568..5667a43c2ff 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2005-11-14 Romain Francoise + + * dired-x.el: If `vm-visit-folder' doesn't exist, define it as a + dummy function in `eval-when-compile' to avoid compiler warning. + Require `man' at compile time. + 2005-11-14 Jay Belanger * calc-alg.el (calcFunc-write-out-power): Rename it to diff --git a/lisp/dired-x.el b/lisp/dired-x.el index e48d6780c48..14e0a459f86 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el @@ -112,6 +112,7 @@ (require 'dired-aux) (defvar vm-folder-directory) +(eval-when-compile (require 'man)) ;;; User-defined variables. @@ -1411,9 +1412,11 @@ Uses `man.el' of \\[manual-entry] fame." ;;; Run mail on mail folders. -;;; (and (not (fboundp 'vm-visit-folder)) -;;; (defun vm-visit-folder (file &optional arg) -;;; nil)) +;; Avoid compiler warning. +(eval-when-compile + (when (not (fboundp 'vm-visit-folder)) + (defun vm-visit-folder (file &optional arg) + nil))) (defun dired-vm (&optional read-only) "Run VM on this file. -- 2.39.2