Mercurial > emacs
view lisp/international/swedish.el @ 20892:18f3cb26243f before-miles-orphaned-changes gcc-2_8_1-980401 gcc-2_8_1-980407 gcc-2_8_1-980412 gcc-2_8_1-980413 gcc-2_8_1-RELEASE gcc_2_8_1-980315 libc-980214 libc-980215 libc-980216 libc-980217 libc-980218 libc-980219 libc-980220 libc-980221 libc-980222 libc-980223 libc-980224 libc-980225 libc-980226 libc-980227 libc-980228 libc-980301 libc-980302 libc-980303 libc-980304 libc-980306 libc-980307 libc-980308 libc-980309 libc-980310 libc-980311 libc-980312 libc-980313 libc-980314 libc-980315 libc-980316 libc-980317 libc-980318 libc-980319 libc-980320 libc-980321 libc-980322 libc-980323 libc-980324 libc-980325 libc-980326 libc-980327 libc-980328 libc-980329 libc-980330 libc-980331 libc-980401 libc-980402 libc-980403 libc-980404 libc-980405 libc-980406 libc-980407 libc-980408 libc-980409 libc-980410 libc-980411 libc-980412 libc-980413 libc-980414 libc-980428 libc-980429 libc-980430 libc-980501 libc-980502 libc-980503 libc-980504 libc-980505 libc-980506 libc-980507 libc-980508 libc-980509 libc-980510 libc-980512 libc-980513 libc-980514 libc-980515 libc-980516 libc-980517 libc-980518 libc-980519 libc-980520 libc-980521 libc-980522 libc-980523 libc-980524 libc-980525 libc-980526 libc-980527 libc-980528 libc-980529 libc-980530 libc-980531 libc-980601 libc-980602 libc-980603 libc-980604 libc-980605 libc-980606 libc-980607 libc-980608 libc-980609 libc-980610 libc-980611 libc-980612 libc-980613
Add PentiumII (i786). Add '7' to all i[3456] entries.
Add AMD and Cyrix names for P5 and P6.
author | Richard Kenner <kenner@gnu.org> |
---|---|
date | Fri, 13 Feb 1998 12:16:46 +0000 |
parents | 2cfc28884664 |
children | 253f761ad37b |
line wrap: on
line source
;;; swedish.el --- miscellaneous functions for dealing with Swedish. ;; Copyright (C) 1988 Free Software Foundation, Inc. ;; Author: Howard Gayle ;; Maintainer: FSF ;; Keywords: i18n ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Code: ;; Written by Howard Gayle. See case-table.el for details. ;; See iso-swed.el for a description of the character set. (require 'latin-1) (defvar swedish-re "[ \t\n]\\(och\\|att\\|en\\|{r\\|\\[R\\|p}\\|P\\]\\|som\\|det\\|av\\|den\\|f|r\\|F\\\\R\\)[ \t\n.,?!:;'\")}]" "Regular expression for common Swedish words.") (defvar swascii-to-8859-trans (let ((string (make-string 256 ? )) (i 0)) (while (< i 256) (aset string i i) (setq i (1+ i))) (aset string ?\[ 196) (aset string ?\] 197) (aset string ?\\ 214) (aset string ?^ 220) (aset string ?\{ 228) (aset string ?\} 229) (aset string ?\` 233) (aset string ?\| 246) (aset string ?~ 252) string) "Trans table from SWASCII to 8859.") ; $ is not converted because it almost always means US ; dollars, not general currency sign. @ is not converted ; because it is more likely to be an at sign in a mail address ; than an E with acute accent. (defun swascii-to-8859-buffer () "Convert characters in buffer from Swedish/Finnish-ascii to ISO 8859/1. Works even on read-only buffers. `$' and `@' are not converted." (interactive) (let ((buffer-read-only nil)) (translate-region (point-min) (point-max) swascii-to-8859-trans))) (defun swascii-to-8859-buffer-maybe () "Call swascii-to-8859-buffer if the buffer looks like Swedish-ascii. Leaves point just after the word that looks Swedish." (interactive) (let ((case-fold-search t)) (if (re-search-forward swedish-re nil t) (swascii-to-8859-buffer)))) (setq rmail-show-message-hook 'swascii-to-8859-buffer-maybe) (or (boundp 'news-group-hook-alist) (setq news-group-hook-alist nil)) (setq news-group-hook-alist (append '(("^swnet." . swascii-to-8859-buffer-maybe)) news-group-hook-alist)) (defvar 8859-to-swascii-trans (let ((string (make-string 256 ? )) (i 0)) (while (< i 256) (aset string i i) (setq i (1+ i))) (aset string 164 ?$) (aset string 196 ?\[) (aset string 197 ?\]) (aset string 201 ?@) (aset string 214 ?\\) (aset string 220 ?^) (aset string 228 ?\{) (aset string 229 ?\}) (aset string 233 ?\`) (aset string 246 ?\|) (aset string 252 ?~) string) "8859 to SWASCII trans table.") (defun 8859-to-swascii-buffer () "Convert characters in buffer from ISO 8859/1 to Swedish/Finnish-ascii." (interactive "*") (translate-region (point-min) (point-max) 8859-to-swascii-trans)) (setq mail-send-hook '8859-to-swascii-buffer) (setq news-inews-hook '8859-to-swascii-buffer) ;; It's not clear what purpose is served by a separate ;; Swedish mode that differs from Text mode only in having ;; a separate abbrev table. Nothing says that the abbrevs you ;; define in Text mode have to be English! ;(defvar swedish-mode-abbrev-table nil ; "Abbrev table used while in swedish mode.") ;(define-abbrev-table 'swedish-mode-abbrev-table ()) ;(defun swedish-mode () ; "Major mode for editing Swedish text intended for humans to ;read. Special commands:\\{text-mode-map} ;Turning on swedish-mode calls the value of the variable ;text-mode-hook, if that value is non-nil." ; (interactive) ; (kill-all-local-variables) ; (use-local-map text-mode-map) ; (setq mode-name "Swedish") ; (setq major-mode 'swedish-mode) ; (setq local-abbrev-table swedish-mode-abbrev-table) ; (set-syntax-table text-mode-syntax-table) ; (run-hooks 'text-mode-hook)) ;(defun indented-swedish-mode () ; "Major mode for editing indented Swedish text intended for ;humans to read.\\{indented-text-mode-map} ;Turning on indented-swedish-mode calls the value of the ;variable text-mode-hook, if that value is non-nil." ; (interactive) ; (kill-all-local-variables) ; (use-local-map text-mode-map) ; (define-abbrev-table 'swedish-mode-abbrev-table ()) ; (setq local-abbrev-table swedish-mode-abbrev-table) ; (set-syntax-table text-mode-syntax-table) ; (make-local-variable 'indent-line-function) ; (setq indent-line-function 'indent-relative-maybe) ; (use-local-map indented-text-mode-map) ; (setq mode-name "Indented Swedish") ; (setq major-mode 'indented-swedish-mode) ; (run-hooks 'text-mode-hook)) (provide 'swedish) ;;; swedish.el ends here