home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1137 < prev    next >
Encoding:
Internet Message Format  |  1990-12-28  |  24.3 KB
  1. From: howard@hasse.ericsson.se (Howard Gayle)
  2. Newsgroups: alt.sources
  3. Subject: GNU Emacs 8-bit mods part 10 of 12
  4. Message-ID: <1990Apr5.134202.9253@ericsson.se>
  5. Date: 5 Apr 90 13:42:02 GMT
  6.  
  7. *** ../18.55/src/ymakefile    Sat Jun 17 04:17:09 1989
  8. --- src/ymakefile    Thu Apr  5 09:18:45 1990
  9. ***************
  10. *** 1,5 ****
  11.   /* Makefile for GNU Emacs.
  12. !    Copyright (C) 1985, 1987, 1988 Free Software Foundation, Inc.
  13.   
  14.   This file is part of GNU Emacs.
  15.   
  16. --- 1,5 ----
  17.   /* Makefile for GNU Emacs.
  18. !    Copyright (C) 1985, 1987, 1988, 1990 Free Software Foundation, Inc.
  19.   
  20.   This file is part of GNU Emacs.
  21.   
  22. ***************
  23. *** 19,24 ****
  24. --- 19,28 ----
  25.   and this notice must be preserved on all copies.  */
  26.   
  27.   
  28. + /* Modified 1990 for 8-bit character support by Howard Gayle.
  29. +  *  See chartab.c for details. */
  30. + 
  31. + 
  32.   dot = .
  33.   /* on Xenix, replace double-dot below with $(dot)$(dot) */
  34.   lispdir = ../lisp/
  35. ***************
  36. *** 207,213 ****
  37.       emacs.o keyboard.o macros.o keymap.o sysdep.o \
  38.       buffer.o filelock.o insdel.o marker.o \
  39.       minibuf.o fileio.o dired.o filemode.o \
  40. !     cmds.o casefiddle.o indent.o search.o regex.o undo.o \
  41.       alloc.o data.o doc.o editfns.o callint.o \
  42.       eval.o fns.o print.o lread.o \
  43.       abbrev.o syntax.o UNEXEC mocklisp.o bytecode.o \
  44. --- 211,218 ----
  45.       emacs.o keyboard.o macros.o keymap.o sysdep.o \
  46.       buffer.o filelock.o insdel.o marker.o \
  47.       minibuf.o fileio.o dired.o filemode.o \
  48. !     cmds.o casefiddle.o etctab.o casetab.o chartab.o sorttab.o transtab.o \
  49. !     indent.o search.o regex.o undo.o \
  50.       alloc.o data.o doc.o editfns.o callint.o \
  51.       eval.o fns.o print.o lread.o \
  52.       abbrev.o syntax.o UNEXEC mocklisp.o bytecode.o \
  53. ***************
  54. *** 252,258 ****
  55.       ${lispdir}text-mode.elc ${lispdir}fill.elc \
  56.       ${lispdir}c-mode.elc ${lispdir}isearch.elc \
  57.       ${lispdir}replace.elc ${lispdir}abbrev.elc \
  58. !     ${lispdir}buff-menu.elc ${lispdir}subr.elc
  59.   
  60.   /* just to be sure the sh is used */
  61.   SHELL=/bin/sh
  62. --- 257,265 ----
  63.       ${lispdir}text-mode.elc ${lispdir}fill.elc \
  64.       ${lispdir}c-mode.elc ${lispdir}isearch.elc \
  65.       ${lispdir}replace.elc ${lispdir}abbrev.elc \
  66. !     ${lispdir}buff-menu.elc ${lispdir}subr.elc \
  67. !     ${lispdir}case-table.elc ${lispdir}char-table.elc \
  68. !     ${lispdir}sort-table.elc ${lispdir}trans-table.elc
  69.   
  70.   /* just to be sure the sh is used */
  71.   SHELL=/bin/sh
  72. ***************
  73. *** 367,374 ****
  74.       -rm -f alloca.o
  75.   /* Xenix, in particular, needs to run assembler via cc.  */
  76.       cc -c allocatem.s
  77. !     mv allocatem.o alloca.o
  78. !     rm allocatem.s allocatem.c
  79.   #endif /* HAVE_ALLOCA */
  80.   #endif /* not C_ALLOCA */
  81.   
  82. --- 374,381 ----
  83.       -rm -f alloca.o
  84.   /* Xenix, in particular, needs to run assembler via cc.  */
  85.       cc -c allocatem.s
  86. !     mv -f allocatem.o alloca.o
  87. !     rm -f allocatem.s allocatem.c
  88.   #endif /* HAVE_ALLOCA */
  89.   #endif /* not C_ALLOCA */
  90.   
  91. ***************
  92. *** 377,428 ****
  93.      it is so often changed in ways that do not require any recompilation
  94.      and so rarely changed in ways that do require any.  */
  95.   
  96. ! abbrev.o : abbrev.c buffer.h commands.h config.h 
  97. ! buffer.o : buffer.c syntax.h buffer.h commands.h window.h config.h 
  98.   callint.o : callint.c window.h commands.h buffer.h config.h 
  99.   callproc.o : callproc.c paths.h buffer.h commands.h config.h 
  100. ! casefiddle.o : casefiddle.c syntax.h commands.h buffer.h config.h 
  101.   cm.o : cm.c cm.h termhooks.h config.h
  102. ! cmds.o : cmds.c syntax.h buffer.h commands.h config.h 
  103.   crt0.o : crt0.c config.h
  104.       $(CC) -c $(CFLAGS) C_SWITCH_ASM crt0.c
  105. ! dired.o : dired.c commands.h buffer.h config.h 
  106. ! dispnew.o : dispnew.c commands.h window.h buffer.h dispextern.h termchar.h termopts.h cm.h config.h
  107.   doc.o : doc.c buffer.h config.h paths.h
  108.   doprnt.o : doprnt.c
  109. ! editfns.o : editfns.c window.h buffer.h config.h 
  110.   emacs.o : emacs.c commands.h config.h 
  111.   #ifdef MAINTAIN_ENVIRONMENT
  112.   environ.o : environ.c buffer.h commands.h config.h
  113.   #endif MAINTAIN_ENVIRONMENT
  114. ! fileio.o : fileio.c window.h buffer.h config.h 
  115.   filelock.o : filelock.c buffer.h paths.h config.h
  116.   filemode.o : filemode.c 
  117. ! indent.o : indent.c window.h indent.h buffer.h config.h termchar.h termopts.h
  118.   insdel.o : insdel.c window.h buffer.h config.h 
  119. ! keyboard.o : keyboard.c termchar.h termhooks.h termopts.h buffer.h commands.h window.h macros.h config.h 
  120.   keymap.o : keymap.c buffer.h commands.h config.h 
  121.   lastfile.o : lastfile.c 
  122.   macros.o : macros.c window.h buffer.h commands.h macros.h config.h
  123.   malloc.o : malloc.c config.h
  124.   marker.o : marker.c buffer.h config.h 
  125. ! minibuf.o : minibuf.c syntax.h window.h buffer.h commands.h config.h 
  126.   mocklisp.o : mocklisp.c buffer.h config.h
  127. ! process.o : process.c process.h buffer.h window.h termhooks.h termopts.h commands.h config.h 
  128.   regex.o : regex.c syntax.h buffer.h config.h regex.h 
  129.   scroll.o : scroll.c termchar.h config.h dispextern.h
  130. ! search.o : search.c regex.h commands.h buffer.h syntax.h config.h 
  131.   syntax.o : syntax.c syntax.h buffer.h commands.h config.h 
  132.   sysdep.o : sysdep.c config.h dispextern.h termhooks.h termchar.h termopts.h window.h
  133. ! term.o : term.c termchar.h termhooks.h termopts.h config.h cm.h
  134.   termcap.o : termcap.c config.h
  135.   terminfo.o : terminfo.c config.h
  136.   tparam.o : tparam.c config.h
  137.   undo.o : undo.c buffer.h commands.h undo.h config.h 
  138.   UNEXEC : config.h
  139. ! window.o : window.c indent.h commands.h window.h buffer.h config.h termchar.h
  140. ! xdisp.o : xdisp.c macros.h commands.h indent.h buffer.h dispextern.h termchar.h window.h config.h 
  141. ! xfns.o : xfns.c xterm.h window.h config.h
  142.   xmenu.o : xmenu.c xterm.h window.h config.h
  143.   xterm.o : xterm.c xterm.h termhooks.h termopts.h termchar.h \
  144.    dispextern.h config.h sink.h sinkmask.h
  145. --- 384,440 ----
  146.      it is so often changed in ways that do not require any recompilation
  147.      and so rarely changed in ways that do require any.  */
  148.   
  149. ! abbrev.o : abbrev.c buffer.h casetab.h chartab.h commands.h config.h transtab.h
  150. ! buffer.o : buffer.c syntax.h buffer.h chartab.h commands.h window.h config.h 
  151.   callint.o : callint.c window.h commands.h buffer.h config.h 
  152.   callproc.o : callproc.c paths.h buffer.h commands.h config.h 
  153. ! casefiddle.o : casefiddle.c syntax.h casetab.h commands.h buffer.h config.h transtab.h
  154. ! casetab.o : casetab.c buffer.h casetab.h etctab.h
  155. ! chartab.o : chartab.c buffer.h chartab.h etctab.h
  156.   cm.o : cm.c cm.h termhooks.h config.h
  157. ! cmds.o : cmds.c syntax.h buffer.h chartab.h commands.h config.h 
  158.   crt0.o : crt0.c config.h
  159.       $(CC) -c $(CFLAGS) C_SWITCH_ASM crt0.c
  160. ! dired.o : dired.c commands.h buffer.h config.h sorttab.h
  161. ! dispnew.o : dispnew.c chartab.h commands.h window.h buffer.h dispextern.h termchar.h termopts.h cm.h config.h
  162.   doc.o : doc.c buffer.h config.h paths.h
  163.   doprnt.o : doprnt.c
  164. ! editfns.o : editfns.c chartab.h window.h buffer.h config.h sorttab.h
  165.   emacs.o : emacs.c commands.h config.h 
  166.   #ifdef MAINTAIN_ENVIRONMENT
  167.   environ.o : environ.c buffer.h commands.h config.h
  168.   #endif MAINTAIN_ENVIRONMENT
  169. ! etctab.o : etctab.c etctab.h config.h
  170. ! fileio.o : fileio.c window.h buffer.h config.h transtab.h
  171.   filelock.o : filelock.c buffer.h paths.h config.h
  172.   filemode.o : filemode.c 
  173. ! indent.o : indent.c chartab.h window.h indent.h buffer.h config.h termchar.h termopts.h
  174.   insdel.o : insdel.c window.h buffer.h config.h 
  175. ! keyboard.o : keyboard.c casetab.h chartab.h termchar.h termhooks.h termopts.h buffer.h commands.h window.h macros.h transtab.h config.h 
  176.   keymap.o : keymap.c buffer.h commands.h config.h 
  177.   lastfile.o : lastfile.c 
  178.   macros.o : macros.c window.h buffer.h commands.h macros.h config.h
  179.   malloc.o : malloc.c config.h
  180.   marker.o : marker.c buffer.h config.h 
  181. ! minibuf.o : minibuf.c syntax.h window.h buffer.h casetab.h commands.h transtab.h config.h 
  182.   mocklisp.o : mocklisp.c buffer.h config.h
  183. ! process.o : process.c process.h buffer.h casetab.h window.h termhooks.h termopts.h commands.h transtab.h config.h 
  184.   regex.o : regex.c syntax.h buffer.h config.h regex.h 
  185.   scroll.o : scroll.c termchar.h config.h dispextern.h
  186. ! search.o : search.c regex.h commands.h buffer.h casetab.h chartab.h sorttab.h syntax.h config.h 
  187. ! sorttab.o : sorttab.c buffer.h etctab.h sorttab.h config.h
  188.   syntax.o : syntax.c syntax.h buffer.h commands.h config.h 
  189.   sysdep.o : sysdep.c config.h dispextern.h termhooks.h termchar.h termopts.h window.h
  190. ! term.o : term.c chartab.h termchar.h termhooks.h termopts.h config.h cm.h
  191.   termcap.o : termcap.c config.h
  192.   terminfo.o : terminfo.c config.h
  193.   tparam.o : tparam.c config.h
  194. + transtab.o : transtab.c buffer.h etctab.h transtab.h config.h
  195.   undo.o : undo.c buffer.h commands.h undo.h config.h 
  196.   UNEXEC : config.h
  197. ! window.o : window.c chartab.h indent.h commands.h window.h buffer.h config.h termchar.h
  198. ! xdisp.o : xdisp.c chartab.h macros.h commands.h indent.h buffer.h dispextern.h termchar.h window.h config.h 
  199. ! xfns.o : xfns.c dispextern.h xterm.h termchar.h window.h config.h
  200.   xmenu.o : xmenu.c xterm.h window.h config.h
  201.   xterm.o : xterm.c xterm.h termhooks.h termopts.h termchar.h \
  202.    dispextern.h config.h sink.h sinkmask.h
  203. ***************
  204. *** 437,443 ****
  205.   bytecode.o : bytecode.c buffer.h config.h 
  206.   data.o : data.c buffer.h config.h 
  207.   eval.o : eval.c commands.h config.h
  208. ! fns.o : fns.c buffer.h commands.h config.h
  209.   print.o : print.c process.h window.h buffer.h config.h 
  210.   lread.o : lread.c buffer.h paths.h config.h 
  211.   
  212. --- 449,455 ----
  213.   bytecode.o : bytecode.c buffer.h config.h 
  214.   data.o : data.c buffer.h config.h 
  215.   eval.o : eval.c commands.h config.h
  216. ! fns.o : fns.c buffer.h commands.h transtab.h config.h
  217.   print.o : print.c process.h window.h buffer.h config.h 
  218.   lread.o : lread.c buffer.h paths.h config.h 
  219.   
  220. *** ../18.55/lisp/keypad.el    Sun Jun 12 17:04:41 1988
  221. --- lisp/keypad.el    Thu Apr  5 09:21:24 1990
  222. ***************
  223. *** 1,5 ****
  224.   ;; Terminal-independent keypad and function key bindings.
  225. ! ;; Copyright (C) 1986 Free Software Foundation, Inc.
  226.   
  227.   ;; This file is part of GNU Emacs.
  228.   
  229. --- 1,5 ----
  230.   ;; Terminal-independent keypad and function key bindings.
  231. ! ;; Copyright (C) 1986, 1990 Free Software Foundation, Inc.
  232.   
  233.   ;; This file is part of GNU Emacs.
  234.   
  235. ***************
  236. *** 19,24 ****
  237. --- 19,28 ----
  238.   ;; and this notice must be preserved on all copies.
  239.   
  240.   
  241. + ;; Modified 1990 for 8-bit character support by Howard Gayle.
  242. + ;; See case-table.el for details.
  243. + 
  244. + 
  245.   ;; These keys are handled by a two-level process.
  246.   ;; The first level, terminal-dependent, maps input sequences
  247.   ;; into the function keys that they represent.
  248. ***************
  249. *** 43,48 ****
  250. --- 47,53 ----
  251.   ;; what binding you give to `a' in function-keymap.
  252.   
  253.   ;; a -- clear all tabs key
  254. + ;; b -- tabulation backward
  255.   ;; c -- erase key
  256.   ;; d -- down-arrow
  257.   ;; e -- enter key
  258. ***************
  259. *** 137,148 ****
  260.   An actual definition (such as a symbol) may be given in place of TOCHAR.
  261.   Generally, MAP is a prefix keymap which will be attached to a key
  262.   that is the common prefix sent by all function keys (often ESC O or ESC [)."
  263. !   (while translations
  264. !     (define-key map (car (car translations))
  265. !       (if (numberp (cdr (car translations)))
  266. !       (cons function-keymap (cdr (car translations)))
  267. !     (cdr (car translations))))
  268. !     (setq translations (cdr translations))))
  269.   
  270.   (defun function-key-sequence (char)
  271.     "Return key sequence for function key that on this terminal
  272. --- 142,154 ----
  273.   An actual definition (such as a symbol) may be given in place of TOCHAR.
  274.   Generally, MAP is a prefix keymap which will be attached to a key
  275.   that is the common prefix sent by all function keys (often ESC O or ESC [)."
  276. !   (let (b c)
  277. !     (while translations
  278. !       (setq b (car translations)) ; A (string . char) pair.
  279. !       (setq c (cdr b)) ; The char (or a function).
  280. !       (define-key map (car b)
  281. !         (if (numberp c) (lookup-key function-keymap (char-to-string c)) c))
  282. !       (setq translations (cdr translations)))))
  283.   
  284.   (defun function-key-sequence (char)
  285.     "Return key sequence for function key that on this terminal
  286. *** ../18.55/lisp/man.el    Wed Jul  5 02:27:21 1989
  287. --- lisp/man.el    Thu Apr  5 09:21:38 1990
  288. ***************
  289. *** 1,5 ****
  290.   ;; Read in and display parts of Unix manual.
  291. ! ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
  292.   
  293.   ;; This file is part of GNU Emacs.
  294.   
  295. --- 1,5 ----
  296.   ;; Read in and display parts of Unix manual.
  297. ! ;; Copyright (C) 1985, 1986, 1990 Free Software Foundation, Inc.
  298.   
  299.   ;; This file is part of GNU Emacs.
  300.   
  301. ***************
  302. *** 18,23 ****
  303. --- 18,50 ----
  304.   ;; file named COPYING.  Among other things, the copyright notice
  305.   ;; and this notice must be preserved on all copies.
  306.   
  307. + 
  308. + ;; Modified 1990 for 8-bit character support by Howard Gayle.
  309. + ;; See case-table.el for details.
  310. + 
  311. + (defun default-manual-entry-hook ()
  312. +    "Nuke underlining and overstriking (only by the same letter)."
  313. +    (goto-char (point-min))
  314. +    (while (search-forward "\b" nil t)
  315. +       (let* (
  316. +               (preceding (char-after (- (point) 2)))
  317. +         (following (following-char))
  318. +         )
  319. +      (cond
  320. +         ((= preceding following) ; x\bx
  321. +            (delete-char -2))
  322. +         ((= preceding ?\_) ;; _\b
  323. +            (delete-char -2))
  324. +         ((= following ?\_) ;; \b_
  325. +            (delete-region (1- (point)) (1+ (point))))
  326. +      )
  327. +       )
  328. +    )
  329. + )
  330. + 
  331. + (defvar manual-entry-hook 'default-manual-entry-hook
  332. +    "Hook run before displaying a manual entry.")
  333. + 
  334.   (defun manual-entry (topic &optional section)
  335.     "Display the Unix manual entry for TOPIC.
  336.   TOPIC is either the title of the entry, or has the form TITLE(SECTION)
  337. ***************
  338. *** 90,113 ****
  339.         (set-buffer-modified-p nil)
  340.         (message ""))))
  341.   
  342. ! ;; Hint: BS stands form more things than "back space"
  343.   (defun nuke-nroff-bs ()
  344.     (interactive "*")
  345. -   ;; Nuke underlining and overstriking (only by the same letter)
  346. -   (goto-char (point-min))
  347. -   (while (search-forward "\b" nil t)
  348. -     (let* ((preceding (char-after (- (point) 2)))
  349. -        (following (following-char)))
  350. -       (cond ((= preceding following)
  351. -          ;; x\bx
  352. -          (delete-char -2))
  353. -         ((= preceding ?\_)
  354. -          ;; _\b
  355. -          (delete-char -2))
  356. -         ((= following ?\_)
  357. -          ;; \b_
  358. -          (delete-region (1- (point)) (1+ (point)))))))
  359. - 
  360.     ;; Nuke headers: "MORE(1) UNIX Programmer's Manual MORE(1)"
  361.     (goto-char (point-min))
  362.     (while (re-search-forward "^ *\\([A-Za-z][-_A-Za-z0-9]*([0-9A-Z]+)\\).*\\1$" nil t)
  363. --- 117,125 ----
  364.         (set-buffer-modified-p nil)
  365.         (message ""))))
  366.   
  367. ! ;; Hint: BS stands for more things than "back space"
  368.   (defun nuke-nroff-bs ()
  369.     (interactive "*")
  370.     ;; Nuke headers: "MORE(1) UNIX Programmer's Manual MORE(1)"
  371.     (goto-char (point-min))
  372.     (while (re-search-forward "^ *\\([A-Za-z][-_A-Za-z0-9]*([0-9A-Z]+)\\).*\\1$" nil t)
  373. ***************
  374. *** 140,146 ****
  375.     ;; Nuke blanks lines at start.
  376.     (goto-char (point-min))
  377.     (skip-chars-forward "\n")
  378. !   (delete-region (point-min) (point)))
  379.   
  380.   
  381.   (defun insert-man-file (name)
  382. --- 152,160 ----
  383.     ;; Nuke blanks lines at start.
  384.     (goto-char (point-min))
  385.     (skip-chars-forward "\n")
  386. !   (delete-region (point-min) (point))
  387. !   (run-hooks 'manual-entry-hook))
  388. ! 
  389.   
  390.   
  391.   (defun insert-man-file (name)
  392. *** ../18.55/lisp/mlconvert.el    Mon May 30 23:44:45 1988
  393. --- lisp/mlconvert.el    Thu Apr  5 09:21:50 1990
  394. ***************
  395. *** 1,5 ****
  396.   ;; Convert buffer of Mocklisp code to real lisp.
  397. ! ;; Copyright (C) 1985 Free Software Foundation, Inc.
  398.   
  399.   ;; This file is part of GNU Emacs.
  400.   
  401. --- 1,5 ----
  402.   ;; Convert buffer of Mocklisp code to real lisp.
  403. ! ;; Copyright (C) 1985, 1990 Free Software Foundation, Inc.
  404.   
  405.   ;; This file is part of GNU Emacs.
  406.   
  407. ***************
  408. *** 18,23 ****
  409. --- 18,27 ----
  410.   ;; file named COPYING.  Among other things, the copyright notice
  411.   ;; and this notice must be preserved on all copies.
  412.   
  413. + 
  414. + ;; Modified 1990 for 8-bit character support by Howard Gayle.
  415. + ;; See case-table.el for details.
  416. + 
  417.   (defun convert-mocklisp-buffer ()
  418.     "Convert buffer of Mocklisp code to real Lisp that GNU Emacs can run."
  419.     (interactive)
  420. ***************
  421. *** 95,102 ****
  422.   (ml-expansion 'defun "ml-defun")
  423.   (ml-expansion 'if "ml-if")
  424.   (ml-expansion 'setq '(lambda ()
  425. !                (if (looking-at "setq[ \t\n]+buffer-modified-p")
  426. !                (replace-match "set-buffer-modified-p"))))
  427.   
  428.   (ml-expansion 'while '(lambda ()
  429.                (let ((end (progn (forward-sexp 2) (point-marker)))
  430. --- 99,112 ----
  431.   (ml-expansion 'defun "ml-defun")
  432.   (ml-expansion 'if "ml-if")
  433.   (ml-expansion 'setq '(lambda ()
  434. !    (cond
  435. !       ((looking-at "setq[ \t\n]+buffer-modified-p")
  436. !      (replace-match "set-buffer-modified-p"))
  437. !       ((looking-at "setq[ \t\n]+ctlchar-with-^[ \t\n]nil")
  438. !      (replace-match "buffer-ctl-arrow-off"))
  439. !       ((looking-at "setq[ \t\n]+ctlchar-with-^[ \t\n]t")
  440. !      (replace-match "buffer-ctl-arrow-on"))
  441. !    )))
  442.   
  443.   (ml-expansion 'while '(lambda ()
  444.                (let ((end (progn (forward-sexp 2) (point-marker)))
  445. *** ../18.55/lisp/rmail.el    Sun Jun 25 18:50:22 1989
  446. --- lisp/rmail.el    Thu Apr  5 09:22:07 1990
  447. ***************
  448. *** 1,5 ****
  449.   ;; "RMAIL" mail reader for Emacs.
  450. ! ;; Copyright (C) 1985, 1986, 1987, 1988 Free Software Foundation, Inc.
  451.   
  452.   ;; This file is part of GNU Emacs.
  453.   
  454. --- 1,5 ----
  455.   ;; "RMAIL" mail reader for Emacs.
  456. ! ;; Copyright (C) 1985, 1986, 1987, 1988, 1990 Free Software Foundation, Inc.
  457.   
  458.   ;; This file is part of GNU Emacs.
  459.   
  460. ***************
  461. *** 24,29 ****
  462. --- 24,33 ----
  463.   ;;   selection by dispatch table, summary by attributes and keywords,
  464.   ;;   expunging by dispatch table, sticky options for file commands.
  465.   
  466. + 
  467. + ;; Modified 1990 for 8-bit character support by Howard Gayle.
  468. + ;; See case-table.el for details.
  469. + 
  470.   (require 'mail-utils)
  471.   (provide 'rmail)
  472.   
  473. ***************
  474. *** 426,431 ****
  475. --- 430,436 ----
  476.             (delete-file (car delete-files))
  477.           (file-error nil))
  478.             (setq delete-files (cdr delete-files)))))
  479. +         (run-hooks 'rmail-get-new-mail-hook)
  480.       (if (= new-messages 0)
  481.           (progn (goto-char opoint)
  482.              (if (or file-name rmail-inbox-list)
  483. *** ../18.55/lisp/sendmail.el    Wed May 17 20:27:34 1989
  484. --- lisp/sendmail.el    Thu Apr  5 09:22:24 1990
  485. ***************
  486. *** 1,5 ****
  487.   ;; Mail sending commands for Emacs.
  488. ! ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
  489.   
  490.   ;; This file is part of GNU Emacs.
  491.   
  492. --- 1,5 ----
  493.   ;; Mail sending commands for Emacs.
  494. ! ;; Copyright (C) 1985, 1986, 1990 Free Software Foundation, Inc.
  495.   
  496.   ;; This file is part of GNU Emacs.
  497.   
  498. ***************
  499. *** 19,24 ****
  500. --- 19,28 ----
  501.   ;; and this notice must be preserved on all copies.
  502.   
  503.   
  504. + ;; Modified 1990 for 8-bit character support by Howard Gayle.
  505. + ;; See case-table.el for details.
  506. + 
  507. + 
  508.   (provide 'sendmail)
  509.   
  510.   ;(defconst mail-self-blind nil
  511. ***************
  512. *** 167,172 ****
  513. --- 171,177 ----
  514.   Otherwise any failure is reported in a message back to
  515.   the user from the mailer."
  516.     (interactive)
  517. +   (run-hooks 'mail-send-hook)
  518.     (message "Sending...")
  519.     (funcall send-mail-function)
  520.     (set-buffer-modified-p nil)
  521. *** ../18.55/lisp/sort.el    Mon May 30 23:53:34 1988
  522. --- lisp/sort.el    Thu Apr  5 09:22:43 1990
  523. ***************
  524. *** 1,5 ****
  525.   ;; Commands to sort text in an Emacs buffer.
  526. ! ;; Copyright (C) 1986, 1987 Free Software Foundation, Inc.
  527.   
  528.   ;; This file is part of GNU Emacs.
  529.   
  530. --- 1,5 ----
  531.   ;; Commands to sort text in an Emacs buffer.
  532. ! ;; Copyright (C) 1986, 1987, 1990 Free Software Foundation, Inc.
  533.   
  534.   ;; This file is part of GNU Emacs.
  535.   
  536. ***************
  537. *** 22,27 ****
  538. --- 22,31 ----
  539.   
  540.   ;; Original version of most of this contributed by Howie Kaye
  541.   
  542. + 
  543. + ;; Modified 1990 for 8-bit character support by Howard Gayle.
  544. + ;; See case-table.el for details.
  545. + 
  546.   (defun sort-subr (reverse nextrecfun endrecfun &optional startkeyfun endkeyfun)
  547.     "General text sorting routine to divide buffer into records and sort them.
  548.   Arguments are REVERSE NEXTRECFUN ENDRECFUN &optional STARTKEYFUN ENDKEYFUN.
  549. ***************
  550. *** 70,76 ****
  551.                    ((consp (car (car sort-lists)))
  552.                     'buffer-substring-lessp)
  553.                    (t
  554. !                   'string<)))
  555.             (sort sort-lists
  556.               (cond ((numberp (car (car sort-lists)))
  557.                      (function
  558. --- 74,80 ----
  559.                    ((consp (car (car sort-lists)))
  560.                     'buffer-substring-lessp)
  561.                    (t
  562. !                   'string-lessp*)))
  563.             (sort sort-lists
  564.               (cond ((numberp (car (car sort-lists)))
  565.                      (function
  566. ***************
  567. *** 83,89 ****
  568.                     (t
  569.                      (function
  570.                   (lambda (a b)
  571. !                   (string< (car a) (car b)))))))))
  572.       (if reverse (setq sort-lists (nreverse sort-lists)))
  573.       (message "Reordering buffer...")
  574.       (sort-reorder-buffer sort-lists old)))
  575. --- 87,93 ----
  576.                     (t
  577.                      (function
  578.                   (lambda (a b)
  579. !                   (string-lessp* (car a) (car b)))))))))
  580.       (if reverse (setq sort-lists (nreverse sort-lists)))
  581.       (message "Reordering buffer...")
  582.       (sort-reorder-buffer sort-lists old)))
  583. *** ../18.55/lisp/text-mode.el    Sat Jul  2 06:24:31 1988
  584. --- lisp/text-mode.el    Thu Apr  5 09:22:56 1990
  585. ***************
  586. *** 1,5 ****
  587.   ;; Text mode, and its ideosyncratic commands.
  588. ! ;; Copyright (C) 1985 Free Software Foundation, Inc.
  589.   
  590.   ;; This file is part of GNU Emacs.
  591.   
  592. --- 1,5 ----
  593.   ;; Text mode, and its ideosyncratic commands.
  594. ! ;; Copyright (C) 1985, 1990 Free Software Foundation, Inc.
  595.   
  596.   ;; This file is part of GNU Emacs.
  597.   
  598. ***************
  599. *** 19,24 ****
  600. --- 19,28 ----
  601.   ;; and this notice must be preserved on all copies.
  602.   
  603.   
  604. + ;; Modified 1990 for 8-bit character support by Howard Gayle.
  605. + ;; See case-table.el for details.
  606. + 
  607. + 
  608.   (defvar text-mode-syntax-table nil
  609.     "Syntax table used while in text mode.")
  610.   
  611. ***************
  612. *** 128,130 ****
  613. --- 132,136 ----
  614.         (indent-to 
  615.       (+ left-margin 
  616.          (/ (- fill-column left-margin line-length) 2))))))
  617. + 
  618. + (provide 'text-mode)
  619. *** ../18.55/lisp/term/x-win.el    Tue Jun 20 20:03:45 1989
  620. --- lisp/term/x-win.el    Thu Apr  5 09:23:30 1990
  621. ***************
  622. *** 18,23 ****
  623. --- 18,27 ----
  624.   ;; file named COPYING.  Among other things, the copyright notice
  625.   ;; and this notice must be preserved on all copies.
  626.   
  627. + 
  628. + ;; Modified 1990 for 8-bit character support by Howard Gayle.
  629. + ;; See ../case-table.el for details.
  630. + 
  631.   (defconst window-system-version window-system-version
  632.     "*Window system version number now in use.")
  633.   
  634. ***************
  635. *** 219,222 ****
  636. --- 223,239 ----
  637.         (substitute-key-definition 'suspend-emacs nil ctl-x-map)
  638.         ;; Not needed any more -- done in C.
  639.         ;; (if (not x-processed-defaults) (x-get-default-args))
  640. +       
  641. +       (if (fboundp 'get-glyf)
  642. +          (progn
  643. +             (require 'char-table)
  644. +             (standard-chars-8bit 160 255)
  645. +             (put-char-table-frameg (backslash-char-table) 537) ; Vertical bar.
  646. +             (put-char-table-frameg (ctl-arrow-char-table) 537)
  647. +             (put-char-table-truncg (backslash-char-table) 533) ; Left T.
  648. +             (put-char-table-truncg (ctl-arrow-char-table) 533)
  649. +             (put-char-table-wrapg  (backslash-char-table) 524) ; Upper right corner.
  650. +             (put-char-table-wrapg  (ctl-arrow-char-table) 524)
  651. +          )
  652. +       )
  653.   ))
  654. *** ../18.55/etc/NEWS    Mon Aug 22 19:38:55 1988
  655. --- etc/NEWS    Thu Apr  5 09:24:56 1990
  656. ***************
  657. *** 222,227 ****
  658. --- 222,232 ----
  659.   
  660.   Editing Changes in Emacs 18
  661.   
  662. + * Character sets can be customized.
  663. + 
  664. + A large class of 8-bit character sets can be edited, not just
  665. + ASCII.  See section 28.6 of the manual for details.
  666. + 
  667.   * Additional systems and machines are supported.
  668.   
  669.   GNU Emacs now runs on Vax VMS.  However, many facilities that are normally
  670. ***************
  671. *** 1590,1596 ****
  672.   ----------------------------------------------------------------------
  673.   Copyright information:
  674.   
  675. ! Copyright (C) 1988 Free Software Foundation, Inc.
  676.   
  677.      Permission is granted to anyone to make or distribute verbatim copies
  678.      of this document as received, in any medium, provided that the
  679. --- 1595,1601 ----
  680.   ----------------------------------------------------------------------
  681.   Copyright information:
  682.   
  683. ! Copyright (C) 1988, 1990 Free Software Foundation, Inc.
  684.   
  685.      Permission is granted to anyone to make or distribute verbatim copies
  686.      of this document as received, in any medium, provided that the
  687. ***************
  688. *** 1601,1606 ****
  689. --- 1606,1615 ----
  690.      of this document, or of portions of it,
  691.      under the above conditions, provided also that they
  692.      carry prominent notices stating who last changed them.
  693. + 
  694. + 
  695. +    Modified 1990 for 8-bit character support by Howard Gayle.
  696. +    See ../lisp/case-table.el for details.
  697.   
  698.   Local variables:
  699.   mode: text
  700. *** ../18.55/etc/makedoc.com    Sun Mar 15 19:52:15 1987
  701. --- etc/makedoc.com    Sun Jan 14 15:32:36 1990
  702. ***************
  703. *** 42,47 ****
  704. --- 42,49 ----
  705.   $ doit [lisp]fill.elc [lisp]isearch.elc
  706.   $ doit [lisp]replace.elc [lisp]abbrev.elc
  707.   $ doit [lisp]subr.elc [lisp]vmsproc.elc
  708. + $ doit [lisp]case-table.elc [lisp]char-table.elc
  709. + $ doit [lisp]sort-table.elc [lisp]trans-table.elc
  710.   $ doit 'rest'
  711.   $
  712.   $done:
  713.