home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / utility / text / emacsdif.lha / emacs-18.58 / lisp-diffs < prev    next >
Encoding:
Text File  |  1992-05-17  |  3.6 KB  |  114 lines
  1. diff -C 3 emacs-18.58/lisp/loadup.el gnuemacs:lisp/loadup.el
  2. *** emacs-18.58/lisp/loadup.el    Wed Jan 09 23:01:30 1991
  3. --- gnuemacs:lisp/loadup.el    Sun Feb 23 00:37:53 1992
  4. ***************
  5. *** 23,33 ****
  6.   (garbage-collect)
  7.   (load "loaddefs.el")  ;Don't get confused if someone compiled loaddefs by mistake.
  8.   (garbage-collect)
  9. ! (load "simple")
  10.   (garbage-collect)
  11.   (load "help")
  12.   (garbage-collect)
  13. ! (load "files")
  14.   (garbage-collect)
  15.   (load "indent")
  16.   (load "window")
  17. --- 23,37 ----
  18.   (garbage-collect)
  19.   (load "loaddefs.el")  ;Don't get confused if someone compiled loaddefs by mistake.
  20.   (garbage-collect)
  21. ! (if (eq system-type 'amigados)
  22. !     (load "amiga-simple")
  23. !   (load "simple"))
  24.   (garbage-collect)
  25.   (load "help")
  26.   (garbage-collect)
  27. ! (if (eq system-type 'amigados)
  28. !     (load "amiga-files")
  29. !   (load "files"))
  30.   (garbage-collect)
  31.   (load "indent")
  32.   (load "window")
  33. ***************
  34. *** 62,67 ****
  35. --- 66,75 ----
  36.       (progn
  37.         (garbage-collect)
  38.         (load "vms-patch")))
  39. + (if (eq system-type 'amigados)
  40. +     (progn
  41. +       (garbage-collect)
  42. +       (load "amiga-init")))
  43.   
  44.   ;If you want additional libraries to be preloaded and their
  45.   ;doc strings kept in the DOC file rather than in core,
  46. ***************
  47. *** 135,140 ****
  48. --- 143,150 ----
  49.   
  50.   ;; Avoid error if user loads some more libraries now.
  51.   (setq purify-flag nil)
  52. + ;; Stop using malloc hunk even if not dumped!
  53. + (if (eq system-type 'amigados) (setq amiga-initialized 1))
  54.   
  55.   ;; For machines with CANNOT_DUMP defined in config.h,
  56.   ;; this file must be loaded each time Emacs is run.
  57. diff -C 3 emacs-18.58/lisp/startup.el gnuemacs:lisp/startup.el
  58. *** emacs-18.58/lisp/startup.el    Wed Jan 16 05:19:04 1991
  59. --- gnuemacs:lisp/startup.el    Wed Jan 29 14:09:30 1992
  60. ***************
  61. *** 111,119 ****
  62.       ;; Load user's init file, or load default one.
  63.       (condition-case error
  64.       (if init
  65. !         (progn (load (if (eq system-type 'vax-vms)
  66. !                  "sys$login:.emacs"
  67. !                  (concat "~" init "/.emacs"))
  68.                t t t)
  69.              (or inhibit-default-init
  70.                  (let ((inhibit-startup-message nil))
  71. --- 111,119 ----
  72.       ;; Load user's init file, or load default one.
  73.       (condition-case error
  74.       (if init
  75. !         (progn (load (cond ((eq system-type 'vax-vms) "sys$login:.emacs")
  76. !                    ((eq system-type 'amigados) "s:.emacs")
  77. !                    (t (concat "~" init "/.emacs")))
  78.                t t t)
  79.              (or inhibit-default-init
  80.                  (let ((inhibit-startup-message nil))
  81. ***************
  82. *** 127,132 ****
  83. --- 127,136 ----
  84.       (save-excursion
  85.         (set-buffer "*scratch*")
  86.         (funcall initial-major-mode)))
  87. +     ;; On Amiga, initialise clipboard
  88. +     (if (eq system-type 'amigados)
  89. +     (let ((clip (safe-amiga-paste)))
  90. +       (if clip (kill-add clip))))
  91.       ;; Load library for our terminal type.
  92.       ;; User init file can set term-file-prefix to nil to prevent this.
  93.       (and term-file-prefix (not noninteractive)
  94. diff -C 3 emacs-18.58/lisp/texinfmt.el gnuemacs:lisp/texinfmt.el
  95. *** emacs-18.58/lisp/texinfmt.el    Sun Dec 08 06:28:09 1991
  96. --- gnuemacs:lisp/texinfmt.el    Sun Mar 01 10:26:57 1992
  97. ***************
  98. *** 874,880 ****
  99.       (insert "\n* Menu:\n\n")
  100.       (setq opoint (point))
  101.       (texinfo-print-index nil indexelts)
  102. !     (if (eq system-type 'vax-vms) 
  103.       (texinfo-sort-region opoint (point))
  104.         (shell-command-on-region opoint (point) "sort -fd" 1))))
  105.   
  106. --- 874,880 ----
  107.       (insert "\n* Menu:\n\n")
  108.       (setq opoint (point))
  109.       (texinfo-print-index nil indexelts)
  110. !     (if (or (eq system-type 'amigados) (eq system-type 'vax-vms)) 
  111.       (texinfo-sort-region opoint (point))
  112.         (shell-command-on-region opoint (point) "sort -fd" 1))))
  113.   
  114.