summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorDan Nicolaescu <dann@ics.uci.edu>2008-01-06 00:56:56 +0000
committerDan Nicolaescu <dann@ics.uci.edu>2008-01-06 00:56:56 +0000
commitf3041af143f4ab74041fc918feee43aa8ac2da88 (patch)
treea84bdb93b8f941075b511480aa283e2847fbbcac /lisp
parent37d6e31370557ab868033dde113f11b54994e576 (diff)
downloademacs-f3041af143f4ab74041fc918feee43aa8ac2da88.tar.gz
* configure.in: Remove references to unsupported systems.
* notes/copyright: * MAINTAINERS: Remove references to files that have been removed. * os.texi (System Environment): Remove references to OSes that are not supported anymore. * PROBLEMS: * MACHINES: Remove references to systems not supported anymore. * makefile.w32-in: * Makefile.in: Remove references to Xenix. * gnus.el (gnus-use-long-file-name): Remove reference to xenix. * obsolete/x-apollo.el: Remove file for unsupported system. * term/x-win.el (vendor-specific-keysyms): Remove reference to Apollo. * progmodes/gud.el (gud-dgux-p): Remove. (dbx): Remove reference to dgux. * progmodes/ps-mode.el (ps-mode-print-function): * ps-print.el (ps-lp-system): * paths.el (rmail-spool-directory): * ls-lisp.el (ls-lisp-emulation): * lpr.el (lpr-lp-system): * dired.el (dired-chown-program): Remove references to dgux. * m/7300.h: * m/acorn.h: * m/alliant-2800.h: * m/alliant.h: * m/alliant1.h: * m/alliant4.h: * m/altos.h: * m/amdahl.h: * m/apollo.h: * m/att3b.h: * m/aviion-intel.h: * m/aviion.h: * m/celerity.h: * m/clipper.h: * m/cnvrgnt.h: * m/convex.h: * m/cydra5.h: * m/delta88k.h: * m/dpx2.h: * m/dual.h: * m/elxsi.h: * m/f301.h: * m/gould-np1.h: * m/gould.h: * m/i860.h: * m/ibmps2-aix.h: * m/ibmrt-aix.h: * m/ibmrt.h: * m/irist.h: * m/is386.h: * m/isi-ov.h: * m/mega68.h: * m/mg1.h: * m/news-r6.h: * m/news-risc.h: * m/news.h: * m/nh3000.h: * m/nh4000.h: * m/ns16000.h: * m/ns32000.h: * m/nu.h: * m/orion.h: * m/orion105.h: * m/paragon.h: * m/pfa50.h: * m/plexus.h: * m/pyramid.h: * m/pyrmips.h: * m/sh3el.h: * m/sps7.h: * m/sr2k.h: * m/stride.h: * m/sun1.h: * m/sun2.h: * m/sun3-68881.h: * m/sun3-fpa.h: * m/sun3-soft.h: * m/sun3.h: * m/sun386.h: * m/symmetry.h: * m/tad68k.h: * m/tahoe.h: * m/targon31.h: * m/tek4300.h: * m/tekxd88.h: * m/tower32.h: * m/tower32v3.h: * m/ustation.h: * m/wicat.h: * m/xps100.h: * s/cxux.h: * s/cxux7.h: * s/dgux.h: * s/dgux4.h: * s/dgux5-4-3.h: * s/dgux5-4r2.h: * s/esix.h: * s/esix5r4.h: * s/hiuxmpp.h: * s/hiuxwe2.h: * s/iris3-5.h: * s/iris3-6.h: * s/isc2-2.h: * s/isc3-0.h: * s/isc4-0.h: * s/isc4-1.h: * s/newsos5.h: * s/newsos6.h: * s/osf1.h: * s/osf5-0.h: * s/riscix1-1.h: * s/riscix12.h: * s/sco4.h: * s/sco5.h: * s/sunos4-0.h: * s/sunos4-1.h: * s/sunos413.h: * s/sunos4shr.h: * s/umax.h: * s/unipl5-2.h: * s/xenix.h: * cxux-crt0.s: * unexapollo.c: * unexconvex.c: * unexenix.c: * unexsni.c: Remove files for systems no longer supported. * m/intel386.h: Remove references to unsupported systems. * w32.c (get_emacs_configuration): Remove reference to i860. * sysdep.c: Remove dead code.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog17
-rw-r--r--lisp/dired.el2
-rw-r--r--lisp/gnus/ChangeLog4
-rw-r--r--lisp/gnus/gnus.el2
-rw-r--r--lisp/lpr.el2
-rw-r--r--lisp/ls-lisp.el2
-rw-r--r--lisp/obsolete/x-apollo.el98
-rw-r--r--lisp/paths.el2
-rw-r--r--lisp/progmodes/gud.el7
-rw-r--r--lisp/progmodes/ps-mode.el2
-rw-r--r--lisp/ps-print.el2
-rw-r--r--lisp/term/x-win.el25
12 files changed, 29 insertions, 136 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 910e3a8c63c..9665c6cd561 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,20 @@
+2008-01-06 Dan Nicolaescu <dann@ics.uci.edu>
+
+ * obsolete/x-apollo.el: Remove file for unsupported system.
+
+ * term/x-win.el (vendor-specific-keysyms): Remove reference to
+ Apollo.
+
+ * progmodes/gud.el (gud-dgux-p): Remove.
+ (dbx): Remove reference to dgux.
+
+ * progmodes/ps-mode.el (ps-mode-print-function):
+ * ps-print.el (ps-lp-system):
+ * paths.el (rmail-spool-directory):
+ * ls-lisp.el (ls-lisp-emulation):
+ * lpr.el (lpr-lp-system):
+ * dired.el (dired-chown-program): Remove references to dgux.
+
2008-01-05 Stefan Monnier <monnier@iro.umontreal.ca>
* vc.el (vc-process-sentinel): Fix apparent typo.
diff --git a/lisp/dired.el b/lisp/dired.el
index 51067e46001..b9a360a6e91 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -70,7 +70,7 @@ If nil, `dired-listing-switches' is used.")
;;;###autoload
(defvar dired-chown-program
- (if (memq system-type '(hpux dgux usg-unix-v irix linux gnu/linux cygwin))
+ (if (memq system-type '(hpux usg-unix-v irix linux gnu/linux cygwin))
"chown"
(if (file-exists-p "/usr/sbin/chown")
"/usr/sbin/chown"
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index a6b43d7831e..91063c2a974 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2008-01-06 Dan Nicolaescu <dann@ics.uci.edu>
+
+ * gnus.el (gnus-use-long-file-name): Remove reference to xenix.
+
2007-12-28 Reiner Steib <Reiner.Steib@gmx.de>
* message.el (message-send-mail-function): Increase custom version.
diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index fc76fce86d7..36066e82166 100644
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -1522,7 +1522,7 @@ If it is nil, no confirmation is required."
:type '(choice (const :tag "No limit" nil)
integer))
-(defcustom gnus-use-long-file-name (not (memq system-type '(usg-unix-v xenix)))
+(defcustom gnus-use-long-file-name (not (memq system-type '(usg-unix-v)))
"*Non-nil means that the default name of a file to save articles in is the group name.
If it's nil, the directory form of the group name is used instead.
diff --git a/lisp/lpr.el b/lisp/lpr.el
index 4df98d6d751..721657a095f 100644
--- a/lisp/lpr.el
+++ b/lisp/lpr.el
@@ -37,7 +37,7 @@
;;;###autoload
(defvar lpr-lp-system
- (memq system-type '(usg-unix-v dgux hpux irix)))
+ (memq system-type '(usg-unix-v hpux irix)))
(defgroup lpr nil
diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index a016b8369bf..0c387c34a0c 100644
--- a/lisp/ls-lisp.el
+++ b/lisp/ls-lisp.el
@@ -75,7 +75,7 @@
(cond ((eq system-type 'macos) 'MacOS)
;; ((eq system-type 'windows-nt) 'MS-Windows)
((memq system-type
- '(hpux dgux usg-unix-v unisoft-unix rtu irix berkeley-unix))
+ '(hpux usg-unix-v unisoft-unix irix berkeley-unix))
'UNIX)) ; very similar to GNU
;; Anything else defaults to nil, meaning GNU.
"*Platform to emulate: GNU (default), MacOS, MS-Windows, UNIX.
diff --git a/lisp/obsolete/x-apollo.el b/lisp/obsolete/x-apollo.el
deleted file mode 100644
index f06f793dc94..00000000000
--- a/lisp/obsolete/x-apollo.el
+++ /dev/null
@@ -1,98 +0,0 @@
-;;; x-apollo.el --- Apollo support functions
-
-;; Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005,
-;; 2006, 2007 Free Software Foundation, Inc.
-
-;; 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, 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; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
-
-;;; Commentary:
-
-;;; Code:
-
-(defun apollo-kill-entire-line ()
- "Kill the entire line containing point."
- (interactive)
- (beginning-of-line)
- (kill-line 1))
-
-(defun apollo-scroll-window-right ()
- "Scroll window to right ten columns."
- (interactive)
- (scroll-left 10))
-
-(defun apollo-scroll-window-left ()
- "Scroll window to left ten columns."
- (interactive)
- (scroll-right 10))
-
-(defun apollo-scroll-window-forward-line ()
- "Move window forward one line leaving cursor at position in window."
- (interactive)
- (scroll-up 1))
-
-(defun apollo-scroll-window-backward-line ()
- "Move window backward one line leaving cursor at position in window."
- (interactive)
- (scroll-down 1))
-
-;;; Define and Enable the Function Key Bindings.
-
-(global-set-key [S-tab] "\C-i") ;Shift TAB
-(global-set-key [C-tab] "\C-i") ;Control TAB
-(global-set-key [S-return] "\C-m") ;Shift RET
-(global-set-key [C-return] "\C-m") ;Control RET
-(global-set-key [linedel] 'apollo-kill-entire-line) ;LINE DEL
-(global-set-key [chardel] 'delete-char) ;CHAR DEL
-(global-set-key [leftbar] 'beginning-of-line) ;LEFT BAR ARROW
-(global-set-key [rightbar] 'end-of-line) ;RIGHT BAR ARROW
-(global-set-key [leftbox] 'apollo-scroll-window-left) ;LEFT BOX ARROW
-(global-set-key [rightbox] 'apollo-scroll-window-right) ;RIGHT BOX ARROW
-(global-set-key [S-up] 'apollo-scroll-window-backward-line) ;Shift UP ARROW
-(global-set-key [S-down] 'apollo-scroll-window-forward-line) ;Shift DOWN ARROW
-(global-set-key [select] 'set-mark-command) ;MARK
-(global-set-key [S-insert] 'overwrite-mode) ;INS MODE
-(global-set-key [S-linedel] 'yank) ;Shift LINE DEL
-(global-set-key [S-chardel] 'delete-char) ;Shift CHAR DEL
-(global-set-key [copy] 'copy-region-as-kill) ;COPY
-(global-set-key [S-cut] 'kill-region) ;CUT
-(global-set-key [paste] 'yank) ;PASTE
-(global-set-key [S-undo] 'undo) ;UNDO
-(global-set-key [S-left] 'backward-word) ;Shift LEFT ARROW
-(global-set-key [S-right] 'forward-word) ;Shift RIGHT ARROW
-(global-set-key [upbox] 'scroll-down) ;UP BOX ARROW
-(global-set-key [S-upbox] 'beginning-of-buffer) ;Shift UP BOX ARROW
-(global-set-key [downbox] 'scroll-up) ;DOWN BOX ARROW
-(global-set-key [S-downbox] 'end-of-buffer) ;Shift DOWN BOX ARROW
-(global-set-key [S-redo] 'toggle-read-only) ;Shift AGAIN
-(global-set-key [exit] 'save-buffer) ;EXIT
-(global-set-key [S-cancel] 'kill-buffer) ;ABORT
-(global-set-key [S-save] 'save-buffer) ;SAVE
-(global-set-key [S-leftbar] 'beginning-of-buffer) ;Shift LEFT BAR ARROW
-(global-set-key [cmd] 'execute-extended-command) ;CMD
-(global-set-key [S-rightbar] 'end-of-buffer) ;Shift RIGHT BAR ARROW
-(global-set-key [next] 'other-window) ;NEXT WNDW
-(global-set-key [S-next] 'delete-window) ;Shift NEXT WNDW
-(global-set-key [read] 'find-file-read-only) ;READ
-(global-set-key [edit] 'find-file) ;EDIT
-(global-set-key [S-shell] 'shell) ;SHELL
-(global-set-key [S-help] 'manual-entry) ;HELP
-
-(provide 'x-apollo)
-
-;;; arch-tag: 4f3e86f4-557c-44b3-978e-144fc4dc812e
-;;; x-apollo.el ends here
diff --git a/lisp/paths.el b/lisp/paths.el
index 113bf2ec91e..d335c758a3d 100644
--- a/lisp/paths.el
+++ b/lisp/paths.el
@@ -153,7 +153,7 @@ The `ORGANIZATION' environment variable is used instead if defined.")
;; Many GNU/Linux systems use this name.
((file-exists-p "/var/spool/mail")
"/var/spool/mail/")
- ((memq system-type '(dgux hpux usg-unix-v unisoft-unix rtu irix))
+ ((memq system-type '(hpux usg-unix-v unisoft-unix irix))
"/usr/mail/")
(t "/usr/spool/mail/"))
"Name of directory used by system mailer for delivering new mail.
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 3c6736ac79b..5875e794828 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -1233,10 +1233,6 @@ a better solution in 6.1 upwards.")
(setq result (substring result 0 (match-beginning 0))))))
(or result "")))
-(defvar gud-dgux-p (string-match "-dgux" system-configuration)
- "Non-nil means to assume the interface approriate for DG/UX dbx.
-This was tested using R4.11.")
-
;; There are a couple of differences between DG's dbx output and normal
;; dbx output which make it nontrivial to integrate this into the
;; standard dbx-marker-filter (mainly, there are a different number of
@@ -1295,9 +1291,6 @@ and source-file directory for your debugger."
(gud-irix-p
(gud-common-init command-line 'gud-dbx-massage-args
'gud-irixdbx-marker-filter))
- (gud-dgux-p
- (gud-common-init command-line 'gud-dbx-massage-args
- 'gud-dguxdbx-marker-filter))
(t
(gud-common-init command-line 'gud-dbx-massage-args
'gud-dbx-marker-filter)))
diff --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el
index 6327a68302b..cc4e2a4f69b 100644
--- a/lisp/progmodes/ps-mode.el
+++ b/lisp/progmodes/ps-mode.el
@@ -109,7 +109,7 @@ When the figure is finished these values should be replaced."
(defcustom ps-mode-print-function
(lambda ()
(let ((lpr-switches nil)
- (lpr-command (if (memq system-type '(usg-unix-v dgux hpux irix))
+ (lpr-command (if (memq system-type '(usg-unix-v hpux irix))
"lp" "lpr")))
(lpr-buffer)))
"*Lisp function to print current buffer as PostScript."
diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 0e442f3b104..fdceffd9721 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -1489,7 +1489,7 @@ Please send all bug fixes and enhancements to
(defconst ps-windows-system
(memq system-type '(emx win32 w32 mswindows ms-dos windows-nt)))
(defconst ps-lp-system
- (memq system-type '(usg-unix-v dgux hpux irix)))
+ (memq system-type '(usg-unix-v hpux irix)))
(defun ps-xemacs-color-name (color)
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 66c5a272e1c..da1d158050c 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -1228,30 +1228,7 @@ XConsortium: rgb.txt,v 10.41 94/02/20 18:39:36 rws Exp")
"Return the appropriate value of `system-key-alist' for VENDOR.
VENDOR is a string containing the name of the X Server's vendor,
as returned by `x-server-vendor'."
- ;; Fixme: Drop Apollo now?
- (cond ((string-equal vendor "Apollo Computer Inc.")
- '((65280 . linedel)
- (65281 . chardel)
- (65282 . copy)
- (65283 . cut)
- (65284 . paste)
- (65285 . move)
- (65286 . grow)
- (65287 . cmd)
- (65288 . shell)
- (65289 . leftbar)
- (65290 . rightbar)
- (65291 . leftbox)
- (65292 . rightbox)
- (65293 . upbox)
- (65294 . downbox)
- (65295 . pop)
- (65296 . read)
- (65297 . edit)
- (65298 . save)
- (65299 . exit)
- (65300 . repeat)))
- ((or (string-equal vendor "Hewlett-Packard Incorporated")
+ (cond ((or (string-equal vendor "Hewlett-Packard Incorporated")
(string-equal vendor "Hewlett-Packard Company"))
'(( 168 . mute-acute)
( 169 . mute-grave)