diff options
author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2005-03-04 21:59:33 +0000 |
---|---|---|
committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2005-03-04 21:59:33 +0000 |
commit | 64eb0083b1aed79acb81301c8ab9d757ab66e209 (patch) | |
tree | 277eef43180b058fbf41e6042f91614b31826e27 /src/doc.c | |
parent | ad204e956ac4821908cbb4a53270ba52523ae2e3 (diff) | |
download | emacs-64eb0083b1aed79acb81301c8ab9d757ab66e209.tar.gz |
(munge_doc_file_name) [VMS]: Use NO_HYPHENS_IN_FILENAMES, not VMS4_4.
(Fsnarf_documentation): Call munge_doc_file_name.
Diffstat (limited to 'src/doc.c')
-rw-r--r-- | src/doc.c | 32 |
1 files changed, 8 insertions, 24 deletions
diff --git a/src/doc.c b/src/doc.c index 0d1ab394647..d3e58f4b6cb 100644 --- a/src/doc.c +++ b/src/doc.c @@ -58,26 +58,24 @@ static Lisp_Object Vbuild_files; extern Lisp_Object Voverriding_local_map; /* For VMS versions with limited file name syntax, - convert the name to something VMS will allow. */ + convert the name to something VMS will allow. */ static void munge_doc_file_name (name) char *name; { #ifdef VMS -#ifndef VMS4_4 - /* For VMS versions with limited file name syntax, - convert the name to something VMS will allow. */ - p = name; +#ifndef NO_HYPHENS_IN_FILENAMES + extern char * sys_translate_unix (char *ufile); + strcpy (name, sys_translate_unix (name)); +#else /* NO_HYPHENS_IN_FILENAMES */ + char *p = name; while (*p) { if (*p == '-') *p = '_'; p++; } -#endif /* not VMS4_4 */ -#ifdef VMS4_4 - strcpy (name, sys_translate_unix (name)); -#endif /* VMS4_4 */ +#endif /* NO_HYPHENS_IN_FILENAMES */ #endif /* VMS */ } @@ -607,21 +605,7 @@ the same file name is found in the `doc-directory'. */) strcpy (name, SDATA (Vdoc_directory)); } strcat (name, SDATA (filename)); /*** Add this line ***/ -#ifdef VMS -#ifndef VMS4_4 - /* For VMS versions with limited file name syntax, - convert the name to something VMS will allow. */ - p = name; - while (*p) - { - if (*p == '-') - *p = '_'; - p++; - } -#else /* VMS4_4 */ - strcpy (name, sys_translate_unix (name)); -#endif /* VMS4_4 */ -#endif /* VMS */ + munge_doc_file_name (name); /* Vbuild_files is nil when temacs is run, and non-nil after that. */ if (NILP (Vbuild_files)) |