Mercurial > emacs

comparison lisp/international/ogonek.el @ 90182:f042e7c0fe20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-53 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 302-319) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 69) - Update from CVS
author Miles Bader <miles@gnu.org>
date Fri, 20 May 2005 04:22:05 +0000
parents 68c22ea6027c 8ef4dac936f9
children f9a65d7ebd29
comparison
equal deleted inserted replaced
90181:0c828e2b0b6f 90182:f042e7c0fe20
1 ;;; ogonek.el --- change the encoding of Polish diacritics 1 ;;; ogonek.el --- change the encoding of Polish diacritics
2 2
3 ;; Copyright (C) 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1997, 1998, 2001 Free Software Foundation, Inc.
4 4
5 ;; Author: W{\l}odek Bzyl, Ryszard Kubiak 5 ;; Author: W{\l}odek Bzyl, Ryszard Kubiak
6 ;; Maintainer: rysiek@ipipan.gda.pl (Ryszard Kubiak) 6 ;; Maintainer: rysiek@ipipan.gda.pl (Ryszard Kubiak)
7 ;; Keywords: i18n 7 ;; Keywords: i18n
8 8
164 "Display `ogonek-informacja' in an auxiliary *ogonek-jak* buffer." 164 "Display `ogonek-informacja' in an auxiliary *ogonek-jak* buffer."
165 (interactive) 165 (interactive)
166 (set-buffer (get-buffer-create " *ogonek-jak*")) 166 (set-buffer (get-buffer-create " *ogonek-jak*"))
167 (insert ogonek-informacja) 167 (insert ogonek-informacja)
168 (switch-to-buffer " *ogonek-jak*") 168 (switch-to-buffer " *ogonek-jak*")
169 (beginning-of-buffer)) 169 (goto-char (point-min)))
170 170
171 ;; ------ A Little Info in English -------- 171 ;; ------ A Little Info in English --------
172 172
173 (defconst ogonek-information 173 (defconst ogonek-information
174 " THE INTERACTIVE FUNCTIONS PROVIDED BY THE LIBRARY `ogonek'. 174 " THE INTERACTIVE FUNCTIONS PROVIDED BY THE LIBRARY `ogonek'.
262 "Display `ogonek-information' in an auxiliary *recode-how* buffer." 262 "Display `ogonek-information' in an auxiliary *recode-how* buffer."
263 (interactive "*") 263 (interactive "*")
264 (set-buffer (get-buffer-create " *ogonek-how*")) 264 (set-buffer (get-buffer-create " *ogonek-how*"))
265 (insert ogonek-information) 265 (insert ogonek-information)
266 (switch-to-buffer " *ogonek-how*") 266 (switch-to-buffer " *ogonek-how*")
267 (beginning-of-buffer)) 267 (goto-char (point-min)))
268 268
269 ;; ---- Variables keeping the suggested answers to dialogue questions ----- 269 ;; ---- Variables keeping the suggested answers to dialogue questions -----
270 (defvar ogonek-encoding-choices 270 (defvar ogonek-encoding-choices
271 (cons 'choice 271 (cons 'choice
272 (mapcar (lambda (x) (list 'const (car x))) 272 (mapcar (lambda (x) (list 'const (car x)))