Mercurial > emacs
view lisp/international/swedish.el @ 22917:00f3497854c4
(quail-translation-keymap): Declare it as
variable instead of constant. Bind all keys less than 32 to
quail-other-command. Don't bind the key meta-prefix-char and
escape.
(quail-simple-translation-keymap): Likewise.
(quail-conversion-keymap): Bind the key C-h to
quail-translation-keymap.
(quail-define-package): Fix typo in doc-string.
(quail-conversion-str): New variable.
(quail-input-method): Bind buffer-undo-list to t. Show Quail
guidance buffer if necessary.
(quail-delete-region): Move the definintion before the first
calling place.
(quail-start-translation): Handle the case the arg KEY is nil.
Bind echo-keystrokes and help-char. Initialize quail-current-str
to "". If input-method-use-echo-area is non-nil, call
read-key-sequence with appropriate PROMPT arg. Setup
last-command-event by local variable `keyseq'. Generate an event
list form quail-current-str. If input-methodd-exit-on-first-char
is non-nil, return only the first event.
(quail-start-conversion): Likewise. Initialize
quail-conversion-str to "". Generate an event list form
quail-conversion-str.
(quail-update-translation): Expect that the function given by
(quail-update-translation-function) returns a new control-flag.
Handle the case the length of quail-current-key is 1. Use
string-as-unibyte if enable-multibyte-characters is nil. Always
assures that quail-current-str is Lisp string.
(quail-self-insert-command): Use `or' instead of `unless'.
(quail-update-current-translations): Always assures that
quail-current-str is Lisp string.
(quail-next-translation-block): Update unread-command-events
correctly.
(quail-abort-translation): Set quail-current-str to nil.
(quail-conversion-delete-char): Update quail-conversion-str.
(quail-conversion-delete-tail): Likewise.
(quail-conversion-backward-delete-char): Likewise.
(quail-show-guidance-buf): Show Quail guidance buffer not in echo
area if input-method-use-echo-area is non-nil.
(quail-show-translations): Bind current-translations locally to
quail-current-translations to get this value across different
buffers. Handle the case that the length quail-current-key is 0.
(quail-translation-help): If this command is invoked repeatedly,
scroll the already shown help window. Handle the case that this
command is called while converting (not translating).
(quail-conversion-help): This function deleted and the
functionality is merged to quail-translation-help.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Thu, 06 Aug 1998 05:38:11 +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