aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/emulation
diff options
context:
space:
mode:
authorDan Nicolaescu2008-07-31 05:33:56 +0000
committerDan Nicolaescu2008-07-31 05:33:56 +0000
commit7c2fb837ec2f0e0a509f22ccc35f9b43476a6119 (patch)
tree7ec796ef1f109e43c8be2cc8cfb8dc579cfa8033 /lisp/emulation
parent69ab3201ca6f6ef1414d678fd9cb13dd4d6f6b95 (diff)
downloademacs-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.el3
-rw-r--r--lisp/emulation/viper-init.el5
-rw-r--r--lisp/emulation/viper-util.el3
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.
338The default tries to set this variable to work with Unix, Windows, 337The default tries to set this variable to work with Unix, Windows,
339OS/2, and VMS. 338and OS/2.
340 339
341However, if it doesn't work right for some types of Unix shells or some OS, 340However, if it doesn't work right for some types of Unix shells or some OS,
342the user should supply the appropriate function and set this variable to the 341the 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