diff options
| author | Dan Nicolaescu | 2008-07-31 05:33:56 +0000 |
|---|---|---|
| committer | Dan Nicolaescu | 2008-07-31 05:33:56 +0000 |
| commit | 7c2fb837ec2f0e0a509f22ccc35f9b43476a6119 (patch) | |
| tree | 7ec796ef1f109e43c8be2cc8cfb8dc579cfa8033 /lisp/emulation | |
| parent | 69ab3201ca6f6ef1414d678fd9cb13dd4d6f6b95 (diff) | |
| download | emacs-7c2fb837ec2f0e0a509f22ccc35f9b43476a6119.tar.gz emacs-7c2fb837ec2f0e0a509f22ccc35f9b43476a6119.zip | |
* 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.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/viper-ex.el | 3 | ||||
| -rw-r--r-- | lisp/emulation/viper-init.el | 5 | ||||
| -rw-r--r-- | lisp/emulation/viper-util.el | 3 |
3 files changed, 2 insertions, 9 deletions
diff --git a/lisp/emulation/viper-ex.el b/lisp/emulation/viper-ex.el index b89b321a1fd..75bdadd2d61 100644 --- a/lisp/emulation/viper-ex.el +++ b/lisp/emulation/viper-ex.el | |||
| @@ -331,12 +331,11 @@ Don't put `-c' here, as it is added automatically." | |||
| 331 | (cond (ex-unix-type-shell 'viper-glob-unix-files) | 331 | (cond (ex-unix-type-shell 'viper-glob-unix-files) |
| 332 | ((eq system-type 'emx) 'viper-glob-mswindows-files) ; OS/2 | 332 | ((eq system-type 'emx) 'viper-glob-mswindows-files) ; OS/2 |
| 333 | (viper-ms-style-os-p 'viper-glob-mswindows-files) ; Microsoft OS | 333 | (viper-ms-style-os-p 'viper-glob-mswindows-files) ; Microsoft OS |
| 334 | (viper-vms-os-p 'viper-glob-unix-files) ; VMS | ||
| 335 | (t 'viper-glob-unix-files) ; presumably UNIX | 334 | (t 'viper-glob-unix-files) ; presumably UNIX |
| 336 | ) | 335 | ) |
| 337 | "Expand the file spec containing wildcard symbols. | 336 | "Expand the file spec containing wildcard symbols. |
| 338 | The default tries to set this variable to work with Unix, Windows, | 337 | The default tries to set this variable to work with Unix, Windows, |
| 339 | OS/2, and VMS. | 338 | and OS/2. |
| 340 | 339 | ||
| 341 | However, if it doesn't work right for some types of Unix shells or some OS, | 340 | However, if it doesn't work right for some types of Unix shells or some OS, |
| 342 | the user should supply the appropriate function and set this variable to the | 341 | the user should supply the appropriate function and set this variable to the |
diff --git a/lisp/emulation/viper-init.el b/lisp/emulation/viper-init.el index d1533b3a311..d8eaf253d16 100644 --- a/lisp/emulation/viper-init.el +++ b/lisp/emulation/viper-init.el | |||
| @@ -69,11 +69,6 @@ | |||
| 69 | :type 'boolean | 69 | :type 'boolean |
| 70 | :tag "Is it Microsoft-made OS?" | 70 | :tag "Is it Microsoft-made OS?" |
| 71 | :group 'viper-misc) | 71 | :group 'viper-misc) |
| 72 | (defcustom viper-vms-os-p (memq system-type '(vax-vms axp-vms)) | ||
| 73 | "Tells if Emacs is running under VMS." | ||
| 74 | :type 'boolean | ||
| 75 | :tag "Is it VMS?" | ||
| 76 | :group 'viper-misc) | ||
| 77 | 72 | ||
| 78 | (defcustom viper-suppress-input-method-change-message nil | 73 | (defcustom viper-suppress-input-method-change-message nil |
| 79 | "If t, the message notifying about changes in the input method is not displayed. | 74 | "If t, the message notifying about changes in the input method is not displayed. |
diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el index d5e63dd9983..9bb047183dc 100644 --- a/lisp/emulation/viper-util.el +++ b/lisp/emulation/viper-util.el | |||
| @@ -397,11 +397,10 @@ Otherwise return the normal value." | |||
| 397 | ;;; Support for :e, :r, :w file globbing | 397 | ;;; Support for :e, :r, :w file globbing |
| 398 | 398 | ||
| 399 | ;; Glob the file spec. | 399 | ;; Glob the file spec. |
| 400 | ;; This function is designed to work under Unix. It might also work under VMS. | 400 | ;; This function is designed to work under Unix. |
| 401 | (defun viper-glob-unix-files (filespec) | 401 | (defun viper-glob-unix-files (filespec) |
| 402 | (let ((gshell | 402 | (let ((gshell |
| 403 | (cond (ex-unix-type-shell shell-file-name) | 403 | (cond (ex-unix-type-shell shell-file-name) |
| 404 | ((memq system-type '(vax-vms axp-vms)) "*dcl*") ; VAX VMS | ||
| 405 | (t "sh"))) ; probably Unix anyway | 404 | (t "sh"))) ; probably Unix anyway |
| 406 | (gshell-options | 405 | (gshell-options |
| 407 | ;; using cond in anticipation of further additions | 406 | ;; using cond in anticipation of further additions |