From: pds@lemming.webo.dg.com (Paul D. Smith)
Subject: New SysV system diffs for .el files
Organization: GNUs Not Usenet
Distribution: gnu
Date: Thu, 5 Nov 1992 05:48:37 GMT

Below are some diff's to add dgux-unix to various standard .el files
shipped with Emacs 18.59 which need to know the difference between BSD
and SysV systems (since DG/UX is a SysV system).

It might be worthwhile to add a new variable, like system-flavor,
which can be set to 'bsd or 'sysv, or something, so that new systems
don't have to be added continuously.  Just a thought... :)

                                                                paul
-----
 ------------------------------------------------------------------
| Paul D. Smith                          |    paul_smith@dg.com    |
| Data General Corp.                     | pds@lemming.webo.dg.com |
| Network Systems Development Division   |                         |
| Open Network Systems Development       |   "Pretty Damn S..."    |
 ------------------------------------------------------------------
-------------------------------------------------------------------------------
*** dired.el-dist	Wed Nov  4 16:27:21 1992
--- dired.el	Wed Oct 21 15:24:03 1992
***************
*** 564,570 ****
    (interactive "sChange to Owner: ")
    (let ((buffer-read-only nil)
  	(file (dired-get-filename)))
!     (call-process (if (memq system-type '(dgux-unix hpux usg-unix-v silicon-graphics-unix))
  		      "/bin/chown" "/etc/chown")
  		  nil nil nil owner file)
      (dired-redisplay file)))
--- 564,570 ----
    (interactive "sChange to Owner: ")
    (let ((buffer-read-only nil)
  	(file (dired-get-filename)))
!     (call-process (if (memq system-type '(hpux usg-unix-v silicon-graphics-unix))
  		      "/bin/chown" "/etc/chown")
  		  nil nil nil owner file)
      (dired-redisplay file)))
*** lpr.el-dist	Wed Oct 21 00:31:21 1992
--- lpr.el	Wed Nov  4 16:28:07 1992
***************
*** 22,28 ****
  ;  "*List of strings to pass as extra switch args to lpr when it is invoked.")
  
  (defvar lpr-command (if (memq system-type
! 			      '(usg-unix-v hpux silicon-graphics-unix))
  			"lp" "lpr")
    "Shell command for printing a file")
  
--- 22,28 ----
  ;  "*List of strings to pass as extra switch args to lpr when it is invoked.")
  
  (defvar lpr-command (if (memq system-type
! 			      '(usg-unix-v dgux-unix hpux silicon-graphics-unix))
  			"lp" "lpr")
    "Shell command for printing a file")
  
*** paths.el-dist	Wed Nov  4 16:24:07 1992
--- paths.el	Wed Nov  4 16:28:58 1992
***************
*** 55,61 ****
    "Name of user's primary mail file.")
  
  (defconst rmail-spool-directory
!   (if (memq system-type '(hpux usg-unix-v unisoft-unix rtu
  			       silicon-graphics-unix))
        "/usr/mail/"
      "/usr/spool/mail/")
--- 55,61 ----
    "Name of user's primary mail file.")
  
  (defconst rmail-spool-directory
!   (if (memq system-type '(dgux-unix hpux usg-unix-v unisoft-unix rtu
  			       silicon-graphics-unix))
        "/usr/mail/"
      "/usr/spool/mail/")
*** man.el-dist	Wed Nov  4 16:23:56 1992
--- man.el	Wed Nov  4 16:32:14 1992
***************
*** 122,128 ****
    ;;    Who is administering PCP to these corporate bozos?
    (goto-char (point-min))
    (while (re-search-forward
! 	   (cond ((eq system-type 'hpux)
  		  "^[ \t]*Hewlett-Packard\\(\\| Company\\)[ \t]*- [0-9]* -.*$")
  		 ((eq system-type 'usg-unix-v)
  		  "^ *Page [0-9]*.*(printed [0-9/]*)$")
--- 122,130 ----
    ;;    Who is administering PCP to these corporate bozos?
    (goto-char (point-min))
    (while (re-search-forward
! 	   (cond ((eq system-type 'dgux-unix)
! 		  "^[ \t]*Licensed material--.*Page [0-9]*$")
! 		 ((eq system-type 'hpux)
  		  "^[ \t]*Hewlett-Packard\\(\\| Company\\)[ \t]*- [0-9]* -.*$")
  		 ((eq system-type 'usg-unix-v)
  		  "^ *Page [0-9]*.*(printed [0-9/]*)$")

Newsgroups: gnu.emacs.bug