NetNews Usenet Archive 1992 #20/NN_1992_20.iso/spool/alt/lucidem/help/414

Text File | 1992-09-11 | 4.4 KB | 219 lines

Newsgroups: alt.lucid-emacs.help
Path: sparky!uunet!spool.mu.edu!agate!boulder!news!grunwald
From: [e-mail] (Dirk Grunwald)
Subject: Changes for DECstation
Message-ID: <[e-mail]>
Sender: [e-mail] (The Daily Planet)
Nntp-Posting-Host: mumble.cs.colorado.edu
Reply-To: [e-mail]
Organization: University of Colorado at Boulder
Date: 11 Sep 92 16:05:39
Lines: 206


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)