mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

If `vm-visit-folder' doesn't exist, define it as a dummy function in

Browse Source 
`eval-when-compile' to avoid compiler warning.
Require `man' at compile time.
This commit is contained in:
Romain Francoise 2005-11-14 21:04:26 +00:00
parent d0158f7354
commit 670d3fce9d
2 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -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

9
lisp/dired-x.el
View File

@ -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.