diff options
| author | Eli Zaretskii | 2001-01-06 21:46:48 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2001-01-06 21:46:48 +0000 |
| commit | c3f2772bfcd3e9bdd2bdbdaee2492f1f5bf5bca3 (patch) | |
| tree | a5f130ddc274ec95752e20905066c7e86dba43b9 | |
| parent | 0dac6924549bf58b1c610edb03db99aae0900d34 (diff) | |
| download | emacs-c3f2772bfcd3e9bdd2bdbdaee2492f1f5bf5bca3.tar.gz emacs-c3f2772bfcd3e9bdd2bdbdaee2492f1f5bf5bca3.zip | |
(noninteractive): Don't load generic-sc on MS-DOS
systems without long file-name support.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/ediff-vers.el | 8 |
2 files changed, 12 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6c5b287913d..610b1af9050 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2001-01-06 Eli Zaretskii <eliz@is.elta.co.il> | ||
| 2 | |||
| 3 | * ediff-ve.el (noninteractive): Don't load generic-sc on MS-DOS | ||
| 4 | systems without long file-name support. | ||
| 5 | |||
| 1 | 2001-01-06 Andrew Innes <andrewi@gnu.org> | 6 | 2001-01-06 Andrew Innes <andrewi@gnu.org> |
| 2 | 7 | ||
| 3 | * makefile.w32-in (custom-deps): Set EMACSLOADPATH explicitly. | 8 | * makefile.w32-in (custom-deps): Set EMACSLOADPATH explicitly. |
diff --git a/lisp/ediff-vers.el b/lisp/ediff-vers.el index 49eeb31eaf5..71ac8bb7afe 100644 --- a/lisp/ediff-vers.el +++ b/lisp/ediff-vers.el | |||
| @@ -36,7 +36,13 @@ | |||
| 36 | (eval-when-compile | 36 | (eval-when-compile |
| 37 | (load "pcl-cvs" 'noerror) | 37 | (load "pcl-cvs" 'noerror) |
| 38 | (load "rcs" 'noerror) | 38 | (load "rcs" 'noerror) |
| 39 | (load "generic-sc" 'noerror) | 39 | ;; On 8+3 MS-DOS filesystems, generic-x.el is loaded |
| 40 | ;; instead of (the missing) generic-sc.el. Since the | ||
| 41 | ;; version of Emacs which supports MS-DOS doesn't have | ||
| 42 | ;; generic-sc, we simply avoid loading it. | ||
| 43 | (or (and (fboundp 'msdos-long-file-names) | ||
| 44 | (not (msdos-long-file-names))) | ||
| 45 | (load "generic-sc" 'noerror)) | ||
| 40 | (load "vc" 'noerror))) | 46 | (load "vc" 'noerror))) |
| 41 | ;; end pacifier | 47 | ;; end pacifier |
| 42 | 48 | ||