Mercurial > emacs
comparison lisp/ange-ftp.el @ 23119:5eff8af4eebd
Reinstate checking
dired-local-variables-file for dired-x.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Thu, 27 Aug 1998 09:26:08 +0000 |
| parents | 39b3f4c74b93 |
| children | 01c23b1e1c32 |
comparison
equal
deleted
inserted
replaced
| 23118:d311287a03a6 | 23119:5eff8af4eebd |
|---|---|
| 2800 (edir (, dir)) | 2800 (edir (, dir)) |
| 2801 (parsed (ange-ftp-ftp-name edir)) | 2801 (parsed (ange-ftp-ftp-name edir)) |
| 2802 (host-type (ange-ftp-host-type | 2802 (host-type (ange-ftp-host-type |
| 2803 (car parsed)))) | 2803 (car parsed)))) |
| 2804 (or | 2804 (or |
| 2805 ;;; This variable seems not to exist in Emacs 19 -- rms. | 2805 ;; Deal with dired |
| 2806 ;;; ;; Deal with dired | 2806 (and (boundp 'dired-local-variables-file) ; in the dired-x package |
| 2807 ;;; (and (boundp 'dired-local-variables-file) | 2807 (stringp dired-local-variables-file) |
| 2808 ;;; (stringp dired-local-variables-file) | 2808 (string-equal dired-local-variables-file efile)) |
| 2809 ;;; (string-equal dired-local-variables-file efile)) | |
| 2810 ;; No dots in dir names in vms. | 2809 ;; No dots in dir names in vms. |
| 2811 (and (eq host-type 'vms) | 2810 (and (eq host-type 'vms) |
| 2812 (string-match "\\." efile)) | 2811 (string-match "\\." efile)) |
| 2813 ;; No subdirs in mts of cms. | 2812 ;; No subdirs in mts of cms. |
| 2814 (and (memq host-type '(mts cms)) | 2813 (and (memq host-type '(mts cms)) |