Browse files

* bitmaps/README:

* xfns.c:
* termcap.c:
* term.c:
* syswait.h:
* systty.h:
* systime.h:
* syssignal.h:
* sysdep.c:
* process.h:
* process.c:
* print.c:
* ndir.h:
* lread.c:
* keyboard.c:
* getpagesize.h:
* floatfns.c:
* fileio.c:
* emacs.c:
* doc.c:
* dispnew.c:
* dired.c:
* data.c:
* callproc.c:
* buffer.c:
* README:
* Makefile.in:
* s/template.h:
* s/msdos.h:
* m/vax.h: Remove VMS support.
* s/vms.h:
* vlimit.h:
* uaf.h:
* temacs.opt:
* param.h:
* ioctl.h: Remove file.

* descrip.mms:
* compile.com: Remove file.
* Create.c: Remove VMS support.

* message.el (Module):

* gnus-start.el (Module):

* gnus-registry.el (Module):

* textmodes/texinfmt.el:
* nxml/nxml-enc.el:
* mail/feedmail.el:
* international/mule.el:
* international/latexenc.el:
* emulation/viper-util.el:
* emulation/viper-init.el:
* emulation/viper-ex.el:
* emacs-lisp/bytecomp.el:
* version.el:
* subr.el:
* startup.el:
* sort.el:
* shadowfile.el:
* recentf.el:
* printing.el:
* paths.el:
* minibuffer.el:
* ls-lisp.el:
* loadup.el:
* hippie-exp.el:
* finder.el:
* files.el:
* ediff-util.el:
* ediff-ptch.el:
* ediff-init.el:
* ediff-diff.el:
* dired.el:
* dired-aux.el:
* cus-edit.el:
* bindings.el:
* arc-mode.el:
* add-log.el: Remove VMS support.
* obsolete/vmsproc.el:
* obsolete/vms-pmail.el:
* obsolete/vms-patch.el: Remove file.

* etags.c:
* emacsclient.c: Remove VMS support.

* termcap.src: Remove file.
* README:
* PROBLEMS:
* MACHINES: Remove VMS info.

* ediff.texi: Remove VMS support.

* os.texi:
* intro.texi:
* files.texi: Remove VMS support.

* emacs.texi: Remove VMS support.

* make-dist:
* README: Remove VMS support.
* vms: Remove directory.
  • Loading branch information...
1 parent 1220528 commit eec52a3cc91f4aa8545aeaf55c935f1aa2a95fed Dan Nicolaescu committed Jul 31, 2008
Showing with 284 additions and 23,170 deletions.
  1. +6 −0 ChangeLog
  2. +0 −1 README
  3. +0 −6 admin/CPP-DEFINES
  4. +0 −3 admin/MAINTAINERS
  5. +1 −3 admin/notes/cpp
  6. +4 −0 doc/emacs/ChangeLog
  7. +4 −5 doc/emacs/emacs.texi
  8. +6 −0 doc/lispref/ChangeLog
  9. +13 −49 doc/lispref/files.texi
  10. +1 −1 doc/lispref/intro.texi
  11. +0 −20 doc/lispref/os.texi
  12. +4 −0 doc/misc/ChangeLog
  13. +1 −1 doc/misc/ediff.texi
  14. +7 −0 etc/ChangeLog
  15. +2 −19 etc/MACHINES
  16. +1 −20 etc/PROBLEMS
  17. +0 −4 etc/README
  18. +0 −17,734 etc/termcap.src
  19. +5 −0 lib-src/ChangeLog
  20. +0 −4 lib-src/emacsclient.c
  21. +2 −152 lib-src/etags.c
  22. +39 −0 lisp/ChangeLog
  23. +1 −3 lisp/add-log.el
  24. +2 −2 lisp/arc-mode.el
  25. +0 −4 lisp/bindings.el
  26. +0 −4 lisp/cus-edit.el
  27. +0 −2 lisp/dired-aux.el
  28. +2 −7 lisp/dired.el
  29. +1 −4 lisp/ediff-diff.el
  30. +0 −2 lisp/ediff-init.el
  31. +1 −1 lisp/ediff-ptch.el
  32. +1 −1 lisp/ediff-util.el
  33. +3 −8 lisp/emacs-lisp/bytecomp.el
  34. +1 −2 lisp/emulation/viper-ex.el
  35. +0 −5 lisp/emulation/viper-init.el
  36. +1 −2 lisp/emulation/viper-util.el
  37. +13 −63 lisp/files.el
  38. +0 −2 lisp/finder.el
  39. +1 −3 lisp/gnus/gnus-registry.el
  40. +1 −3 lisp/gnus/gnus-start.el
  41. +8 −9 lisp/gnus/message.el
  42. +10 −44 lisp/hippie-exp.el
  43. +0 −2 lisp/international/latexenc.el
  44. +1 −1 lisp/international/mule.el
  45. +2 −12 lisp/loadup.el
  46. +1 −1 lisp/ls-lisp.el
  47. +4 −13 lisp/mail/feedmail.el
  48. +1 −1 lisp/minibuffer.el
  49. +1 −1 lisp/nxml/nxml-enc.el
  50. +0 −270 lisp/obsolete/vms-patch.el
  51. +0 −125 lisp/obsolete/vms-pmail.el
  52. +0 −148 lisp/obsolete/vmsproc.el
  53. +2 −4 lisp/paths.el
  54. +0 −1 lisp/printing.el
  55. +1 −1 lisp/recentf.el
  56. +1 −1 lisp/shadowfile.el
  57. +2 −2 lisp/sort.el
  58. +13 −16 lisp/startup.el
  59. +8 −16 lisp/subr.el
  60. +1 −26 lisp/textmodes/texinfmt.el
  61. +1 −1 lisp/version.el
  62. +2 −9 make-dist
  63. +6 −0 oldXMenu/ChangeLog
  64. +0 −18 oldXMenu/Create.c
  65. +0 −66 oldXMenu/compile.com
  66. +0 −111 oldXMenu/descrip.mms
  67. +39 −0 src/ChangeLog
  68. +0 −8 src/Makefile.in
  69. +1 −16 src/README
  70. +1 −2 src/bitmaps/README
  71. +0 −2 src/buffer.c
  72. +0 −20 src/callproc.c
  73. +0 −4 src/data.c
  74. +0 −84 src/dired.c
  75. +0 −30 src/dispnew.c
  76. +0 −25 src/doc.c
  77. +2 −82 src/emacs.c
  78. +12 −713 src/fileio.c
  79. +0 −10 src/floatfns.c
  80. +0 −4 src/getpagesize.h
  81. +0 −4 src/ioctl.h
  82. +0 −37 src/keyboard.c
  83. +2 −8 src/lread.c
  84. +0 −17 src/m/vax.h
  85. +0 −17 src/ndir.h
  86. +0 −5 src/param.h
  87. +0 −39 src/print.c
  88. +1 −126 src/process.c
  89. +1 −1 src/process.h
  90. +0 −1 src/s/msdos.h
  91. +0 −8 src/s/template.h
  92. +0 −192 src/s/vms.h
  93. +36 −2,028 src/sysdep.c
  94. +0 −2 src/syssignal.h
  95. +0 −6 src/systime.h
  96. +0 −47 src/systty.h
  97. +0 −17 src/syswait.h
  98. +0 −60 src/temacs.opt
  99. +0 −23 src/term.c
  100. +0 −35 src/termcap.c
  101. +0 −298 src/uaf.h
  102. +0 −5 src/vlimit.h
  103. +0 −4 src/xfns.c
  104. +0 −12 vms/README
  105. +0 −139 vms/make-mms-derivative.el
View
6 ChangeLog
@@ -1,5 +1,11 @@
2008-07-31 Dan Nicolaescu <dann@ics.uci.edu>
+ * make-dist:
+ * README: Remove VMS support.
+ * vms: Remove directory.
+
+2008-07-31 Dan Nicolaescu <dann@ics.uci.edu>
+
* configure.in (MULTI_KBOARD): Remove.
2008-07-30 Dan Nicolaescu <dann@ics.uci.edu>
View
1 README
@@ -81,7 +81,6 @@ There are several subdirectories:
`doc/lispintro' holds the source code for the Introduction to Programming
in Emacs Lisp manual.
`msdos' holds configuration files for compiling Emacs under MSDOG.
-`vms' holds instructions and useful files for running Emacs under VMS.
`nt' holds various command files and documentation files that pertain
to building and running Emacs on Windows 9X/ME/NT/2000/XP.
`test' holds tests for various aspects of Emacs's functionality.
View
6 admin/CPP-DEFINES
@@ -220,7 +220,6 @@ LIB_MATH
LIB_MOTIF
LIB_STANDARD
LINKER
-LINK_CRTL_SHARE
LINUX_VERSION_CODE
LISP_FLOAT_TYPE
LNOFLSH
@@ -232,7 +231,6 @@ MAIL_USE_LOCKF
MAIL_USE_POP
MAIL_USE_SYSTEM_LOCK
MAXPATHLEN
-MAX_PRINT_CHARS
MIN_PTY_KERNEL_VERSION -- only used on Mac
MODE_LINE_BINARY_TEXT
MUST_UNDEF__STDC__
@@ -243,13 +241,11 @@ NEED_LIBW
NEED_UNISTD_H
NLIST_STRUCT
NOMULTIPLEJOBS
-NONSYSTEM_DIR_LIBRARY
NOT_C_CODE
NOT_USING_MOTIF
NO_ABORT
NO_ARG_ARRAY
NO_EDITRES
-NO_HYPHENS_IN_FILENAMES
NO_MATHERR
NO_REMAP
NO_SHARED_LIBS
@@ -287,7 +283,6 @@ SEGMENT_MASK
SEPCHAR
SETPGRP_RELEASES_CTTY
SETUP_SLAVE_PTY
-SHARABLE_LIB_BUG
SIGALRM
SIGCHLD
SIGHUP
@@ -331,7 +326,6 @@ USG5_4
USG_SUBTTY_WORKS
VALBITS
VIRT_ADDR_VARIES
-VMS
WORDS_BIG_ENDIAN
WRETCODE
XINT
View
3 admin/MAINTAINERS
@@ -116,9 +116,6 @@ Miles Bader
src/editfns.c
lisp/textmodes/refill.el
-Thien-Thi Nguyen
- VMS
-
==============================================================================
3.
==============================================================================
View
4 admin/notes/cpp
@@ -7,9 +7,7 @@ into object files, but also for creating
lib-src/Makefile
(delimited by comment "start of cpp stuff"). some cpp implementations
-insert whitespace in between tokens, which explains the "$(dot)$(dot)"
-and "UNEXEC_ALIAS" workarounds for unixoid systems and the bundled
-tradcpp/ for vms. [NOTE: tradcpp/ not yet checked in.]
+insert whitespace in between tokens.
during makefile creation, the preprocessor symbol NOT_C_CODE is defined.
this should not be defined for normal .c file compilation.
View
4 doc/emacs/ChangeLog
@@ -1,3 +1,7 @@
+2008-07-31 Dan Nicolaescu <dann@ics.uci.edu>
+
+ * emacs.texi: Remove VMS support.
+
2008-07-30 Dan Nicolaescu <dann@ics.uci.edu>
* vc1-xtra.texi (VC Directory Mode): Update the display format and fix
View
9 doc/emacs/emacs.texi
@@ -1056,13 +1056,12 @@ Customizable Self-Documenting Display Editor}, available from
@url{ftp://publications.ai.mit.edu/ai-publications/pdf/AIM-519A.pdf}.
This edition of the manual is intended for use with GNU Emacs
-installed on GNU and Unix systems. GNU Emacs can also be used on VMS,
+installed on GNU and Unix systems. GNU Emacs can also be used on
MS-DOS (also called MS-DOG), Microsoft Windows, and Macintosh systems.
-Those systems use different file name syntax; in addition, VMS and
-MS-DOS do not support all GNU Emacs features. @xref{Microsoft
+Those systems use different file name syntax; in addition
+MS-DOS does not support all GNU Emacs features. @xref{Microsoft
Windows}, for information about using Emacs on Windows.
-@xref{Mac OS}, for information about using Emacs on Macintosh. We
-don't try to describe VMS usage in this manual.
+@xref{Mac OS}, for information about using Emacs on Macintosh.
@end iftex
@node Distrib, Intro, Top, Top
View
6 doc/lispref/ChangeLog
@@ -1,3 +1,9 @@
+2008-07-31 Dan Nicolaescu <dann@ics.uci.edu>
+
+ * os.texi:
+ * intro.texi:
+ * files.texi: Remove VMS support.
+
2008-07-27 Dan Nicolaescu <dann@ics.uci.edu>
* os.texi:
View
62 doc/lispref/files.texi
@@ -1487,11 +1487,6 @@ levels of parent directories.
See also @code{delete-directory} in @ref{Create/Delete Dirs}.
@end deffn
-@defun define-logical-name varname string
-This function defines the logical name @var{varname} to have the value
-@var{string}. It is available only on VMS.
-@end defun
-
@defun set-file-modes filename mode
This function sets mode bits of @var{filename} to @var{mode} (which
must be an integer). Only the low 12 bits of @var{mode} are used.
@@ -1565,10 +1560,9 @@ directory.
On MS-DOS and MS-Windows, these functions (like the function that
actually operate on files) accept MS-DOS or MS-Windows file-name syntax,
where backslashes separate the components, as well as Unix syntax; but
-they always return Unix syntax. On VMS, these functions (and the ones
-that operate on files) understand both VMS file-name syntax and Unix
-syntax. This enables Lisp programs to specify file names in Unix syntax
-and work properly on all systems without change.
+they always return Unix syntax. This enables Lisp programs to specify
+file names in Unix syntax and work properly on all systems without
+change.
@menu
* File Name Components:: The directory part of a file name, and the rest.
@@ -1597,25 +1591,19 @@ Concatenating these two parts reproduces the original file name.
On most systems, the directory part is everything up to and including
the last slash (backslash is also allowed in input on MS-DOS or
-MS-Windows); the nondirectory part is the rest. The rules in VMS syntax
-are complicated.
+MS-Windows); the nondirectory part is the rest.
For some purposes, the nondirectory part is further subdivided into
the name proper and the @dfn{version number}. On most systems, only
-backup files have version numbers in their names. On VMS, every file
-has a version number, but most of the time the file name actually used
-in Emacs omits the version number, so that version numbers in Emacs are
-found mostly in directory lists.
+backup files have version numbers in their names.
@defun file-name-directory filename
This function returns the directory part of @var{filename}, as a
directory name (@pxref{Directory Names}), or @code{nil} if
@var{filename} does not include a directory part.
On GNU and Unix systems, a string returned by this function always
-ends in a slash. On MS-DOS it can also end in a colon. On VMS, it
-returns a string ending in one of the three characters @samp{:},
-@samp{]}, or @samp{>}.
+ends in a slash. On MS-DOS it can also end in a colon.
@example
@group
@@ -1626,10 +1614,6 @@ returns a string ending in one of the three characters @samp{:},
(file-name-directory "foo") ; @r{Unix example}
@result{} nil
@end group
-@group
-(file-name-directory "[X]FOO.TMP") ; @r{VMS example}
- @result{} "[X]"
-@end group
@end example
@end defun
@@ -1649,11 +1633,6 @@ This function returns the nondirectory part of @var{filename}.
(file-name-nondirectory "lewis/")
@result{} ""
@end group
-@group
-;; @r{The following example is accurate only on VMS.}
-(file-name-nondirectory "[X]FOO.TMP")
- @result{} "FOO.TMP"
-@end group
@end example
@end defun
@@ -1678,11 +1657,6 @@ return value, but backup version numbers are kept.
(file-name-sans-versions "~rms/foo")
@result{} "~rms/foo"
@end group
-@group
-;; @r{The following example applies to VMS only.}
-(file-name-sans-versions "foo;23")
- @result{} "foo"
-@end group
@end example
@end defun
@@ -1758,12 +1732,11 @@ name. On Unix and GNU/Linux, an absolute file name starts with a slash
or a tilde (@samp{~}), and a relative one does not. On MS-DOS and
MS-Windows, an absolute file name starts with a slash or a backslash, or
with a drive specification @samp{@var{x}:/}, where @var{x} is the
-@dfn{drive letter}. The rules on VMS are complicated.
+@dfn{drive letter}.
@defun file-name-absolute-p filename
This function returns @code{t} if file @var{filename} is an absolute
-file name, @code{nil} otherwise. On VMS, this function understands both
-Unix syntax and VMS syntax.
+file name, @code{nil} otherwise.
@example
@group
@@ -1819,8 +1792,8 @@ the directory name but not identical to it. (This is not quite the
same as the usual Unix terminology.) These two different names for
the same entity are related by a syntactic transformation. On GNU and
Unix systems, this is simple: a directory name ends in a slash,
-whereas the directory's name as a file lacks that slash. On MS-DOS and
-VMS, the relationship is more complicated.
+whereas the directory's name as a file lacks that slash. On MS-DOS
+the relationship is more complicated.
The difference between a directory name and its name as a file is
subtle but crucial. When an Emacs variable or function argument is
@@ -1836,8 +1809,7 @@ such as @samp{$HOME}, and the constructs @samp{~}, @samp{.} and @samp{..}.
This function returns a string representing @var{filename} in a form
that the operating system will interpret as the name of a directory. On
most systems, this means appending a slash to the string (if it does not
-already end in one). On VMS, the function converts a string of the form
-@file{[X]Y.DIR.1} to the form @file{[X.Y]}.
+already end in one).
@example
@group
@@ -1851,8 +1823,7 @@ already end in one). On VMS, the function converts a string of the form
This function returns a string representing @var{dirname} in a form that
the operating system will interpret as the name of a file. On most
systems, this means removing the final slash (or backslash) from the
-string. On VMS, the function converts a string of the form @file{[X.Y]}
-to @file{[X]Y.DIR.1}.
+string.
@example
@group
@@ -2037,7 +2008,7 @@ with @samp{~}. This variable is buffer-local in every buffer.
@code{expand-file-name} uses the default directory when its second
argument is @code{nil}.
-Aside from VMS, the value is always a string ending with a slash.
+The value is always a string ending with a slash.
@example
@group
@@ -2097,8 +2068,6 @@ through the immediately preceding @samp{/}).
@end group
@end example
-On VMS, @samp{$} substitution is not done, so this function does nothing
-on VMS except discard superfluous initial components as shown above.
@end defun
@node Unique File Names
@@ -2417,11 +2386,6 @@ corresponding argument to @code{file-attributes} (@pxref{Definition
of file-attributes}).
@end defun
-@defun file-name-all-versions file dirname
-This function returns a list of all versions of the file named
-@var{file} in directory @var{dirname}. It is only available on VMS.
-@end defun
-
@defun file-expand-wildcards pattern &optional full
This function expands the wildcard pattern @var{pattern}, returning
a list of file names that match it.
View
2 doc/lispref/intro.texi
@@ -55,7 +55,7 @@ but not flawless. There are a few topics that are not covered, either
because we consider them secondary (such as most of the individual
modes) or because they are yet to be written. Because we are not able
to deal with them completely, we have left out several parts
-intentionally. This includes most information about usage on VMS.
+intentionally.
The manual should be fully correct in what it does cover, and it is
therefore open to criticism on anything it says---from specific examples
View
20 doc/lispref/os.texi
@@ -632,10 +632,6 @@ convenient way to test parts of this string is with
The value of this variable is a symbol indicating the type of operating
system Emacs is operating on. Here is a table of the possible values:
-@table @code
-@item alpha-vms
-VMS on the Alpha.
-
@item aix-v3
AIX.
@@ -667,9 +663,6 @@ MS-Windows.
@item usg-unix-v
AT&T System V.
-@item vax-vms
-VAX VMS.
-
@item windows-nt
Microsoft windows NT. The same executable supports Windows 9X, but the
value of @code{system-type} is @code{windows-nt} in either case.
@@ -862,19 +855,6 @@ in the system's terminal driver, before Emacs was started.
The value is @code{nil} if Emacs is running under a window system.
@end defvar
-@defun setprv privilege-name &optional setp getprv
-This function sets or resets a VMS privilege. (It does not exist on
-other systems.) The first argument is the privilege name, as a string.
-The second argument, @var{setp}, is @code{t} or @code{nil}, indicating
-whether the privilege is to be turned on or off. Its default is
-@code{nil}. The function returns @code{t} if successful, @code{nil}
-otherwise.
-
-If the third argument, @var{getprv}, is non-@code{nil}, @code{setprv}
-does not change the privilege, but returns @code{t} or @code{nil}
-indicating whether the privilege is currently enabled.
-@end defun
-
@node User Identification
@section User Identification
@cindex user identification
View
4 doc/misc/ChangeLog
@@ -1,3 +1,7 @@
+2008-07-31 Dan Nicolaescu <dann@ics.uci.edu>
+
+ * ediff.texi: Remove VMS support.
+
2008-07-29 Juanma Barranquero <lekktu@gmail.com>
* makefile.w32-in (INFO_TARGETS, DVI_TARGETS, clean): Add mairix-el.
View
2 doc/misc/ediff.texi
@@ -1152,7 +1152,7 @@ packages also use this method).
Regular files are treated by the @code{patch} utility in the usual manner,
i.e., the original is renamed into @file{source-name.orig} and the result
of the patch is placed into the file source-name (@file{_orig} is used
-on systems like VMS, DOS, etc.)
+on systems like DOS, etc.)
@node Customization, Credits, Remote and Compressed Files, Top
@chapter Customization
View
7 etc/ChangeLog
@@ -1,3 +1,10 @@
+2008-07-31 Dan Nicolaescu <dann@ics.uci.edu>
+
+ * termcap.src: Remove file.
+ * README:
+ * PROBLEMS:
+ * MACHINES: Remove VMS info.
+
2008-07-27 Dan Nicolaescu <dann@ics.uci.edu>
* PROBLEMS:
View
21 etc/MACHINES
@@ -437,16 +437,9 @@ Tadpole 68K (m68k-tadpole-sysv)
chmod 2755 etc/movemail; chgrp mail etc/movemail
-Vaxen running Berkeley Unix (vax-dec-bsd4.1, vax-dec-bsd4.2, vax-dec-bsd4.3),
- VMS (vax-dec-vms)
+Vaxen running Berkeley Unix (vax-dec-bsd4.1, vax-dec-bsd4.2, vax-dec-bsd4.3)
Works.
-
- Richard Levitte <levitte@e.kth.se> distributes a set of patches to
- Emacs 18.59 to make it work nicely under VMS. Emacs 19 probably
- won't work very well, or even compile. Levitte is working on a
- port, so these problems should be fixed in the near future.
-
Here are notes about some of the systems supported:
@@ -515,17 +508,6 @@ System V rel 4.0.3 and 4.0.4 (usg5.4)
#undef HAVE_SOCKETS in config.h, after the inclusion of s-usg5-4.h.
(Any system that supports Internet should implement sockets.)
-VMS (vmsM.N)
-
- Richard Levitte <levitte@e.kth.se> distributes a set of patches to
- Emacs 18.59 to make it work nicely under VMS. Emacs 19 probably
- won't work very well, or even compile. Levitte is working on a
- port, so these problems should be fixed in the near future.
-
- Note that Emacs for VMS is usually distributed in a special VMS
- distribution. See the file ../vms/VMSINSTALL for info on moving
- Unix distributions to VMS, and other VMS-related topics.
-
Windows NT/95/98/ME/2000
For installation on all versions of the MS-Windows platform, see the
@@ -630,6 +612,7 @@ Support for the following obsolete platforms was removed in Emacs 23.1
System V rel 2.2 -- usg5.2.2
System V rel 3 -- usg5.3
Ultrix -- bsd4.3
+ VMS (s/vms.h)
Local variables:
View
21 etc/PROBLEMS
@@ -2672,7 +2672,7 @@ or
*** Fatal signal in the command temacs -l loadup inc dump.
This command is the final stage of building Emacs. It is run by the
-Makefile in the src subdirectory, or by build.com on VMS.
+Makefile in the src subdirectory.
It has been known to get fatal errors due to insufficient swapping
space available on the machine.
@@ -3643,25 +3643,6 @@ floating point option: -fsoft.
This seems to be due to a GCC bug; it is fixed in GCC 2.8.1.
-** VMS: Compilation errors on VMS.
-
-You will get warnings when compiling on VMS because there are
-variable names longer than 32 (or whatever it is) characters.
-This is not an error. Ignore it.
-
-VAX C does not support #if defined(foo). Uses of this construct
-were removed, but some may have crept back in. They must be rewritten.
-
-There is a bug in the C compiler which fails to sign extend characters
-in conditional expressions. The bug is:
- char c = -1, d = 1;
- int i;
-
- i = d ? c : d;
-The result is i == 255; the fix is to typecast the char in the
-conditional expression as an (int). Known occurrences of such
-constructs in Emacs have been fixed.
-
** Vax C compiler bugs affecting Emacs.
You may get one of these problems compiling Emacs:
View
4 etc/README
@@ -5,10 +5,6 @@ for Emacs functions and variables.
`forms-d2.dat' is an example data file used by forms-d2.el.
-`termcap.src' is included mainly for VMS. It is a copy of the
-`/etc/termcap' file used on Unix.
-
-
COPYRIGHT AND LICENSE INFORMATION FOR IMAGE FILES
File: emacs.icon
View
17,734 etc/termcap.src
0 additions, 17,734 deletions not shown because the diff is too large. Please use a local Git client to view these changes.
View
5 lib-src/ChangeLog
@@ -1,3 +1,8 @@
+2008-07-31 Dan Nicolaescu <dann@ics.uci.edu>
+
+ * etags.c:
+ * emacsclient.c: Remove VMS support.
+
2008-07-27 Dan Nicolaescu <dann@ics.uci.edu>
Remove support for Mac Carbon.
View
4 lib-src/emacsclient.c
@@ -64,15 +64,11 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
#include <unistd.h>
#endif
-#ifdef VMS
-# include "vms-pwd.h"
-#else /* not VMS */
#ifdef WINDOWSNT
# include <io.h>
#else /* not WINDOWSNT */
# include <pwd.h>
#endif /* not WINDOWSNT */
-#endif /* not VMS */
#include <sys/stat.h>
#include <signal.h>
View
154 lib-src/etags.c
@@ -172,13 +172,8 @@ char pot_etags_version[] = "@(#) pot revision number is 17.38";
extern void exit __P((int));
extern void free __P((void *));
extern void *memmove __P((void *, const void *, unsigned long));
-# ifdef VMS
-# define EXIT_SUCCESS 1
-# define EXIT_FAILURE 0
-# else /* no VMS */
-# define EXIT_SUCCESS 0
-# define EXIT_FAILURE 1
-# endif
+# define EXIT_SUCCESS 0
+# define EXIT_FAILURE 1
# endif
#endif /* !WINDOWSNT */
@@ -1094,131 +1089,6 @@ Relative ones are stored relative to the output file's directory.\n");
}
-#ifdef VMS /* VMS specific functions */
-
-#define EOS '\0'
-
-/* This is a BUG! ANY arbitrary limit is a BUG!
- Won't someone please fix this? */
-#define MAX_FILE_SPEC_LEN 255
-typedef struct {
- short curlen;
- char body[MAX_FILE_SPEC_LEN + 1];
-} vspec;
-
-/*
- v1.05 nmm 26-Jun-86 fn_exp - expand specification of list of file names
- returning in each successive call the next file name matching the input
- spec. The function expects that each in_spec passed
- to it will be processed to completion; in particular, up to and
- including the call following that in which the last matching name
- is returned, the function ignores the value of in_spec, and will
- only start processing a new spec with the following call.
- If an error occurs, on return out_spec contains the value
- of in_spec when the error occurred.
-
- With each successive file name returned in out_spec, the
- function's return value is one. When there are no more matching
- names the function returns zero. If on the first call no file
- matches in_spec, or there is any other error, -1 is returned.
-*/
-
-#include <rmsdef.h>
-#include <descrip.h>
-#define OUTSIZE MAX_FILE_SPEC_LEN
-static short
-fn_exp (out, in)
- vspec *out;
- char *in;
-{
- static long context = 0;
- static struct dsc$descriptor_s o;
- static struct dsc$descriptor_s i;
- static bool pass1 = TRUE;
- long status;
- short retval;
-
- if (pass1)
- {
- pass1 = FALSE;
- o.dsc$a_pointer = (char *) out;
- o.dsc$w_length = (short)OUTSIZE;
- i.dsc$a_pointer = in;
- i.dsc$w_length = (short)strlen(in);
- i.dsc$b_dtype = DSC$K_DTYPE_T;
- i.dsc$b_class = DSC$K_CLASS_S;
- o.dsc$b_dtype = DSC$K_DTYPE_VT;
- o.dsc$b_class = DSC$K_CLASS_VS;
- }
- if ((status = lib$find_file(&i, &o, &context, 0, 0)) == RMS$_NORMAL)
- {
- out->body[out->curlen] = EOS;
- return 1;
- }
- else if (status == RMS$_NMF)
- retval = 0;
- else
- {
- strcpy(out->body, in);
- retval = -1;
- }
- lib$find_file_end(&context);
- pass1 = TRUE;
- return retval;
-}
-
-/*
- v1.01 nmm 19-Aug-85 gfnames - return in successive calls the
- name of each file specified by the provided arg expanding wildcards.
-*/
-static char *
-gfnames (arg, p_error)
- char *arg;
- bool *p_error;
-{
- static vspec filename = {MAX_FILE_SPEC_LEN, "\0"};
-
- switch (fn_exp (&filename, arg))
- {
- case 1:
- *p_error = FALSE;
- return filename.body;
- case 0:
- *p_error = FALSE;
- return NULL;
- default:
- *p_error = TRUE;
- return filename.body;
- }
-}
-
-#ifndef OLD /* Newer versions of VMS do provide `system'. */
-system (cmd)
- char *cmd;
-{
- error ("%s", "system() function not implemented under VMS");
-}
-#endif
-
-#define VERSION_DELIM ';'
-char *massage_name (s)
- char *s;
-{
- char *start = s;
-
- for ( ; *s; s++)
- if (*s == VERSION_DELIM)
- {
- *s = EOS;
- break;
- }
- else
- *s = lowcase (*s);
- return start;
-}
-#endif /* VMS */
-
-
int
main (argc, argv)
int argc;
@@ -1231,9 +1101,6 @@ main (argc, argv)
int current_arg, file_count;
linebuffer filename_lb;
bool help_asked = FALSE;
-#ifdef VMS
- bool got_err;
-#endif
char *optstring;
int opt;
@@ -1441,21 +1308,7 @@ main (argc, argv)
analyse_regex (argbuffer[i].what);
break;
case at_filename:
-#ifdef VMS
- while ((this_file = gfnames (argbuffer[i].what, &got_err)) != NULL)
- {
- if (got_err)
- {
- error ("can't find file %s\n", this_file);
- argc--, argv++;
- }
- else
- {
- this_file = massage_name (this_file);
- }
-#else
this_file = argbuffer[i].what;
-#endif
/* Input file named "-" means read file names from stdin
(one per line) and use them. */
if (streq (this_file, "-"))
@@ -1468,9 +1321,6 @@ main (argc, argv)
}
else
process_file_name (this_file, lang);
-#ifdef VMS
- }
-#endif
break;
case at_stdin:
this_file = argbuffer[i].what;
View
39 lisp/ChangeLog
@@ -1,3 +1,42 @@
+2008-07-31 Dan Nicolaescu <dann@ics.uci.edu>
+
+ * textmodes/texinfmt.el:
+ * nxml/nxml-enc.el:
+ * mail/feedmail.el:
+ * international/mule.el:
+ * international/latexenc.el:
+ * emulation/viper-util.el:
+ * emulation/viper-init.el:
+ * emulation/viper-ex.el:
+ * emacs-lisp/bytecomp.el:
+ * version.el:
+ * subr.el:
+ * startup.el:
+ * sort.el:
+ * shadowfile.el:
+ * recentf.el:
+ * printing.el:
+ * paths.el:
+ * minibuffer.el:
+ * ls-lisp.el:
+ * loadup.el:
+ * hippie-exp.el:
+ * finder.el:
+ * files.el:
+ * ediff-util.el:
+ * ediff-ptch.el:
+ * ediff-init.el:
+ * ediff-diff.el:
+ * dired.el:
+ * dired-aux.el:
+ * cus-edit.el:
+ * bindings.el:
+ * arc-mode.el:
+ * add-log.el: Remove VMS support.
+ * obsolete/vmsproc.el:
+ * obsolete/vms-pmail.el:
+ * obsolete/vms-patch.el: Remove file.
+
2008-07-31 Alan Mackenzie <acm@muc.de>
* progmodes/cc-mode.el (c-before-hack-hook): New function
View
4 lisp/add-log.el
@@ -556,9 +556,7 @@ If t, use universal time.")
(defun change-log-name ()
"Return (system-dependent) default name for a change log file."
(or change-log-default-name
- (if (eq system-type 'vax-vms)
- "$CHANGE_LOG$.TXT"
- "ChangeLog")))
+ "ChangeLog"))
(defun add-log-edit-prev-comment (arg)
"Cycle backward through Log-Edit mode comment history.
View
4 lisp/arc-mode.el
@@ -1731,7 +1731,7 @@ This doesn't recover lost files, it just undoes changes in the buffer itself."
str archive-file-name-coding-system)))
(isdir (and (= ucsize 0)
(string= (file-name-nondirectory efnname) "")))
- (mode (cond ((memq creator '(2 3)) ; Unix + VMS
+ (mode (cond ((memq creator '(2 3)) ; Unix
(archive-l-e (+ p 40) 2))
((memq creator '(0 5 6 7 10 11 15)) ; Dos etc.
(logior ?\444
@@ -1800,7 +1800,7 @@ This doesn't recover lost files, it just undoes changes in the buffer itself."
(oldmode (aref fil 3))
(newval (archive-calc-mode oldmode newmode t))
(inhibit-read-only t))
- (cond ((memq creator '(2 3)) ; Unix + VMS
+ (cond ((memq creator '(2 3)) ; Unix
(goto-char (+ p 40))
(delete-char 2)
(insert-unibyte (logand newval 255) (lsh newval -8)))
View
4 lisp/bindings.el
@@ -583,10 +583,6 @@ is okay. See `mode-line-format'.")
(cond ((memq system-type '(ms-dos windows-nt))
'(".o" "~" ".bin" ".bak" ".obj" ".map" ".ico" ".pif" ".lnk"
".a" ".ln" ".blg" ".bbl" ".dll" ".drv" ".vxd" ".386"))
- ((eq system-type 'vax-vms)
- '(".obj" ".exe" ".bin" ".lbin" ".sbin"
- ".brn" ".rnt" ".lni"
- ".olb" ".tlb" ".mlb" ".hlb"))
(t
'(".o" "~" ".bin" ".lbin" ".so"
".a" ".ln" ".blg" ".bbl")))
View
4 lisp/cus-edit.el
@@ -292,10 +292,6 @@
"Front-ends/assistants for, or emulators of, UNIX features."
:group 'environment)
-(defgroup vms nil
- "Support code for vms."
- :group 'environment)
-
(defgroup i18n nil
"Internationalization and alternate character-set support."
:link '(custom-manual "(emacs)International")
View
2 lisp/dired-aux.el
@@ -1108,7 +1108,6 @@ See Info node `(emacs)Subdir switches' for more details."
;; or wildcard lines.
;; Important: never moves into the next subdir.
;; DIR is assumed to be unhidden.
- ;; Will probably be redefined for VMS etc.
(save-excursion
(or (dired-goto-subdir dir) (error "This cannot happen"))
(forward-line 1)
@@ -1936,7 +1935,6 @@ This function takes some pains to conform to `ls -lR' output."
(save-excursion (dired-mark-remembered mark-alist))
(restore-buffer-modified-p modflag)))
-;; This is a separate function for dired-vms.
(defun dired-insert-subdir-validate (dirname &optional switches)
;; Check that it is valid to insert DIRNAME with SWITCHES.
;; Signal an error if invalid (e.g. user typed `i' on `..').
View
9 lisp/dired.el
@@ -719,7 +719,6 @@ for a remote directory. This feature is used by Auto Revert Mode."
(file-readable-p dirname)
(dired-directory-changed-p dirname))))
-;; Separate function from dired-noselect for the sake of dired-vms.el.
(defun dired-internal-noselect (dir-or-list &optional switches mode)
;; If there is an existing dired buffer for DIRNAME, just leave
;; buffer as it is (don't even call dired-revert).
@@ -1987,8 +1986,7 @@ Optional arg GLOBAL means to replace all matches."
;;"Convert FILE (a file name relative to DIR) to an absolute file name."
;; We can't always use expand-file-name as this would get rid of `.'
;; or expand in / instead default-directory if DIR=="".
- ;; This should be good enough for ange-ftp, but might easily be
- ;; redefined (for VMS?).
+ ;; This should be good enough for ange-ftp.
;; It should be reasonably fast, though, as it is called in
;; dired-get-filename.
(concat (or dir default-directory) file))
@@ -2554,7 +2552,7 @@ non-empty directories is allowed."
(defun dired-internal-do-deletions (l arg)
;; L is an alist of files to delete, with their buffer positions.
;; ARG is the prefix arg.
- ;; Filenames are absolute (VMS needs this for logical search paths).
+ ;; Filenames are absolute.
;; (car L) *must* be the *last* (bottommost) file in the dired buffer.
;; That way as changes are made in the buffer they do not shift the
;; lines still to be changed, so the (point) values in L stay valid.
@@ -3442,9 +3440,6 @@ Ask means pop up a menu for the user to select one of copy, move or link."
'(dired-mode . dired-restore-desktop-buffer))
-(if (eq system-type 'vax-vms)
- (load "dired-vms"))
-
(provide 'dired)
(run-hooks 'dired-load-hook) ; for your customizations
View
5 lisp/ediff-diff.el
@@ -56,7 +56,6 @@ Must produce output compatible with Unix's diff3 program."
(cond ((eq system-type 'emx) "cmd") ; OS/2
((memq system-type '(ms-dos windows-nt windows-95))
shell-file-name) ; no standard name on MS-DOS
- ((memq system-type '(vax-vms axp-vms)) "*dcl*") ; VMS
(t "sh")) ; UNIX
"*The shell used to run diff and patch.
If user's .profile or .cshrc files are set up correctly, any shell
@@ -336,9 +335,7 @@ one optional arguments, diff-number to refine.")
(erase-buffer)
(insert (ediff-with-current-buffer diff-buff (buffer-string)))
(goto-char (point-min))
- (delete-matching-lines ok-regexp)
- (if (memq system-type '(vax-vms axp-vms))
- (delete-matching-lines "^$")))
+ (delete-matching-lines ok-regexp))
;; If diff reports errors, show them then quit.
(if (/= 0 (ediff-with-current-buffer ediff-error-buffer (buffer-size)))
(let ((ctl-buf ediff-control-buffer)
View
2 lisp/ediff-init.el
@@ -1400,8 +1400,6 @@ Instead, C-h would jump to previous difference."
;;; (file-name-as-directory
;;; (cond ((memq system-type '(ms-dos windows-nt))
;;; (or (getenv "TEMP") (getenv "TMPDIR") (getenv "TMP") "c:/temp"))
-;;; ((memq system-type '(vax-vms axp-vms))
-;;; (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "SYS$SCRATCH:"))
;;; (t
;;; (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "/tmp"))))
"*Prefix to put on Ediff temporary file names.
View
2 lisp/ediff-ptch.el
@@ -61,7 +61,7 @@ case the default value for this variable should be changed."
;; the default backup extension
(defconst ediff-default-backup-extension
- (if (memq system-type '(vax-vms axp-vms emx ms-dos))
+ (if (memq system-type '(emx ms-dos))
"_orig" ".orig"))
View
2 lisp/ediff-util.el
@@ -3217,7 +3217,7 @@ Hit \\[ediff-recenter] to reset the windows afterward."
;; Quote metacharacters (using \) when executing diff in Unix, but not in
;; EMX OS/2
;;(defun ediff-protect-metachars (str)
-;; (or (memq system-type '(emx vax-vms axp-vms))
+;; (or (memq system-type '(emx))
;; (let ((limit 0))
;; (while (string-match ediff-metachars str limit)
;; (setq str (concat (substring str 0 (match-beginning 0))
View
11 lisp/emacs-lisp/bytecomp.el
@@ -197,9 +197,7 @@
"Emacs Lisp byte-compiler."
:group 'lisp)
-(defcustom emacs-lisp-file-regexp (if (eq system-type 'vax-vms)
- "\\.EL\\(;[0-9]+\\)?$"
- "\\.el$")
+(defcustom emacs-lisp-file-regexp "\\.el$"
"*Regexp which matches Emacs Lisp source files.
You may want to redefine the function `byte-compile-dest-file'
if you change this variable."
@@ -225,9 +223,7 @@ If FILENAME matches `emacs-lisp-file-regexp' (by default, files
with the extension `.el'), add `c' to it; otherwise add `.elc'."
(setq filename (byte-compiler-base-file-name filename))
(setq filename (file-name-sans-versions filename))
- (cond ((eq system-type 'vax-vms)
- (concat (substring filename 0 (string-match ";" filename)) "c"))
- ((string-match emacs-lisp-file-regexp filename)
+ (cond ((string-match emacs-lisp-file-regexp filename)
(concat (substring filename 0 (match-beginning 0)) ".elc"))
(t (concat filename ".elc")))))
@@ -1788,7 +1784,6 @@ The value is non-nil if there were no errors, nil if errors."
(with-current-buffer output-buffer
(goto-char (point-max))
(insert "\n") ; aaah, unix.
- (let ((vms-stmlf-recfm t))
(if (file-writable-p target-file)
;; We must disable any code conversion here.
(let ((coding-system-for-write 'no-conversion))
@@ -1808,7 +1803,7 @@ The value is non-nil if there were no errors, nil if errors."
(if (file-exists-p target-file)
"cannot overwrite file"
"directory not writable or nonexistent")
- target-file))))
+ target-file)))
(kill-buffer (current-buffer)))
(if (and byte-compile-generate-call-tree
(or (eq t byte-compile-generate-call-tree)
View
3 lisp/emulation/viper-ex.el
@@ -331,12 +331,11 @@ Don't put `-c' here, as it is added automatically."
(cond (ex-unix-type-shell 'viper-glob-unix-files)
((eq system-type 'emx) 'viper-glob-mswindows-files) ; OS/2
(viper-ms-style-os-p 'viper-glob-mswindows-files) ; Microsoft OS
- (viper-vms-os-p 'viper-glob-unix-files) ; VMS
(t 'viper-glob-unix-files) ; presumably UNIX
)
"Expand the file spec containing wildcard symbols.
The default tries to set this variable to work with Unix, Windows,
-OS/2, and VMS.
+and OS/2.
However, if it doesn't work right for some types of Unix shells or some OS,
the user should supply the appropriate function and set this variable to the
View
5 lisp/emulation/viper-init.el
@@ -69,11 +69,6 @@
:type 'boolean
:tag "Is it Microsoft-made OS?"
:group 'viper-misc)
-(defcustom viper-vms-os-p (memq system-type '(vax-vms axp-vms))
- "Tells if Emacs is running under VMS."
- :type 'boolean
- :tag "Is it VMS?"
- :group 'viper-misc)
(defcustom viper-suppress-input-method-change-message nil
"If t, the message notifying about changes in the input method is not displayed.
View
3 lisp/emulation/viper-util.el
@@ -397,11 +397,10 @@ Otherwise return the normal value."
;;; Support for :e, :r, :w file globbing
;; Glob the file spec.
-;; This function is designed to work under Unix. It might also work under VMS.
+;; This function is designed to work under Unix.
(defun viper-glob-unix-files (filespec)
(let ((gshell
(cond (ex-unix-type-shell shell-file-name)
- ((memq system-type '(vax-vms axp-vms)) "*dcl*") ; VAX VMS
(t "sh"))) ; probably Unix anyway
(gshell-options
;; using cond in anticipation of further additions
View
76 lisp/files.el
@@ -70,8 +70,7 @@ the name it is linked to."
:group 'abbrev
:group 'find-file)
-;; Turn off backup files on VMS since it has version numbers.
-(defcustom make-backup-files (not (eq system-type 'vax-vms))
+(defcustom make-backup-files t
"Non-nil means make a backup of a file the first time it is saved.
This can be done by renaming the file or by copying.
@@ -190,8 +189,6 @@ If the buffer is visiting a new file, the value is nil.")
(file-name-as-directory
(cond ((memq system-type '(ms-dos windows-nt))
(or (getenv "TEMP") (getenv "TMPDIR") (getenv "TMP") "c:/temp"))
- ((memq system-type '(vax-vms axp-vms))
- (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "SYS$SCRATCH:"))
(t
(or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "/tmp"))))
"The directory for writing temporary files."
@@ -216,7 +213,6 @@ have fast storage with limited space, such as a RAM disk."
(declare-function dired-unmark "dired" (arg))
(declare-function dired-do-flagged-delete "dired" (&optional nomessage))
(declare-function dos-8+3-filename "dos-fns" (filename))
-(declare-function vms-read-directory "vms-patch" (dirname switches buffer))
(declare-function view-mode-disable "view" ())
(defvar file-name-invalid-regexp
@@ -625,8 +621,7 @@ Directories are separated by occurrences of `path-separator'
"Change current directory to given absolute file name DIR."
;; Put the name into directory syntax now,
;; because otherwise expand-file-name may give some bad results.
- (if (not (eq system-type 'vax-vms))
- (setq dir (file-name-as-directory dir)))
+ (setq dir (file-name-as-directory dir))
(setq dir (abbreviate-file-name (expand-file-name dir)))
(if (not (file-directory-p dir))
(if (file-exists-p dir)
@@ -1461,11 +1456,7 @@ home directory is a root directory) and removes automounter prefixes
filename)))
(defcustom find-file-not-true-dirname-list nil
- "List of logical names for which visiting shouldn't save the true dirname.
-On VMS, when you visit a file using a logical name that searches a path,
-you may or may not want the visited file name to record the specific
-directory where the file was found. If you *do not* want that, add the logical
-name to this list as a string."
+ "List of logical names for which visiting shouldn't save the true dirname."
:type '(repeat (string :tag "Name"))
:group 'find-file)
@@ -1765,15 +1756,6 @@ Do you want to revisit the file normally now? ")
(setq buffer-file-truename
(abbreviate-file-name (file-truename buffer-file-name))))
(setq buffer-file-number number)
- ;; On VMS, we may want to remember which directory in a search list
- ;; the file was found in.
- (and (eq system-type 'vax-vms)
- (let (logical)
- (if (string-match ":" (file-name-directory filename))
- (setq logical (substring (file-name-directory filename)
- 0 (match-beginning 0))))
- (not (member logical find-file-not-true-dirname-list)))
- (setq buffer-file-name buffer-file-truename))
(if find-file-visit-truename
(setq buffer-file-name (expand-file-name buffer-file-truename)))
;; Set buffer's default directory to that of the file.
@@ -2412,7 +2394,7 @@ we don't actually set it to the same mode the buffer already has."
(while name
;; Find first matching alist entry.
(setq mode
- (if (memq system-type '(vax-vms windows-nt cygwin))
+ (if (memq system-type '(windows-nt cygwin))
;; System is case-insensitive.
(let ((case-fold-search t))
(assoc-default name auto-mode-alist
@@ -3279,8 +3261,6 @@ the old visited file has been renamed to the new name FILENAME."
(setq buffer-file-name filename)
(if filename ; make buffer name reflect filename.
(let ((new-name (file-name-nondirectory buffer-file-name)))
- (if (eq system-type 'vax-vms)
- (setq new-name (downcase new-name)))
(setq default-directory (file-name-directory buffer-file-name))
;; If new-name == old-name, renaming would add a spurious <2>
;; and it's considered as a feature in rename-buffer.
@@ -3519,22 +3499,11 @@ we do not remove backup version numbers, only true file version numbers."
(if handler
(funcall handler 'file-name-sans-versions name keep-backup-version)
(substring name 0
- (if (eq system-type 'vax-vms)
- ;; VMS version number is (a) semicolon, optional
- ;; sign, zero or more digits or (b) period, option
- ;; sign, zero or more digits, provided this is the
- ;; second period encountered outside of the
- ;; device/directory part of the file name.
- (or (string-match ";[-+]?[0-9]*\\'" name)
- (if (string-match "\\.[^]>:]*\\(\\.[-+]?[0-9]*\\)\\'"
- name)
- (match-beginning 1))
- (length name))
- (if keep-backup-version
- (length name)
- (or (string-match "\\.~[-[:alnum:]:#@^._]+~\\'" name)
- (string-match "~\\'" name)
- (length name))))))))
+ (if keep-backup-version
+ (length name)
+ (or (string-match "\\.~[-[:alnum:]:#@^._]+~\\'" name)
+ (string-match "~\\'" name)
+ (length name)))))))
(defun file-ownership-preserved-p (file)
"Return t if deleting FILE and rewriting it would preserve the owner."
@@ -3737,8 +3706,6 @@ the index in the name where the version number begins."
(string-to-number (substring fn backup-extract-version-start -1))
0))
-;; I believe there is no need to alter this behavior for VMS;
-;; since backup files are not made on VMS, it should not get called.
(defun find-backup-file-name (fn)
"Find a file name for a backup file FN, and suggestions for deletions.
Value is a list whose car is the name for the backup file
@@ -3984,19 +3951,6 @@ Before and after saving the buffer, this function runs
(if (buffer-modified-p)
(let ((recent-save (recent-auto-save-p))
setmodes)
- ;; On VMS, rename file and buffer to get rid of version number.
- (if (and (eq system-type 'vax-vms)
- (not (string= buffer-file-name
- (file-name-sans-versions buffer-file-name))))
- (let (buffer-new-name)
- ;; Strip VMS version number before save.
- (setq buffer-file-name
- (file-name-sans-versions buffer-file-name))
- ;; Construct a (unique) buffer name to correspond.
- (let ((buf (create-file-buffer (downcase buffer-file-name))))
- (setq buffer-new-name (buffer-name buf))
- (kill-buffer buf))
- (rename-buffer buffer-new-name)))
;; If buffer has no file name, ask user for one.
(or buffer-file-name
(let ((filename
@@ -5036,15 +4990,13 @@ by `sh' are supported."
(concat "\\`" result "\\'")))
(defcustom list-directory-brief-switches
- (if (eq system-type 'vax-vms) "" "-CF")
+ "-CF"
"Switches for `list-directory' to pass to `ls' for brief listing."
:type 'string
:group 'dired)
(defcustom list-directory-verbose-switches
- (if (eq system-type 'vax-vms)
- "/PROTECTION/SIZE/DATE/OWNER/WIDTH=(OWNER:10)"
- "-l")
+ "-l"
"Switches for `list-directory' to pass to `ls' for verbose listing."
:type 'string
:group 'dired)
@@ -5328,8 +5280,6 @@ normally equivalent short `-D' option is just passed on to
(if handler
(funcall handler 'insert-directory file switches
wildcard full-directory-p)
- (if (eq system-type 'vax-vms)
- (vms-read-directory file switches (current-buffer))
(let (result (beg (point)))
;; Read the actual directory using `insert-directory-program'.
@@ -5558,7 +5508,7 @@ normally equivalent short `-D' option is just passed on to
;; Replace "total" with "used", to avoid confusion.
(replace-match "total used in directory" nil nil nil 1)
(end-of-line)
- (insert " available " available)))))))))))
+ (insert " available " available))))))))))
(defun insert-directory-adj-pos (pos error-lines)
"Convert `ls --dired' file name position value POS to a buffer position.
@@ -5610,7 +5560,7 @@ With prefix arg, silently save all file-visiting buffers, then kill."
(buffer-list))))
(yes-or-no-p "Modified buffers exist; exit anyway? "))
(or (not (fboundp 'process-list))
- ;; process-list is not defined on VMS.
+ ;; process-list is not defined on MSDOS.
(let ((processes (process-list))
active)
(while processes
View
2 lisp/finder.el
@@ -83,8 +83,6 @@
(tex . "supporting code for the TeX formatter")
(tools . "programming tools")
(unix . "front-ends/assistants for, or emulators of, UNIX-like features")
-;; Not a custom group and not currently useful.
-;; (vms . "support code for vms")
(wp . "word processing")
))
View
4 lisp/gnus/gnus-registry.el
@@ -258,9 +258,7 @@ considered precious) will not be trimmed."
(if (and (eq system-type 'ms-dos)
(not (gnus-long-file-names)))
"%s#%d.tm#" ; MSDOS limits files to 8+3
- (if (memq system-type '(vax-vms axp-vms))
- "%s$tmp$%d"
- "%s#tmp#%d"))
+ "%s#tmp#%d")
working-dir (setq i (1+ i))))
(file-exists-p working-file)))
View
4 lisp/gnus/gnus-start.el
@@ -2799,9 +2799,7 @@ If FORCE is non-nil, the .newsrc file is read."
(if (and (eq system-type 'ms-dos)
(not (gnus-long-file-names)))
"%s#%d.tm#" ; MSDOS limits files to 8+3
- (if (memq system-type '(vax-vms axp-vms))
- "%s$tmp$%d"
- "%s#tmp#%d"))
+ "%s#tmp#%d")
working-dir (setq i (1+ i))))
(file-exists-p working-file)))
View
17 lisp/gnus/message.el
@@ -5296,7 +5296,7 @@ In posting styles use `(\"Expires\" (make-expires-date 30))'."
(* 25 25)))
(let ((tm (current-time)))
(concat
- (if (or (memq system-type '(ms-dos emx vax-vms))
+ (if (or (memq system-type '(ms-dos emx))
;; message-number-base36 doesn't handle bigints.
(floatp (user-uid)))
(let ((user (downcase (user-login-name))))
@@ -6858,14 +6858,13 @@ header line with the old Message-ID."
(interactive)
(let ((file-name (make-auto-save-file-name)))
(cond ((save-window-excursion
- (if (not (eq system-type 'vax-vms))
- (with-output-to-temp-buffer "*Directory*"
- (with-current-buffer standard-output
- (fundamental-mode)) ; for Emacs 20.4+
- (buffer-disable-undo standard-output)
- (let ((default-directory "/"))
- (call-process
- "ls" nil standard-output nil "-l" file-name))))
+ (with-output-to-temp-buffer "*Directory*"
+ (with-current-buffer standard-output
+ (fundamental-mode)) ; for Emacs 20.4+
+ (buffer-disable-undo standard-output)
+ (let ((default-directory "/"))
+ (call-process
+ "ls" nil standard-output nil "-l" file-name)))
(yes-or-no-p (format "Recover auto save file %s? " file-name)))
(let ((buffer-read-only nil))
(erase-buffer)
View
54 lisp/hippie-exp.el
@@ -439,13 +439,13 @@ string). It returns t if a new completion is found, nil otherwise."
(if (not old)
(progn
(he-init-string (he-file-name-beg) (point))
- (let ((name-part (he-file-name-nondirectory he-search-string))
- (dir-part (expand-file-name (or (he-file-name-directory
+ (let ((name-part (file-name-nondirectory he-search-string))
+ (dir-part (expand-file-name (or (file-name-directory
he-search-string) ""))))
(if (not (he-string-member name-part he-tried-table))
(setq he-tried-table (cons name-part he-tried-table)))
(if (and (not (equal he-search-string ""))
- (he-file-directory-p dir-part))
+ (file-directory-p dir-part))
(setq he-expand-list (sort (file-name-all-completions
name-part
dir-part)
@@ -460,7 +460,7 @@ string). It returns t if a new completion is found, nil otherwise."
(if old (he-reset-string))
())
(let ((filename (he-concat-directory-file-name
- (he-file-name-directory he-search-string)
+ (file-name-directory he-search-string)
(car he-expand-list))))
(he-substitute-string filename)
(setq he-tried-table (cons (car he-expand-list) (cdr he-tried-table)))
@@ -476,11 +476,11 @@ otherwise."
(if (not old)
(progn
(he-init-string (he-file-name-beg) (point))
- (let ((name-part (he-file-name-nondirectory he-search-string))
- (dir-part (expand-file-name (or (he-file-name-directory
+ (let ((name-part (file-name-nondirectory he-search-string))
+ (dir-part (expand-file-name (or (file-name-directory
he-search-string) ""))))
(if (and (not (equal he-search-string ""))
- (he-file-directory-p dir-part))
+ (file-directory-p dir-part))
(setq expansion (file-name-completion name-part
dir-part)))
(if (or (eq expansion t)
@@ -493,16 +493,14 @@ otherwise."
(if old (he-reset-string))
())
(let ((filename (he-concat-directory-file-name
- (he-file-name-directory he-search-string)
+ (file-name-directory he-search-string)
expansion)))
(he-substitute-string filename)
(setq he-tried-table (cons expansion (cdr he-tried-table)))
t))))
(defvar he-file-name-chars
- (cond ((memq system-type '(vax-vms axp-vms))
- "-a-zA-Z0-9_/.,~^#$+=:\\[\\]")
- ((memq system-type '(ms-dos windows-nt cygwin))
+ (cond ((memq system-type '(ms-dos windows-nt cygwin))
"-a-zA-Z0-9_/.,~^#$+=:\\\\")
(t ;; More strange file formats ?
"-a-zA-Z0-9_/.,~^#$+="))
@@ -516,43 +514,11 @@ otherwise."
op
(point)))))
-;; Thanks go to Richard Levitte <levitte@e.kth.se> who helped to make these
-;; work under VMS, and to David Hughes <ukchugd@ukpmr.cs.philips.nl> who
+;; Thanks go to David Hughes <ukchugd@ukpmr.cs.philips.nl> who
;; helped to make it work on PC.
-(defun he-file-name-nondirectory (file)
- "Fix to make `file-name-nondirectory' work for hippie-expand under VMS."
- (if (memq system-type '(axp-vms vax-vms))
- (let ((n (file-name-nondirectory file)))
- (if (string-match "^\\(\\[.*\\)\\.\\([^\\.]*\\)$" n)
- (concat "[." (substring n (match-beginning 2) (match-end 2)))
- n))
- (file-name-nondirectory file)))
-
-(defun he-file-name-directory (file)
- "Fix to make `file-name-directory' work for hippie-expand under VMS."
- (if (memq system-type '(axp-vms vax-vms))
- (let ((n (file-name-nondirectory file))
- (d (file-name-directory file)))
- (if (string-match "^\\(\\[.*\\)\\.\\([^\\.]*\\)$" n)
- (concat d (substring n (match-beginning 1) (match-end 1)) "]")
- d))
- (file-name-directory file)))
-
-(defun he-file-directory-p (file)
- "Fix to make `file-directory-p' work for hippie-expand under VMS."
- (if (memq system-type '(vax-vms axp-vms))
- (or (file-directory-p file)
- (file-directory-p (concat file "[000000]")))
- (file-directory-p file)))
-
(defun he-concat-directory-file-name (dir-part name-part)
"Try to slam together two parts of a file specification, system dependently."
(cond ((null dir-part) name-part)
- ((memq system-type '(axp-vms vax-vms))
- (if (and (string= (substring dir-part -1) "]")
- (string= (substring name-part 0 2) "[."))
- (concat (substring dir-part 0 -1) (substring name-part 1))
- (concat dir-part name-part)))
((memq system-type '(ms-dos w32))
(if (and (string-match "\\\\" dir-part)
(not (string-match "/" dir-part))
View
2 lisp/international/latexenc.el
@@ -63,8 +63,6 @@
("cp852" . cp852) ; IBM code page 852
("cp858" . cp858) ; IBM code page 850 but with a euro symbol
("cp865" . cp865) ; IBM code page 865
- ;; The DECMultinational charaterset used by the OpenVMS system
- ;; ("decmulti" . undecided)
("latin1" . iso-8859-1)
("latin2" . iso-8859-2)
("latin3" . iso-8859-3)
View
2 lisp/international/mule.el
@@ -1662,7 +1662,7 @@ This is used for loading and byte-compiling Emacs Lisp files.")
(defun auto-coding-alist-lookup (filename)
"Return the coding system specified by `auto-coding-alist' for FILENAME."
(let ((alist auto-coding-alist)
- (case-fold-search (memq system-type '(vax-vms windows-nt ms-dos cygwin)))
+ (case-fold-search (memq system-type '(windows-nt ms-dos cygwin)))
coding-system)
(while (and alist (not coding-system))
(if (string-match (car (car alist)) filename)
View
14 lisp/loadup.el
@@ -166,9 +166,6 @@
(message "%s" (garbage-collect))
(load "replace")
-(if (eq system-type 'vax-vms)
- (progn
- (load "vmsproc")))
(load "buff-menu")
(if (fboundp 'x-create-frame)
@@ -187,9 +184,6 @@
(message "%s" (garbage-collect))
-(if (eq system-type 'vax-vms)
- (progn
- (load "vms-patch")))
(if (eq system-type 'windows-nt)
(progn
(load "w32-vars")
@@ -230,7 +224,7 @@
;doc strings kept in the DOC file rather than in core,
;you may load them with a "site-load.el" file.
;But you must also cause them to be scanned when the DOC file
-;is generated. For VMS, you must edit ../vms/makedoc.com.
+;is generated.
;For other systems, you must edit ../src/Makefile.in.
(if (load "site-load" t)
(garbage-collect))
@@ -341,11 +335,7 @@
(if (or (member (nth 3 command-line-args) '("dump" "bootstrap"))
(member (nth 4 command-line-args) '("dump" "bootstrap")))
- (if (eq system-type 'vax-vms)
- (progn
- (message "Dumping data as file temacs.dump")
- (dump-emacs "temacs.dump" "temacs")
- (kill-emacs))
+ (progn
(if (memq system-type '(ms-dos windows-nt cygwin))
(message "Dumping under the name emacs")
(message "Dumping under the name emacs"))
View
2 lisp/ls-lisp.el
@@ -30,7 +30,7 @@
;; This file redefines the function `insert-directory' to implement it
;; directly from Emacs lisp, without running ls in a subprocess. It
;; is useful if you cannot afford to fork Emacs on a real memory UNIX,
-;; under VMS or other non-UNIX platforms if you don't have the ls
+;; or other non-UNIX platforms if you don't have the ls
;; program, or if you want a different format from what ls offers.
;; This function can use regexps instead of shell wildcards. If you
View
17 lisp/mail/feedmail.el
@@ -808,30 +808,21 @@ without having to answer no to the individual message prompts."
:type 'boolean)
-;; I provided a default for VMS because someone asked for it (the
-;; normal default doesn't work there), but, puh-lease!, it is a user
-;; definable option, so if you don't like the default, change it to
-;; whatever you want. I am unable to directly test the VMS goop
-;; provided here by levitte@lp.se (Richard Levitte - VMS Whacker).
(defcustom feedmail-queue-directory
- (if (memq system-type '(axp-vms vax-vms))
- (expand-file-name (concat (getenv "HOME") "[.MAIL.Q]"))
- (concat (getenv "HOME") "/mail/q"))
+ (concat (getenv "HOME") "/mail/q")
"*Name of a directory where messages will be queued.
Directory will be created if necessary. Should be a string that
-doesn't end with a slash. Default, except on VMS, is \"$HOME/mail/q\"."
+doesn't end with a slash. Default is \"$HOME/mail/q\"."
:group 'feedmail-queue
:type 'string
)
(defcustom feedmail-queue-draft-directory
- (if (memq system-type '(axp-vms vax-vms))
- (expand-file-name (concat (getenv "HOME") "[.MAIL.DRAFT]"))
- (concat (getenv "HOME") "/mail/draft"))
+ (concat (getenv "HOME") "/mail/draft")
"*Name of a directory where draft messages will be queued.
Directory will be created if necessary. Should be a string that
-doesn't end with a slash. Default, except on VMS, is \"$HOME/mail/draft\"."
+doesn't end with a slash. Default is \"$HOME/mail/draft\"."
:group 'feedmail-queue
:type 'string
)
View
2 lisp/minibuffer.el
@@ -1068,7 +1068,7 @@ specified by COMMON-SUBSTRING."
"Current predicate used by `read-file-name-internal'.")
(defcustom read-file-name-completion-ignore-case
- (if (memq system-type '(ms-dos windows-nt darwin macos vax-vms axp-vms))
+ (if (memq system-type '(ms-dos windows-nt darwin))
t nil)
"Non-nil means when reading a file name completion ignores case."
:group 'minibuffer
View
2 lisp/nxml/nxml-enc.el
@@ -32,7 +32,7 @@
;;; Code:
(defvar nxml-file-name-ignore-case
- (memq system-type '(vax-vms windows-nt)))
+ (memq system-type '(windows-nt)))
(defvar nxml-cached-file-name-auto-coding-regexp nil)
(defvar nxml-cached-auto-mode-alist nil)
View
270 lisp/obsolete/vms-patch.el
@@ -1,270 +0,0 @@
-;; -*- no-byte-compile: t -*-
-;; Not byte compiled because it uses functions that are not part of
-;; emacs, so it would generate unnecessary warnings.
-;;; vms-patch.el --- override parts of files.el for VMS
-
-;; Copyright (C) 1986, 1992, 2001, 2002, 2003, 2004,
-;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
-
-;; Maintainer: FSF
-;; Keywords: vms
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;;; Code:
-
-(defvar print-region-function)
-
-(setq auto-mode-alist (cons '(("\\.com\\'" . dcl-mode)) auto-mode-alist))
-
-;;; Functions that need redefinition
-
-;;; VMS file names are upper case, but buffer names are more
-;;; convenient in lower case.
-
-(defun create-file-buffer (filename)
- "Create a suitably named buffer for visiting FILENAME, and return it.
-FILENAME (sans directory) is used unchanged if that name is free;
-otherwise a string <2> or <3> or ... is appended to get an unused name."
- (generate-new-buffer (downcase (file-name-nondirectory filename))))
-
-;;; Given a string FN, return a similar name which is a valid VMS filename.
-;;; This is used to avoid invalid auto save file names.
-(defun make-valid-file-name (fn)
- (setq fn (copy-sequence fn))
- (let ((dot nil) (indx 0) (len (length fn)) chr)
- (while (< indx len)
- (setq chr (aref fn indx))
- (cond
- ((eq chr ?.) (if dot (aset fn indx ?_) (setq dot t)))
- ((not (or (and (>= chr ?a) (<= chr ?z)) (and (>= chr ?A) (<= chr ?Z))
- (and (>= chr ?0) (<= chr ?9))
- (eq chr ?$) (eq chr ?_) (and (eq chr ?-) (> indx 0))))
- (aset fn indx ?_)))
- (setq indx (1+ indx))))
- fn)
-
-(define-obsolete-function-alias 'make-legal-file-name 'make-valid-file-name "23.1")
-
-;;; Auto save filesnames start with _$ and end with $.
-
-(defun make-auto-save-file-name ()
- "Return file name to use for auto-saves of current buffer.
-This function does not consider `auto-save-visited-file-name';
-the caller should check that before calling this function.
-This is a separate function so that your `.emacs' file or the site's
-`site-init.el' can redefine it.
-See also `auto-save-file-name-p'."
- (if buffer-file-name
- (concat (file-name-directory buffer-file-name)
- "_$"
- (file-name-nondirectory buffer-file-name)
- "$")
- (expand-file-name (concat "_$_" (make-valid-file-name (buffer-name)) "$"))))
-
-(defun auto-save-file-name-p (filename)
- "Return t if FILENAME can be yielded by `make-auto-save-file-name'.
-FILENAME should lack slashes.
-This is a separate function so that your `.emacs' file or the site's
-`site-init.el' can redefine it."
- (string-match "^_\\$.*\\$" filename))
-
-;;;
-;;; This goes along with kepteditor.com which defines these logicals
-;;; If EMACS_COMMAND_ARGS is defined, it supersedes EMACS_FILE_NAME,
-;;; which is probably set up incorrectly anyway.
-;;; The function command-line-again is a kludge, but it does the job.
-;;;
-(defun vms-suspend-resume-hook ()
- "When resuming suspended Emacs, check for file to be found.
-If the logical name `EMACS_FILE_NAME' is defined, `find-file' that file."
- (let ((file (vms-system-info "LOGICAL" "EMACS_FILE_NAME"))
- (args (vms-system-info "LOGICAL" "EMACS_COMMAND_ARGS"))
- (line (vms-system-info "LOGICAL" "EMACS_FILE_LINE")))
- (if (not args)
- (if file
- (progn (find-file file)
- (if line (goto-line (string-to-number line)))))
- (cd (file-name-directory file))
- (vms-command-line-again))))
-
-(setq suspend-resume-hook 'vms-suspend-resume-hook)
-
-(defun vms-suspend-hook ()
- "Don't allow suspending if logical name `DONT_SUSPEND_EMACS' is defined."
- (if (vms-system-info "LOGICAL" "DONT_SUSPEND_EMACS")
- (error "Can't suspend this emacs"))
- nil)
-
-(setq suspend-hook 'vms-suspend-hook)
-
-;;;
-;;; A kludge that allows reprocessing of the command line. This is mostly
-;;; to allow a spawned VMS mail process to do something reasonable when
-;;; used in conjunction with the modifications to sysdep.c that allow
-;;; Emacs to attach to a "foster" parent.
-;;;
-(defun vms-command-line-again ()
- "Reprocess command line arguments. VMS specific.
-Command line arguments are initialized from the logical EMACS_COMMAND_ARGS
-which is defined by kepteditor.com. On VMS this allows attaching to a
-spawned Emacs and doing things like \"emacs -l myfile.el -f doit\""
- (let* ((args (downcase (vms-system-info "LOGICAL" "EMACS_COMMAND_ARGS")))
- (command-line-args (list "emacs"))
- (beg 0)
- (end 0)
- (len (length args))
- this-char)
- (if args
- (progn
-;;; replace non-printable stuff with spaces
- (while (< beg (length args))
- (if (or (> 33 (setq this-char (aref args beg)))
- (< 127 this-char))
- (aset args beg 32))
- (setq beg (1+ beg)))
- (setq beg (1- (length args)))
- (while (= 32 (aref args beg)) (setq beg (1- beg)))
- (setq args (substring args 0 (1+ beg)))
- (setq beg 0)
-;;; now start parsing args
- (while (< beg (length args))
- (while (and (< beg (length args))
- (or (> 33 (setq this-char (aref args beg)))
- (< 127 this-char))
- (setq beg (1+ beg))))
- (setq end (1+ beg))
- (while (and (< end (length args))
- (< 32 (setq this-char (aref args end)))
- (> 127 this-char))
- (setq end (1+ end)))
- (setq command-line-args (append
- command-line-args
- (list (substring args beg end))))
- (setq beg (1+ end)))
- (command-line)))))
-
-(defun vms-read-directory (dirname switches buffer)
- (save-excursion
- (set-buffer buffer)
- (subprocess-command-to-buffer
- (concat "DIRECTORY " switches " " dirname)
- buffer)
- (goto-char (point-min))
- ;; Remove all the trailing blanks.
- (while (search-forward " \n")
- (forward-char -1)
- (delete-horizontal-space))
- (goto-char (point-min))))
-
-(setq dired-listing-switches
- "/SIZE/DATE/OWNER/WIDTH=(FILENAME=32,SIZE=5)")
-
-(setq print-region-function
- (lambda (start end command ign1 ign2 ign3 &rest switches)
- (write-region start end "sys$login:delete-me.txt")
- (send-command-to-subprocess
- 1
- (concat command
- " sys$login:delete-me.txt/name=\"GNUprintbuffer\" "
- (mapconcat 'identity switches " "))
- nil nil nil)))
-
-;;;
-;;; Fuctions for using Emacs as a VMS Mail editor
-;;;
-(autoload 'vms-pmail-setup "vms-pmail"
- "Set up file assuming use by VMS Mail utility.
-The buffer is put into text-mode, auto-save is turned off and the
-following bindings are established.
-
-\\[vms-pmail-save-and-exit] vms-pmail-save-and-exit
-\\[vms-pmail-abort] vms-pmail-abort
-
-All other Emacs commands are still available."
- t)
-
-;;;
-;;; Filename handling in the minibuffer
-;;;
-(defun vms-magic-right-square-brace ()
- "\
-Insert a right square brace, but do other things first depending on context.
-During filename completion, when point is at the end of the line and the
-character before is not a right square brace, do one of three things before
-inserting the brace:
- - If there are already two left square braces preceding, do nothing special.
- - If there is a previous right-square-brace, convert it to dot.
- - If the character before is dot, delete it.
-Additionally, if the preceding chars are right-square-brace followed by
-either \"-\" or \"..\", strip one level of directory hierarchy."
- (interactive)
- (when (and minibuffer-completing-file-name
- (= (point) (point-max))
- (not (= 93 (char-before))))
- (cond
- ;; Avoid clobbering: user:[one.path][another.path
- ((search-backward "[" (field-beginning) t 2))
- ((search-backward "]" (field-beginning) t)
- (delete-char 1)
- (insert ".")
- (goto-char (point-max)))
- ((= ?. (char-before))
- (delete-char -1)))
- (goto-char (point-max))
- (let ((specs '(".." "-"))
- (pmax (point-max)))
- (while specs
- (let* ((up (car specs))
- (len (length up))
- (cut (- (point) len)))
- (when (and (< (1+ len) pmax)
- (= ?. (char-before cut))
- (string= up (buffer-substring cut (point))))
- (delete-char (- (1+ len)))
- (while (not (let ((c (char-before)))
- (or (= ?. c) (= 91 c))))
- (delete-char -1))
- (when (= ?. (char-before)) (delete-char -1))
- (setq specs nil)))
- (setq specs (cdr specs)))))
- (insert "]"))
-
-(defun vms-magic-colon ()
- "\
-Insert a colon, but do other things first depending on context.
-During filename completion, when point is at the end of the line
-and the line contains a right square brace, remove all characters
-from the beginning of the line up to and including such brace.
-This enables one to type a new filespec without having to delete
-the old one."
- (interactive)
- (when (and minibuffer-completing-file-name
- (= (point) (point-max))
- (search-backward "]" (field-beginning) t))
- (delete-region (field-beginning) (1+ (point)))
- (goto-char (point-max)))
- (insert ":"))
-
-(let ((m minibuffer-local-completion-map))
- (define-key m