Mercurial > emacs
comparison lisp/gnus/nnheader.el @ 33301:c1c373a70748
Put some defvars in eval-when-compile.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Wed, 08 Nov 2000 15:36:19 +0000 |
| parents | cae923af5a5d |
| children | e06db3b8e558 |
comparison
equal
deleted
inserted
replaced
| 33300:cae923af5a5d | 33301:c1c373a70748 |
|---|---|
| 811 (setq result dir | 811 (setq result dir |
| 812 path nil) | 812 path nil) |
| 813 (setq path (cdr path)))) | 813 (setq path (cdr path)))) |
| 814 result)) | 814 result)) |
| 815 | 815 |
| 816 (defvar ange-ftp-path-format) | 816 (eval-when-compile |
| 817 (defvar efs-path-regexp) | 817 (defvar ange-ftp-path-format) |
| 818 (defvar efs-path-regexp)) | |
| 818 (defun nnheader-re-read-dir (path) | 819 (defun nnheader-re-read-dir (path) |
| 819 "Re-read directory PATH if PATH is on a remote system." | 820 "Re-read directory PATH if PATH is on a remote system." |
| 820 (if (and (fboundp 'efs-re-read-dir) (boundp 'efs-path-regexp)) | 821 (if (and (fboundp 'efs-re-read-dir) (boundp 'efs-path-regexp)) |
| 821 (when (string-match efs-path-regexp path) | 822 (when (string-match efs-path-regexp path) |
| 822 (efs-re-read-dir path)) | 823 (efs-re-read-dir path)) |