Mercurial > emacs
changeset 66868:ccb8ee5226d6
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.
| author | Romain Francoise <romain@orebokech.com> |
|---|---|
| date | Mon, 14 Nov 2005 21:04:26 +0000 |
| parents | 87c432b77d3e |
| children | cfc510b6c9e6 |
| files | lisp/ChangeLog lisp/dired-x.el |
| diffstat | 2 files changed, 12 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Nov 14 20:21:40 2005 +0000 +++ b/lisp/ChangeLog Mon Nov 14 21:04:26 2005 +0000 @@ -1,3 +1,9 @@ +2005-11-14 Romain Francoise <romain@orebokech.com> + + * 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 <belanger@truman.edu> * calc-alg.el (calcFunc-write-out-power): Rename it to
--- a/lisp/dired-x.el Mon Nov 14 20:21:40 2005 +0000 +++ b/lisp/dired-x.el Mon Nov 14 21:04:26 2005 +0000 @@ -112,6 +112,7 @@ (require 'dired-aux) (defvar vm-folder-directory) +(eval-when-compile (require 'man)) ;;; User-defined variables. @@ -1411,9 +1412,11 @@ ;;; 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.