From: grunwald@mumble.cs.colorado.edu (Dirk Grunwald)
Subject: Changes for DECstation
Reply-To: grunwald@foobar.cs.colorado.edu
Organization: University of Colorado at Boulder
Date: 11 Sep 92 16:05:39


I changed m-pmax.h to be...

-----------------------------------------------------------------------------
#include "m-mips.h"

#undef BIG_ENDIAN
#define LIBS_DEBUG

/* Supposedly the following will overcome a kernel bug.  */
#undef LD_SWITCH_MACHINE
#undef DATA_START
#define DATA_START 0x10000000
#define DATA_SEG_BITS 0x10000000

#define BROKEN_O_NONBLOCK

#define NEED_STRDUP
#define NEED_REALPATH
#define HAVE_DREM 
-----------------------------------------------------------------------------


..it's the last 3 that are useful.

Also, I had numerous problems preloading packages. I found the
following to be useful.

+ Reporting of error messages on loadup is broken. See appended
  site-load for an (unsatisfying) work-around [thanks to JWZ]
	

+ in loadup.el, move the load of "site-load" to be after the version
  increment. Some packages use the emacs-version string to decide
  between Lucid and normal emacs behaviors.

	(load "version.el")
	(load "bytecomp-runtime")
	(if (load "site-load" t)
	    (garbage-collect))

+ Here's the site-load I'm using..

;;
;;	site-load.el for SRL lucid emacs
;;
(defun loadup::load-list (doit list)
  (if doit
      (if (not (null list))
	  (let
		;;
		;; this makes 'print' work on loadup. Error still
		;; causes problems.
		;;
	      ((standard-output 'external-debugging-output))
	    (while list
	      (load (car list))
	      (print pure-bytes-used)
	      (setq list (cdr list))
	      )
	    (garbage-collect)
	    )
	)
    )
)

;;
;; Tree Dired - works fine with Ange-ftp
;;
(loadup::load-list 't
	'( "dired" "ange-ftp")
; "dired" "dired-cd" "dired-cwd"
;"dired-link" "dired-num"  "dired-rcs" "dired-trns"

)

(loadup::load-list 't
 '(
   "gnus" "gnusmail" "gnusmisc" "gnuspost"
   "nntp"  "gnus-lucid" "rnewspost"

;   "gnus-mark" "gnus-hide-quote"
) ; timezone 
 )

(loadup::load-list 't
'( 
  "vm-lucid" "vm-delete" "vm-edit" "vm-folder" "vm-group" 
   "vm-mark" "vm-message" "vm-misc" "vm-motion" "vm-page" "vm-save"
   "vm-search" "vm-summary" "vm-undo" "vm-vars" "vm-window"
 )
)

(loadup::load-list 't
		   '( 
		     "bbdb"
		     "bbdb-lucid"
		     "bbdb-com"
		     "bbdb-gnus"
		     "bbdb-vm"
		     "bbdb-mhe"
		     "sendmail"
		     "bbdb-lucid"
		     "mail-abbrevs"
		     "mail-extr"
		   )
)



;;
;; CMU shell
(loadup::load-list 't
 '( "comint" "shell" )
 )

(loadup::load-list 't
		   '( "bytecomp" "bytecomp-runtime" "byte-optimize")
)

;;
;; built-ins we use a lot...
;;
(loadup::load-list 't
		   '( 
		     ;;
		     ;; modes
		     ;;
		     "dabbrev"
		     "c++-mode" "c-style"
		     ;;
		     ;; Packages
		     ;;
		     "webster" "compile" "info"  "man"  
		     "apropos" "edebug" "info" "mh-e"
		     "font-lock"
		     ;;
		     ;; from prim
		     ;;
		     "rect"
					; "timer" -- Can't load timer
		     ;;
		     ;; utils
		     ;;
		     "backquote"
		     )
		   )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Localisms...
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq old-load-path load-path)

(defun loadup::add (path)
  (setq load-path (cons path load-path))
  )

(let* ((local-gnu "/srl/Lucid19/local"))
  (loadup::add (concat local-gnu "/VorTeX/"))
  (loadup::add (concat local-gnu "/SC-2.2/"))
  (loadup::add local-gnu)
  )

;;
;; VorTeX -- Load first because it used to define fill-paragraph
;; and we want to over-ride that with filladapt.elc
;;
(loadup::load-list 't
 '( 
   "TeX-mode" "TeX-custom" "TeX-misc" "TeX-match" "TeX-spell" 
   ;;    "BibTeX-abv" "BibTeX-misc" "BibTeX-mode" "BibTeX-ops"
   ;;    "TeX-bib"
   )
 )

;;
;; Supercite
;;
(loadup::load-list 't
 '( "sc" "sc-alist" "sc-electric" )
 )

;;
;; Random shit
;;
(loadup::load-list 't
 '( "crypt" "electric-minibuffer" "filladapt" ;  "ps-mode"
    )
 )

;;
;; Clean up after ourselves..
;;

(setq load-path old-load-path)

(makunbound 'old-load-path)
(fmakunbound 'loadup::load-list)
(fmakunbound 'loadup::add)
(garbage-collect)
(print pure-bytes-used 'external-debugging-output)
(garbage-collect)



x-gateway: rodan.UU.NET from help-lucid-emacs to alt.lucid-emacs.help; Tue, 15 Sep 1992 15:08:47 EDT
Date: Tue, 15 Sep 1992 12:08:11 -0700
From: serafini@ra-iris.arc.nasa.gov (David B. Serafini)
Subject: questions about lemacs
Newsgroups: alt.lucid-emacs.help