diff options
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 b89b321a1f..75bdadd2d6 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." (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 diff --git a/lisp/emulation/viper-init.el b/lisp/emulation/viper-init.el index d1533b3a31..d8eaf253d1 100644 --- a/lisp/emulation/viper-init.el +++ b/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. diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el index d5e63dd998..9bb047183d 100644 --- a/lisp/emulation/viper-util.el +++ b/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 |