From: howard@hasse.ericsson.se (Howard Gayle) Newsgroups: alt.sources Subject: GNU Emacs 8-bit mods part 10 of 12 Message-ID: <1990Apr5.134202.9253@ericsson.se> Date: 5 Apr 90 13:42:02 GMT *** ../18.55/src/ymakefile Sat Jun 17 04:17:09 1989 --- src/ymakefile Thu Apr 5 09:18:45 1990 *************** *** 1,5 **** /* Makefile for GNU Emacs. ! Copyright (C) 1985, 1987, 1988 Free Software Foundation, Inc. This file is part of GNU Emacs. --- 1,5 ---- /* Makefile for GNU Emacs. ! Copyright (C) 1985, 1987, 1988, 1990 Free Software Foundation, Inc. This file is part of GNU Emacs. *************** *** 19,24 **** --- 19,28 ---- and this notice must be preserved on all copies. */ + /* Modified 1990 for 8-bit character support by Howard Gayle. + * See chartab.c for details. */ + + dot = . /* on Xenix, replace double-dot below with $(dot)$(dot) */ lispdir = ../lisp/ *************** *** 207,213 **** emacs.o keyboard.o macros.o keymap.o sysdep.o \ buffer.o filelock.o insdel.o marker.o \ minibuf.o fileio.o dired.o filemode.o \ ! cmds.o casefiddle.o indent.o search.o regex.o undo.o \ alloc.o data.o doc.o editfns.o callint.o \ eval.o fns.o print.o lread.o \ abbrev.o syntax.o UNEXEC mocklisp.o bytecode.o \ --- 211,218 ---- emacs.o keyboard.o macros.o keymap.o sysdep.o \ buffer.o filelock.o insdel.o marker.o \ minibuf.o fileio.o dired.o filemode.o \ ! cmds.o casefiddle.o etctab.o casetab.o chartab.o sorttab.o transtab.o \ ! indent.o search.o regex.o undo.o \ alloc.o data.o doc.o editfns.o callint.o \ eval.o fns.o print.o lread.o \ abbrev.o syntax.o UNEXEC mocklisp.o bytecode.o \ *************** *** 252,258 **** ${lispdir}text-mode.elc ${lispdir}fill.elc \ ${lispdir}c-mode.elc ${lispdir}isearch.elc \ ${lispdir}replace.elc ${lispdir}abbrev.elc \ ! ${lispdir}buff-menu.elc ${lispdir}subr.elc /* just to be sure the sh is used */ SHELL=/bin/sh --- 257,265 ---- ${lispdir}text-mode.elc ${lispdir}fill.elc \ ${lispdir}c-mode.elc ${lispdir}isearch.elc \ ${lispdir}replace.elc ${lispdir}abbrev.elc \ ! ${lispdir}buff-menu.elc ${lispdir}subr.elc \ ! ${lispdir}case-table.elc ${lispdir}char-table.elc \ ! ${lispdir}sort-table.elc ${lispdir}trans-table.elc /* just to be sure the sh is used */ SHELL=/bin/sh *************** *** 367,374 **** -rm -f alloca.o /* Xenix, in particular, needs to run assembler via cc. */ cc -c allocatem.s ! mv allocatem.o alloca.o ! rm allocatem.s allocatem.c #endif /* HAVE_ALLOCA */ #endif /* not C_ALLOCA */ --- 374,381 ---- -rm -f alloca.o /* Xenix, in particular, needs to run assembler via cc. */ cc -c allocatem.s ! mv -f allocatem.o alloca.o ! rm -f allocatem.s allocatem.c #endif /* HAVE_ALLOCA */ #endif /* not C_ALLOCA */ *************** *** 377,428 **** it is so often changed in ways that do not require any recompilation and so rarely changed in ways that do require any. */ ! abbrev.o : abbrev.c buffer.h commands.h config.h ! buffer.o : buffer.c syntax.h buffer.h commands.h window.h config.h callint.o : callint.c window.h commands.h buffer.h config.h callproc.o : callproc.c paths.h buffer.h commands.h config.h ! casefiddle.o : casefiddle.c syntax.h commands.h buffer.h config.h cm.o : cm.c cm.h termhooks.h config.h ! cmds.o : cmds.c syntax.h buffer.h commands.h config.h crt0.o : crt0.c config.h $(CC) -c $(CFLAGS) C_SWITCH_ASM crt0.c ! dired.o : dired.c commands.h buffer.h config.h ! dispnew.o : dispnew.c commands.h window.h buffer.h dispextern.h termchar.h termopts.h cm.h config.h doc.o : doc.c buffer.h config.h paths.h doprnt.o : doprnt.c ! editfns.o : editfns.c window.h buffer.h config.h emacs.o : emacs.c commands.h config.h #ifdef MAINTAIN_ENVIRONMENT environ.o : environ.c buffer.h commands.h config.h #endif MAINTAIN_ENVIRONMENT ! fileio.o : fileio.c window.h buffer.h config.h filelock.o : filelock.c buffer.h paths.h config.h filemode.o : filemode.c ! indent.o : indent.c window.h indent.h buffer.h config.h termchar.h termopts.h insdel.o : insdel.c window.h buffer.h config.h ! keyboard.o : keyboard.c termchar.h termhooks.h termopts.h buffer.h commands.h window.h macros.h config.h keymap.o : keymap.c buffer.h commands.h config.h lastfile.o : lastfile.c macros.o : macros.c window.h buffer.h commands.h macros.h config.h malloc.o : malloc.c config.h marker.o : marker.c buffer.h config.h ! minibuf.o : minibuf.c syntax.h window.h buffer.h commands.h config.h mocklisp.o : mocklisp.c buffer.h config.h ! process.o : process.c process.h buffer.h window.h termhooks.h termopts.h commands.h config.h regex.o : regex.c syntax.h buffer.h config.h regex.h scroll.o : scroll.c termchar.h config.h dispextern.h ! search.o : search.c regex.h commands.h buffer.h syntax.h config.h syntax.o : syntax.c syntax.h buffer.h commands.h config.h sysdep.o : sysdep.c config.h dispextern.h termhooks.h termchar.h termopts.h window.h ! term.o : term.c termchar.h termhooks.h termopts.h config.h cm.h termcap.o : termcap.c config.h terminfo.o : terminfo.c config.h tparam.o : tparam.c config.h undo.o : undo.c buffer.h commands.h undo.h config.h UNEXEC : config.h ! window.o : window.c indent.h commands.h window.h buffer.h config.h termchar.h ! xdisp.o : xdisp.c macros.h commands.h indent.h buffer.h dispextern.h termchar.h window.h config.h ! xfns.o : xfns.c xterm.h window.h config.h xmenu.o : xmenu.c xterm.h window.h config.h xterm.o : xterm.c xterm.h termhooks.h termopts.h termchar.h \ dispextern.h config.h sink.h sinkmask.h --- 384,440 ---- it is so often changed in ways that do not require any recompilation and so rarely changed in ways that do require any. */ ! abbrev.o : abbrev.c buffer.h casetab.h chartab.h commands.h config.h transtab.h ! buffer.o : buffer.c syntax.h buffer.h chartab.h commands.h window.h config.h callint.o : callint.c window.h commands.h buffer.h config.h callproc.o : callproc.c paths.h buffer.h commands.h config.h ! casefiddle.o : casefiddle.c syntax.h casetab.h commands.h buffer.h config.h transtab.h ! casetab.o : casetab.c buffer.h casetab.h etctab.h ! chartab.o : chartab.c buffer.h chartab.h etctab.h cm.o : cm.c cm.h termhooks.h config.h ! cmds.o : cmds.c syntax.h buffer.h chartab.h commands.h config.h crt0.o : crt0.c config.h $(CC) -c $(CFLAGS) C_SWITCH_ASM crt0.c ! dired.o : dired.c commands.h buffer.h config.h sorttab.h ! dispnew.o : dispnew.c chartab.h commands.h window.h buffer.h dispextern.h termchar.h termopts.h cm.h config.h doc.o : doc.c buffer.h config.h paths.h doprnt.o : doprnt.c ! editfns.o : editfns.c chartab.h window.h buffer.h config.h sorttab.h emacs.o : emacs.c commands.h config.h #ifdef MAINTAIN_ENVIRONMENT environ.o : environ.c buffer.h commands.h config.h #endif MAINTAIN_ENVIRONMENT ! etctab.o : etctab.c etctab.h config.h ! fileio.o : fileio.c window.h buffer.h config.h transtab.h filelock.o : filelock.c buffer.h paths.h config.h filemode.o : filemode.c ! indent.o : indent.c chartab.h window.h indent.h buffer.h config.h termchar.h termopts.h insdel.o : insdel.c window.h buffer.h config.h ! 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 keymap.o : keymap.c buffer.h commands.h config.h lastfile.o : lastfile.c macros.o : macros.c window.h buffer.h commands.h macros.h config.h malloc.o : malloc.c config.h marker.o : marker.c buffer.h config.h ! minibuf.o : minibuf.c syntax.h window.h buffer.h casetab.h commands.h transtab.h config.h mocklisp.o : mocklisp.c buffer.h config.h ! process.o : process.c process.h buffer.h casetab.h window.h termhooks.h termopts.h commands.h transtab.h config.h regex.o : regex.c syntax.h buffer.h config.h regex.h scroll.o : scroll.c termchar.h config.h dispextern.h ! search.o : search.c regex.h commands.h buffer.h casetab.h chartab.h sorttab.h syntax.h config.h ! sorttab.o : sorttab.c buffer.h etctab.h sorttab.h config.h syntax.o : syntax.c syntax.h buffer.h commands.h config.h sysdep.o : sysdep.c config.h dispextern.h termhooks.h termchar.h termopts.h window.h ! term.o : term.c chartab.h termchar.h termhooks.h termopts.h config.h cm.h termcap.o : termcap.c config.h terminfo.o : terminfo.c config.h tparam.o : tparam.c config.h + transtab.o : transtab.c buffer.h etctab.h transtab.h config.h undo.o : undo.c buffer.h commands.h undo.h config.h UNEXEC : config.h ! window.o : window.c chartab.h indent.h commands.h window.h buffer.h config.h termchar.h ! xdisp.o : xdisp.c chartab.h macros.h commands.h indent.h buffer.h dispextern.h termchar.h window.h config.h ! xfns.o : xfns.c dispextern.h xterm.h termchar.h window.h config.h xmenu.o : xmenu.c xterm.h window.h config.h xterm.o : xterm.c xterm.h termhooks.h termopts.h termchar.h \ dispextern.h config.h sink.h sinkmask.h *************** *** 437,443 **** bytecode.o : bytecode.c buffer.h config.h data.o : data.c buffer.h config.h eval.o : eval.c commands.h config.h ! fns.o : fns.c buffer.h commands.h config.h print.o : print.c process.h window.h buffer.h config.h lread.o : lread.c buffer.h paths.h config.h --- 449,455 ---- bytecode.o : bytecode.c buffer.h config.h data.o : data.c buffer.h config.h eval.o : eval.c commands.h config.h ! fns.o : fns.c buffer.h commands.h transtab.h config.h print.o : print.c process.h window.h buffer.h config.h lread.o : lread.c buffer.h paths.h config.h *** ../18.55/lisp/keypad.el Sun Jun 12 17:04:41 1988 --- lisp/keypad.el Thu Apr 5 09:21:24 1990 *************** *** 1,5 **** ;; Terminal-independent keypad and function key bindings. ! ;; Copyright (C) 1986 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. --- 1,5 ---- ;; Terminal-independent keypad and function key bindings. ! ;; Copyright (C) 1986, 1990 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. *************** *** 19,24 **** --- 19,28 ---- ;; and this notice must be preserved on all copies. + ;; Modified 1990 for 8-bit character support by Howard Gayle. + ;; See case-table.el for details. + + ;; These keys are handled by a two-level process. ;; The first level, terminal-dependent, maps input sequences ;; into the function keys that they represent. *************** *** 43,48 **** --- 47,53 ---- ;; what binding you give to `a' in function-keymap. ;; a -- clear all tabs key + ;; b -- tabulation backward ;; c -- erase key ;; d -- down-arrow ;; e -- enter key *************** *** 137,148 **** An actual definition (such as a symbol) may be given in place of TOCHAR. Generally, MAP is a prefix keymap which will be attached to a key that is the common prefix sent by all function keys (often ESC O or ESC [)." ! (while translations ! (define-key map (car (car translations)) ! (if (numberp (cdr (car translations))) ! (cons function-keymap (cdr (car translations))) ! (cdr (car translations)))) ! (setq translations (cdr translations)))) (defun function-key-sequence (char) "Return key sequence for function key that on this terminal --- 142,154 ---- An actual definition (such as a symbol) may be given in place of TOCHAR. Generally, MAP is a prefix keymap which will be attached to a key that is the common prefix sent by all function keys (often ESC O or ESC [)." ! (let (b c) ! (while translations ! (setq b (car translations)) ; A (string . char) pair. ! (setq c (cdr b)) ; The char (or a function). ! (define-key map (car b) ! (if (numberp c) (lookup-key function-keymap (char-to-string c)) c)) ! (setq translations (cdr translations))))) (defun function-key-sequence (char) "Return key sequence for function key that on this terminal *** ../18.55/lisp/man.el Wed Jul 5 02:27:21 1989 --- lisp/man.el Thu Apr 5 09:21:38 1990 *************** *** 1,5 **** ;; Read in and display parts of Unix manual. ! ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. --- 1,5 ---- ;; Read in and display parts of Unix manual. ! ;; Copyright (C) 1985, 1986, 1990 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. *************** *** 18,23 **** --- 18,50 ---- ;; file named COPYING. Among other things, the copyright notice ;; and this notice must be preserved on all copies. + + ;; Modified 1990 for 8-bit character support by Howard Gayle. + ;; See case-table.el for details. + + (defun default-manual-entry-hook () + "Nuke underlining and overstriking (only by the same letter)." + (goto-char (point-min)) + (while (search-forward "\b" nil t) + (let* ( + (preceding (char-after (- (point) 2))) + (following (following-char)) + ) + (cond + ((= preceding following) ; x\bx + (delete-char -2)) + ((= preceding ?\_) ;; _\b + (delete-char -2)) + ((= following ?\_) ;; \b_ + (delete-region (1- (point)) (1+ (point)))) + ) + ) + ) + ) + + (defvar manual-entry-hook 'default-manual-entry-hook + "Hook run before displaying a manual entry.") + (defun manual-entry (topic &optional section) "Display the Unix manual entry for TOPIC. TOPIC is either the title of the entry, or has the form TITLE(SECTION) *************** *** 90,113 **** (set-buffer-modified-p nil) (message "")))) ! ;; Hint: BS stands form more things than "back space" (defun nuke-nroff-bs () (interactive "*") - ;; Nuke underlining and overstriking (only by the same letter) - (goto-char (point-min)) - (while (search-forward "\b" nil t) - (let* ((preceding (char-after (- (point) 2))) - (following (following-char))) - (cond ((= preceding following) - ;; x\bx - (delete-char -2)) - ((= preceding ?\_) - ;; _\b - (delete-char -2)) - ((= following ?\_) - ;; \b_ - (delete-region (1- (point)) (1+ (point))))))) - ;; Nuke headers: "MORE(1) UNIX Programmer's Manual MORE(1)" (goto-char (point-min)) (while (re-search-forward "^ *\\([A-Za-z][-_A-Za-z0-9]*([0-9A-Z]+)\\).*\\1$" nil t) --- 117,125 ---- (set-buffer-modified-p nil) (message "")))) ! ;; Hint: BS stands for more things than "back space" (defun nuke-nroff-bs () (interactive "*") ;; Nuke headers: "MORE(1) UNIX Programmer's Manual MORE(1)" (goto-char (point-min)) (while (re-search-forward "^ *\\([A-Za-z][-_A-Za-z0-9]*([0-9A-Z]+)\\).*\\1$" nil t) *************** *** 140,146 **** ;; Nuke blanks lines at start. (goto-char (point-min)) (skip-chars-forward "\n") ! (delete-region (point-min) (point))) (defun insert-man-file (name) --- 152,160 ---- ;; Nuke blanks lines at start. (goto-char (point-min)) (skip-chars-forward "\n") ! (delete-region (point-min) (point)) ! (run-hooks 'manual-entry-hook)) ! (defun insert-man-file (name) *** ../18.55/lisp/mlconvert.el Mon May 30 23:44:45 1988 --- lisp/mlconvert.el Thu Apr 5 09:21:50 1990 *************** *** 1,5 **** ;; Convert buffer of Mocklisp code to real lisp. ! ;; Copyright (C) 1985 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. --- 1,5 ---- ;; Convert buffer of Mocklisp code to real lisp. ! ;; Copyright (C) 1985, 1990 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. *************** *** 18,23 **** --- 18,27 ---- ;; file named COPYING. Among other things, the copyright notice ;; and this notice must be preserved on all copies. + + ;; Modified 1990 for 8-bit character support by Howard Gayle. + ;; See case-table.el for details. + (defun convert-mocklisp-buffer () "Convert buffer of Mocklisp code to real Lisp that GNU Emacs can run." (interactive) *************** *** 95,102 **** (ml-expansion 'defun "ml-defun") (ml-expansion 'if "ml-if") (ml-expansion 'setq '(lambda () ! (if (looking-at "setq[ \t\n]+buffer-modified-p") ! (replace-match "set-buffer-modified-p")))) (ml-expansion 'while '(lambda () (let ((end (progn (forward-sexp 2) (point-marker))) --- 99,112 ---- (ml-expansion 'defun "ml-defun") (ml-expansion 'if "ml-if") (ml-expansion 'setq '(lambda () ! (cond ! ((looking-at "setq[ \t\n]+buffer-modified-p") ! (replace-match "set-buffer-modified-p")) ! ((looking-at "setq[ \t\n]+ctlchar-with-^[ \t\n]nil") ! (replace-match "buffer-ctl-arrow-off")) ! ((looking-at "setq[ \t\n]+ctlchar-with-^[ \t\n]t") ! (replace-match "buffer-ctl-arrow-on")) ! ))) (ml-expansion 'while '(lambda () (let ((end (progn (forward-sexp 2) (point-marker))) *** ../18.55/lisp/rmail.el Sun Jun 25 18:50:22 1989 --- lisp/rmail.el Thu Apr 5 09:22:07 1990 *************** *** 1,5 **** ;; "RMAIL" mail reader for Emacs. ! ;; Copyright (C) 1985, 1986, 1987, 1988 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. --- 1,5 ---- ;; "RMAIL" mail reader for Emacs. ! ;; Copyright (C) 1985, 1986, 1987, 1988, 1990 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. *************** *** 24,29 **** --- 24,33 ---- ;; selection by dispatch table, summary by attributes and keywords, ;; expunging by dispatch table, sticky options for file commands. + + ;; Modified 1990 for 8-bit character support by Howard Gayle. + ;; See case-table.el for details. + (require 'mail-utils) (provide 'rmail) *************** *** 426,431 **** --- 430,436 ---- (delete-file (car delete-files)) (file-error nil)) (setq delete-files (cdr delete-files))))) + (run-hooks 'rmail-get-new-mail-hook) (if (= new-messages 0) (progn (goto-char opoint) (if (or file-name rmail-inbox-list) *** ../18.55/lisp/sendmail.el Wed May 17 20:27:34 1989 --- lisp/sendmail.el Thu Apr 5 09:22:24 1990 *************** *** 1,5 **** ;; Mail sending commands for Emacs. ! ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. --- 1,5 ---- ;; Mail sending commands for Emacs. ! ;; Copyright (C) 1985, 1986, 1990 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. *************** *** 19,24 **** --- 19,28 ---- ;; and this notice must be preserved on all copies. + ;; Modified 1990 for 8-bit character support by Howard Gayle. + ;; See case-table.el for details. + + (provide 'sendmail) ;(defconst mail-self-blind nil *************** *** 167,172 **** --- 171,177 ---- Otherwise any failure is reported in a message back to the user from the mailer." (interactive) + (run-hooks 'mail-send-hook) (message "Sending...") (funcall send-mail-function) (set-buffer-modified-p nil) *** ../18.55/lisp/sort.el Mon May 30 23:53:34 1988 --- lisp/sort.el Thu Apr 5 09:22:43 1990 *************** *** 1,5 **** ;; Commands to sort text in an Emacs buffer. ! ;; Copyright (C) 1986, 1987 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. --- 1,5 ---- ;; Commands to sort text in an Emacs buffer. ! ;; Copyright (C) 1986, 1987, 1990 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. *************** *** 22,27 **** --- 22,31 ---- ;; Original version of most of this contributed by Howie Kaye + + ;; Modified 1990 for 8-bit character support by Howard Gayle. + ;; See case-table.el for details. + (defun sort-subr (reverse nextrecfun endrecfun &optional startkeyfun endkeyfun) "General text sorting routine to divide buffer into records and sort them. Arguments are REVERSE NEXTRECFUN ENDRECFUN &optional STARTKEYFUN ENDKEYFUN. *************** *** 70,76 **** ((consp (car (car sort-lists))) 'buffer-substring-lessp) (t ! 'string<))) (sort sort-lists (cond ((numberp (car (car sort-lists))) (function --- 74,80 ---- ((consp (car (car sort-lists))) 'buffer-substring-lessp) (t ! 'string-lessp*))) (sort sort-lists (cond ((numberp (car (car sort-lists))) (function *************** *** 83,89 **** (t (function (lambda (a b) ! (string< (car a) (car b))))))))) (if reverse (setq sort-lists (nreverse sort-lists))) (message "Reordering buffer...") (sort-reorder-buffer sort-lists old))) --- 87,93 ---- (t (function (lambda (a b) ! (string-lessp* (car a) (car b))))))))) (if reverse (setq sort-lists (nreverse sort-lists))) (message "Reordering buffer...") (sort-reorder-buffer sort-lists old))) *** ../18.55/lisp/text-mode.el Sat Jul 2 06:24:31 1988 --- lisp/text-mode.el Thu Apr 5 09:22:56 1990 *************** *** 1,5 **** ;; Text mode, and its ideosyncratic commands. ! ;; Copyright (C) 1985 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. --- 1,5 ---- ;; Text mode, and its ideosyncratic commands. ! ;; Copyright (C) 1985, 1990 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. *************** *** 19,24 **** --- 19,28 ---- ;; and this notice must be preserved on all copies. + ;; Modified 1990 for 8-bit character support by Howard Gayle. + ;; See case-table.el for details. + + (defvar text-mode-syntax-table nil "Syntax table used while in text mode.") *************** *** 128,130 **** --- 132,136 ---- (indent-to (+ left-margin (/ (- fill-column left-margin line-length) 2)))))) + + (provide 'text-mode) *** ../18.55/lisp/term/x-win.el Tue Jun 20 20:03:45 1989 --- lisp/term/x-win.el Thu Apr 5 09:23:30 1990 *************** *** 18,23 **** --- 18,27 ---- ;; file named COPYING. Among other things, the copyright notice ;; and this notice must be preserved on all copies. + + ;; Modified 1990 for 8-bit character support by Howard Gayle. + ;; See ../case-table.el for details. + (defconst window-system-version window-system-version "*Window system version number now in use.") *************** *** 219,222 **** --- 223,239 ---- (substitute-key-definition 'suspend-emacs nil ctl-x-map) ;; Not needed any more -- done in C. ;; (if (not x-processed-defaults) (x-get-default-args)) + + (if (fboundp 'get-glyf) + (progn + (require 'char-table) + (standard-chars-8bit 160 255) + (put-char-table-frameg (backslash-char-table) 537) ; Vertical bar. + (put-char-table-frameg (ctl-arrow-char-table) 537) + (put-char-table-truncg (backslash-char-table) 533) ; Left T. + (put-char-table-truncg (ctl-arrow-char-table) 533) + (put-char-table-wrapg (backslash-char-table) 524) ; Upper right corner. + (put-char-table-wrapg (ctl-arrow-char-table) 524) + ) + ) )) *** ../18.55/etc/NEWS Mon Aug 22 19:38:55 1988 --- etc/NEWS Thu Apr 5 09:24:56 1990 *************** *** 222,227 **** --- 222,232 ---- Editing Changes in Emacs 18 + * Character sets can be customized. + + A large class of 8-bit character sets can be edited, not just + ASCII. See section 28.6 of the manual for details. + * Additional systems and machines are supported. GNU Emacs now runs on Vax VMS. However, many facilities that are normally *************** *** 1590,1596 **** ---------------------------------------------------------------------- Copyright information: ! Copyright (C) 1988 Free Software Foundation, Inc. Permission is granted to anyone to make or distribute verbatim copies of this document as received, in any medium, provided that the --- 1595,1601 ---- ---------------------------------------------------------------------- Copyright information: ! Copyright (C) 1988, 1990 Free Software Foundation, Inc. Permission is granted to anyone to make or distribute verbatim copies of this document as received, in any medium, provided that the *************** *** 1601,1606 **** --- 1606,1615 ---- of this document, or of portions of it, under the above conditions, provided also that they carry prominent notices stating who last changed them. + + + Modified 1990 for 8-bit character support by Howard Gayle. + See ../lisp/case-table.el for details. Local variables: mode: text *** ../18.55/etc/makedoc.com Sun Mar 15 19:52:15 1987 --- etc/makedoc.com Sun Jan 14 15:32:36 1990 *************** *** 42,47 **** --- 42,49 ---- $ doit [lisp]fill.elc [lisp]isearch.elc $ doit [lisp]replace.elc [lisp]abbrev.elc $ doit [lisp]subr.elc [lisp]vmsproc.elc + $ doit [lisp]case-table.elc [lisp]char-table.elc + $ doit [lisp]sort-table.elc [lisp]trans-table.elc $ doit 'rest' $ $done: