home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / sfnet / atk / linux / 46 < prev    next >
Encoding:
Text File  |  1992-07-29  |  4.4 KB  |  116 lines
  1. Newsgroups: sfnet.atk.linux
  2. Path: sparky!uunet!mcsun!news.funet.fi!funic!makila
  3. From: makila@csc.fi (Niko Makila)
  4. Subject: Re: 8 bitin Emacs?
  5. Message-ID: <1992Jul30.103035.27078@nic.funet.fi>
  6. Sender: usenet@nic.funet.fi
  7. Nntp-Posting-Host: makila.csc.fi
  8. Reply-To: Niko.Makila@csc.fi
  9. Organization: Finnish University and Research Network (FUNET)
  10. References: <TIMO.KORVOLA.92Jul27171423@dopey.hut.fi>     <1992Jul27.181744.224@klaava.Helsinki.FI> <PEKKAY.92Jul28030647@moondawn.pp.fi>
  11. Distribution: sfnet
  12. Date: Thu, 30 Jul 92 10:30:35 GMT
  13. Lines: 101
  14.  
  15. pekkay@moondawn.pp.fi (Pekka Yrjola) writes:
  16.  
  17. >In article <1992Jul27.181744.224@klaava.Helsinki.FI> havia@klaava.Helsinki.FI (Jyrki Havia) writes:
  18.  
  19. >       N{ytt| ei ole ongelma, mutta 8-bittisten merkkien sy|tt|
  20. >       ON ongelma. Joko menet{t komennon meta-d jne., tai sy|t{t
  21. >       {{kk|set sis{{n meta-{ -kirjaimina. Kumpikaan ei kiva.
  22.  
  23. >Tuo ongelma esiintyy p{{tteelt{ kirjoitettessa. X11:n kanssa META-kommennot
  24. >ovat k{ytett{viss{. N{in ainakin 18.57:ll{ ja Epoch 4.0p2:lla. Edellytyksen{
  25. >on tietty, ett{ 8 bittiset on bindittu suoraan n{ppikseen.
  26.  
  27. Linuxista en tied{ mit{{n, mutta itsell{ni tuo 8-bittinen kirjoittelu
  28. toimii Emacsilla ihan hyvin niin X:ss{ kuin tavallisella p{{tteell{kin
  29. modeemin kautta (p{{te 8-bitin vt220-moodissa).  Emacsin versio on
  30. 18.58.  K{ytt{m{ni patchit l|ytyv{t nicist{ tiedostosta
  31. pub/gnu/emacs/emacs-18.58-8bit-patch.shar ja k{yt{n alta l|ytyv{{
  32. minor-moodia.
  33.  
  34. Kuten koodista luultavasti n{kyy, en tied{ juuri mit{{n elispist{.  Eli
  35. joku elispi{ osaava saa ihan mielell{{n parannella.
  36.  
  37.     //niko
  38.  
  39. ------------
  40.  
  41. ;;; Copyright (C) 1991, 1992 Niko Makila.
  42. ;;;
  43. ;;; Author: Niko Makila (makila@csc.fi)
  44. ;;;
  45. ;;; This program is free software; you can redistribute it and/or modify
  46. ;;; it under the terms of the GNU General Public License as published by
  47. ;;; the Free Software Foundation; either version 1, or (at your option)
  48. ;;; any later version.
  49. ;;;
  50. ;;; This program is distributed in the hope that it will be useful,
  51. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  52. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  53. ;;; GNU General Public License for more details.
  54. ;;;
  55. ;;; You should have received a copy of the GNU General Public License
  56. ;;; along with GNU Emacs; see the file COPYING.  If not, write to
  57. ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  58. ;;;
  59. ;;; $Id: nm-8bit-mode.el,v 1.3 1992/07/30 10:11:16 makila Exp $
  60.  
  61. ;; Add minor mode to minor mode alist.
  62. (defvar nm-8bit-mode nil "A flag for the eight bit mode.")
  63. (or (assq 'nm-8bit-mode minor-mode-alist)
  64.     (setq minor-mode-alist (cons '(nm-8bit-mode " 8bit") minor-mode-alist)))
  65.  
  66. ;; A few naming conventions.
  67. (fset 'nm-8bit-aumlaut "344")
  68. (fset 'nm-8bit-Aumlaut "304")
  69. (fset 'nm-8bit-oumlaut "366")
  70. (fset 'nm-8bit-Oumlaut "326")
  71. (fset 'nm-8bit-aring "345")
  72. (fset 'nm-8bit-Aring "305")
  73. (fset 'nm-8bit-leftcurly "{")
  74. (fset 'nm-8bit-rightcurly "}")
  75. (fset 'nm-8bit-leftbracket "[")
  76. (fset 'nm-8bit-rightbracket "]")
  77. (fset 'nm-8bit-bar "|")
  78. (fset 'nm-8bit-backslash "\\")
  79.  
  80. ;; Keymap should be buffer-local.
  81. (defvar nm-8bit-mode-map nil "")
  82. (make-variable-buffer-local 'nm-8bit-mode)
  83.  
  84. ;; The mode itself.
  85. (defun nm-8bit-mode (arg)
  86.   "Toggle 8bit mode.
  87. With arg, turn 8bit mode on iff arg is positive.
  88. 8bit mode is used to read and write eight bit characters.  You must have a
  89. terminal capable of doing that, of course (X, vt200 etc.)"
  90.   (interactive "P")
  91.   (prog1 (setq nm-8bit-mode
  92.           (if (null arg) (not nm-8bit-mode)
  93.         (> (prefix-numeric-value arg) 0))))
  94.   (cond (nm-8bit-mode
  95.      (setq nm-8bit-std-ctl-arrow ctl-arrow
  96.            ctl-arrow '8bit
  97.            nm-8bit-std-map (copy-keymap (current-local-map))
  98.            nm-8bit-mode-map (copy-keymap (current-local-map)))
  99.      (define-key nm-8bit-mode-map "}" 'nm-8bit-aring)
  100.      (define-key nm-8bit-mode-map "]" 'nm-8bit-Aring)
  101.      (define-key nm-8bit-mode-map "{" 'nm-8bit-aumlaut)
  102.      (define-key nm-8bit-mode-map "[" 'nm-8bit-Aumlaut)
  103.      (define-key nm-8bit-mode-map "|" 'nm-8bit-oumlaut)
  104.      (define-key nm-8bit-mode-map "\\" 'nm-8bit-Oumlaut)
  105.      (define-key nm-8bit-mode-map "\C-c7" 'nm-8bit-leftcurly)
  106.      (define-key nm-8bit-mode-map "\C-c8" 'nm-8bit-leftbracket)
  107.      (define-key nm-8bit-mode-map "\C-c9" 'nm-8bit-rightbracket)
  108.      (define-key nm-8bit-mode-map "\C-c0" 'nm-8bit-rightcurly)
  109.      (define-key nm-8bit-mode-map "\C-c+" 'nm-8bit-backslash)
  110.      (define-key nm-8bit-mode-map "\C-c<" 'nm-8bit-bar)
  111.      (use-local-map nm-8bit-mode-map))
  112.     (t
  113.      (setq ctl-arrow nm-8bit-std-ctl-arrow)
  114.      (use-local-map nm-8bit-std-map))))
  115.   
  116.