Mercurial > emacs

view lisp/language/cyril-util.el @ 57856:df80d19d7a2e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-660 Merge from gnus--rel--5.10 Patches applied: * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-65 Update from CVS 2004-11-01 Reiner Steib <Reiner.Steib@gmx.de> * lisp/gnus/gnus-msg.el (gnus-summary-resend-default-address): Add :version. * lisp/gnus/tls.el (tls-process-connection-type, tls-success) (tls-certtool-program): Add :version. * lisp/gnus/starttls.el (starttls-gnutls-program, starttls-use-gnutls) (starttls-extra-arguments, starttls-process-connection-type) (starttls-connect, starttls-failure, starttls-success): * lisp/gnus/spam-stat.el (spam-stat): Add :version. * lisp/gnus/sieve.el (sieve): Add :version. * lisp/gnus/sha1.el (sha1): Added :version. (sha1-use-external): Removed redundant version. * lisp/gnus/nnmail.el (nnmail-split-fancy-with-parent-ignore-groups) (nnmail-cache-ignore-groups, nnmail-spool-hook) (nnmail-split-fancy-match-partial-words) (nnmail-split-lowercase-expanded): * lisp/gnus/nndiary.el (nndiary): Add :version. * lisp/gnus/mml2015.el (mml2015-unabbrev-trust-alist): Add :version. * lisp/gnus/mml-sec.el (mml-default-sign-method) (mml-default-encrypt-method, mml-signencrypt-style-alist): Add :version. * lisp/gnus/mm-uu.el (mm-uu-diff-groups-regexp): Add :version. * lisp/gnus/mm-url.el (mm-url-use-external, mm-url-program) (mm-url-arguments): Add :version. * lisp/gnus/mm-decode.el (mm-inline-text-html-with-w3m-keymap) (mm-attachment-file-modes, mm-decrypt-option) (mm-w3m-safe-url-regexp): Add :version. * lisp/gnus/message.el (message-cite-prefix-regexp) (message-sendmail-envelope-from, message-minibuffer-local-map) (message-user-fqdn, message-completion-alist): Add :version. * lisp/gnus/gnus-win.el (gnus-configure-windows-hook) (gnus-use-frames-on-any-display): Add :version. * lisp/gnus/gnus-art.el (gnus-article-address-banner-alist) (gnus-treat-unsplit-urls, gnus-treat-unfold-headers) (gnus-treat-from-picon, gnus-treat-mail-picon) (gnus-treat-x-pgp-sig): Add :version. * lisp/gnus/gnus-sum.el (gnus-spam-mark, gnus-recent-mark) (gnus-undownloaded-mark, gnus-summary-article-move-hook) (gnus-summary-article-delete-hook) (gnus-summary-display-while-building): Add :version. * lisp/gnus/gnus-start.el (gnus-subscribe-newsgroup-hooks) (gnus-get-top-new-news-hook):Add :version. * lisp/gnus/gnus-srvr.el (gnus-server-agent-face, gnus-server-opened-face) (gnus-server-closed-face, gnus-server-denied-face): Add :version. * lisp/gnus/gnus-registry.el (gnus-registry): Add :version. * lisp/gnus/gnus-spec.el (gnus-use-correct-string-widths) (gnus-make-format-preserve-properties): Add :version. * lisp/gnus/gnus.el (gnus-group-charter-alist) (gnus-group-fetch-control-use-browse-url) (gnus-install-group-spam-parameters): Add :version. * lisp/gnus/gnus-diary.el (gnus-diary): Add :version. * lisp/gnus/gnus-delay.el (gnus-delay): Add :version. * lisp/gnus/gnus-cite.el (gnus-cite-unsightly-citation-regexp) (gnus-cite-ignore-quoted-from, gnus-cite-attribution-face) (gnus-cite-blank-line-after-header, gnus-article-boring-faces): Add :version. * lisp/gnus/gnus-agent.el (gnus-agent-max-fetch-size) (gnus-agent-enable-expiration, gnus-agent-queue-mail) (gnus-agent-prompt-send-queue): Add :version. * lisp/gnus/deuglify.el (gnus-outlook-deuglify): Add :version. * lisp/gnus/html2text.el: Beautify code. Improve doc strings. Some checkdoc cleanup. (html2text-get-attr, html2text-fix-paragraph): Simplify code. (html2text-format-tag-list): Added "strong" and "em". From "Alfred M. Szmidt" <ams@kemisten.nu> (tiny change).
author Miles Bader <miles@gnu.org>
date Mon, 01 Nov 2004 23:06:36 +0000
parents 695cf19ef79e
children 197607499a29 375f2633d815
line wrap: on
line source

;;; cyril-util.el --- utilities for Cyrillic scripts

;; Copyright (C) 1997, 2001, 2002 Free Software Foundation, Inc.

;; Keywords: mule, multilingual, Cyrillic

;; 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.

;;; Commentary:

;;; Code:

;; Fixme: are the next two useful?

;;;###autoload
(defun cyrillic-encode-koi8-r-char (char)
  "Return KOI8-R external character code of CHAR if appropriate."
  (aref (char-table-extra-slot
	 (get 'cyrillic-koi8-r-nonascii-translation-table 'translation-table)
	 0)
	char))

;;;###autoload
(defun cyrillic-encode-alternativnyj-char (char)
  "Return ALTERNATIVNYJ external character code of CHAR if appropriate."
  (aref (char-table-extra-slot
	 (get 'cyrillic-alternativnyj-nonascii-translation-table
	      'translation-table)
	 0)
	char))


;; Display

;; Written by Valery Alexeev <valery@math.uga.edu>.

(defvar cyrillic-language-alist
      (list '("Belorussian") '("Bulgarian") '("Macedonian")
	    '("Russian") '("Serbo-Croatian") '("Ukrainian"))
      "List of known cyrillic languages.")

;;;###autoload
(defun standard-display-cyrillic-translit (&optional cyrillic-language)
  "Display a cyrillic buffer using a transliteration.
For readability, the table is slightly
different from the one used for the input method `cyrillic-translit'.

The argument is a string which specifies which language you are using;
that affects the choice of transliterations slightly.
Possible values are listed in `cyrillic-language-alist'.
If the argument is t, we use the default cyrillic transliteration.
If the argument is nil, we return the display table to its standard state."
  (interactive
   (list
    (let* ((completion-ignore-case t))
      (completing-read
       "Cyrillic language (default nil): "
       cyrillic-language-alist nil t nil nil nil))))

  (or standard-display-table
      (setq standard-display-table (make-display-table)))

  (if (equal cyrillic-language "")
      (setq cyrillic-language nil))

  (if (null cyrillic-language)
      (setq standard-display-table (make-display-table))
    (aset standard-display-table ?,LP(B  [?a])
    (aset standard-display-table ?,LQ(B  [?b])
    (aset standard-display-table ?,LR(B  [?v])
    (aset standard-display-table ?,LS(B  [?g])
    (aset standard-display-table ?,LT(B  [?d])
    (aset standard-display-table ?,LU(B  [?e])
    (aset standard-display-table ?,Lq(B  [?y ?o])
    (aset standard-display-table ?,LV(B  [?z ?h])
    (aset standard-display-table ?,LW(B  [?z])
    (aset standard-display-table ?,LX(B  [?i])
    (aset standard-display-table ?,LY(B  [?j])
    (aset standard-display-table ?,LZ(B  [?k])
    (aset standard-display-table ?,L[(B  [?l])
    (aset standard-display-table ?,L\(B  [?m])
    (aset standard-display-table ?,L](B  [?n])
    (aset standard-display-table ?,L^(B  [?o])
    (aset standard-display-table ?,L_(B  [?p])
    (aset standard-display-table ?,L`(B  [?r])
    (aset standard-display-table ?,La(B  [?s])
    (aset standard-display-table ?,Lb(B  [?t])
    (aset standard-display-table ?,Lc(B  [?u])
    (aset standard-display-table ?,Ld(B  [?f])
    (aset standard-display-table ?,Le(B  [?k ?h])
    (aset standard-display-table ?,Lf(B  [?t ?s])
    (aset standard-display-table ?,Lg(B  [?c ?h])
    (aset standard-display-table ?,Lh(B  [?s ?h])
    (aset standard-display-table ?,Li(B  [?s ?c ?h])
    (aset standard-display-table ?,Lj(B  [?~])
    (aset standard-display-table ?,Lk(B  [?y])
    (aset standard-display-table ?,Ll(B  [?'])
    (aset standard-display-table ?,Lm(B  [?e ?'])
    (aset standard-display-table ?,Ln(B  [?y ?u])
    (aset standard-display-table ?,Lo(B  [?y ?a])

    (aset standard-display-table ?,L0(B  [?A])
    (aset standard-display-table ?,L1(B  [?B])
    (aset standard-display-table ?,L2(B  [?V])
    (aset standard-display-table ?,L3(B  [?G])
    (aset standard-display-table ?,L4(B  [?D])
    (aset standard-display-table ?,L5(B  [?E])
    (aset standard-display-table ?,L!(B  [?Y ?o])
    (aset standard-display-table ?,L6(B  [?Z ?h])
    (aset standard-display-table ?,L7(B  [?Z])
    (aset standard-display-table ?,L8(B  [?I])
    (aset standard-display-table ?,L9(B  [?J])
    (aset standard-display-table ?,L:(B  [?K])
    (aset standard-display-table ?,L;(B  [?L])
    (aset standard-display-table ?,L<(B  [?M])
    (aset standard-display-table ?,L=(B  [?N])
    (aset standard-display-table ?,L>(B  [?O])
    (aset standard-display-table ?,L?(B  [?P])
    (aset standard-display-table ?,L@(B  [?R])
    (aset standard-display-table ?,LA(B  [?S])
    (aset standard-display-table ?,LB(B  [?T])
    (aset standard-display-table ?,LC(B  [?U])
    (aset standard-display-table ?,LD(B  [?F])
    (aset standard-display-table ?,LE(B  [?K ?h])
    (aset standard-display-table ?,LF(B  [?T ?s])
    (aset standard-display-table ?,LG(B  [?C ?h])
    (aset standard-display-table ?,LH(B  [?S ?h])
    (aset standard-display-table ?,LI(B  [?S ?c ?h])
    (aset standard-display-table ?,LJ(B  [?~])
    (aset standard-display-table ?,LK(B  [?Y])
    (aset standard-display-table ?,LL(B  [?'])
    (aset standard-display-table ?,LM(B  [?E ?'])
    (aset standard-display-table ?,LN(B  [?Y ?u])
    (aset standard-display-table ?,LO(B  [?Y ?a])

    (aset standard-display-table ?,Lt(B  [?i ?e])
    (aset standard-display-table ?,Lw(B  [?i])
    (aset standard-display-table ?,L~(B  [?u])
    (aset standard-display-table ?,Lr(B  [?d ?j])
    (aset standard-display-table ?,L{(B  [?c ?h ?j])
    (aset standard-display-table ?,Ls(B  [?g ?j])
    (aset standard-display-table ?,Lu(B  [?s])
    (aset standard-display-table ?,L|(B  [?k])
    (aset standard-display-table ?,Lv(B  [?i])
    (aset standard-display-table ?,Lx(B  [?j])
    (aset standard-display-table ?,Ly(B  [?l ?j])
    (aset standard-display-table ?,Lz(B  [?n ?j])
    (aset standard-display-table ?,L(B  [?d ?z])

    (aset standard-display-table ?,L$(B  [?Y ?e])
    (aset standard-display-table ?,L'(B  [?Y ?i])
    (aset standard-display-table ?,L.(B  [?U])
    (aset standard-display-table ?,L"(B  [?D ?j])
    (aset standard-display-table ?,L+(B  [?C ?h ?j])
    (aset standard-display-table ?,L#(B  [?G ?j])
    (aset standard-display-table ?,L%(B  [?S])
    (aset standard-display-table ?,L,(B  [?K])
    (aset standard-display-table ?,L&(B  [?I])
    (aset standard-display-table ?,L((B  [?J])
    (aset standard-display-table ?,L)(B  [?L ?j])
    (aset standard-display-table ?,L*(B  [?N ?j])
    (aset standard-display-table ?,L/(B  [?D ?j])

    ;; Unicode version:
    (aset standard-display-table ?$,1(P(B  [?a])
    (aset standard-display-table ?$,1(Q(B  [?b])
    (aset standard-display-table ?$,1(R(B  [?v])
    (aset standard-display-table ?$,1(S(B  [?g])
    (aset standard-display-table ?$,1(T(B  [?d])
    (aset standard-display-table ?$,1(U(B  [?e])
    (aset standard-display-table ?$,1(q(B  [?y ?o])
    (aset standard-display-table ?$,1(V(B  [?z ?h])
    (aset standard-display-table ?$,1(W(B  [?z])
    (aset standard-display-table ?$,1(X(B  [?i])
    (aset standard-display-table ?$,1(Y(B  [?j])
    (aset standard-display-table ?$,1(Z(B  [?k])
    (aset standard-display-table ?$,1([(B  [?l])
    (aset standard-display-table ?$,1(\(B  [?m])
    (aset standard-display-table ?$,1(](B  [?n])
    (aset standard-display-table ?$,1(^(B  [?o])
    (aset standard-display-table ?$,1(_(B  [?p])
    (aset standard-display-table ?$,1(`(B  [?r])
    (aset standard-display-table ?$,1(a(B  [?s])
    (aset standard-display-table ?$,1(b(B  [?t])
    (aset standard-display-table ?$,1(c(B  [?u])
    (aset standard-display-table ?$,1(d(B  [?f])
    (aset standard-display-table ?$,1(e(B  [?k ?h])
    (aset standard-display-table ?$,1(f(B  [?t ?s])
    (aset standard-display-table ?$,1(g(B  [?c ?h])
    (aset standard-display-table ?$,1(h(B  [?s ?h])
    (aset standard-display-table ?$,1(i(B  [?s ?c ?h])
    (aset standard-display-table ?$,1(j(B  [?~])
    (aset standard-display-table ?$,1(k(B  [?y])
    (aset standard-display-table ?$,1(l(B  [?'])
    (aset standard-display-table ?$,1(m(B  [?e ?'])
    (aset standard-display-table ?$,1(n(B  [?y ?u])
    (aset standard-display-table ?$,1(o(B  [?y ?a])

    (aset standard-display-table ?$,1(0(B  [?A])
    (aset standard-display-table ?$,1(1(B  [?B])
    (aset standard-display-table ?$,1(2(B  [?V])
    (aset standard-display-table ?$,1(3(B  [?G])
    (aset standard-display-table ?$,1(4(B  [?D])
    (aset standard-display-table ?$,1(5(B  [?E])
    (aset standard-display-table ?$,1(!(B  [?Y ?o])
    (aset standard-display-table ?$,1(6(B  [?Z ?h])
    (aset standard-display-table ?$,1(7(B  [?Z])
    (aset standard-display-table ?$,1(8(B  [?I])
    (aset standard-display-table ?$,1(9(B  [?J])
    (aset standard-display-table ?$,1(:(B  [?K])
    (aset standard-display-table ?$,1(;(B  [?L])
    (aset standard-display-table ?$,1(<(B  [?M])
    (aset standard-display-table ?$,1(=(B  [?N])
    (aset standard-display-table ?$,1(>(B  [?O])
    (aset standard-display-table ?$,1(?(B  [?P])
    (aset standard-display-table ?$,1(@(B  [?R])
    (aset standard-display-table ?$,1(A(B  [?S])
    (aset standard-display-table ?$,1(B(B  [?T])
    (aset standard-display-table ?$,1(C(B  [?U])
    (aset standard-display-table ?$,1(D(B  [?F])
    (aset standard-display-table ?$,1(E(B  [?K ?h])
    (aset standard-display-table ?$,1(F(B  [?T ?s])
    (aset standard-display-table ?$,1(G(B  [?C ?h])
    (aset standard-display-table ?$,1(H(B  [?S ?h])
    (aset standard-display-table ?$,1(I(B  [?S ?c ?h])
    (aset standard-display-table ?$,1(J(B  [?~])
    (aset standard-display-table ?$,1(K(B  [?Y])
    (aset standard-display-table ?$,1(L(B  [?'])
    (aset standard-display-table ?$,1(M(B  [?E ?'])
    (aset standard-display-table ?$,1(N(B  [?Y ?u])
    (aset standard-display-table ?$,1(O(B  [?Y ?a])

    (aset standard-display-table ?$,1(t(B  [?i ?e])
    (aset standard-display-table ?$,1(w(B  [?i])
    (aset standard-display-table ?$,1(~(B  [?u])
    (aset standard-display-table ?$,1(r(B  [?d ?j])
    (aset standard-display-table ?$,1({(B  [?c ?h ?j])
    (aset standard-display-table ?$,1(s(B  [?g ?j])
    (aset standard-display-table ?$,1(u(B  [?s])
    (aset standard-display-table ?$,1(|(B  [?k])
    (aset standard-display-table ?$,1(v(B  [?i])
    (aset standard-display-table ?$,1(x(B  [?j])
    (aset standard-display-table ?$,1(y(B  [?l ?j])
    (aset standard-display-table ?$,1(z(B  [?n ?j])
    (aset standard-display-table ?$,1((B  [?d ?z])

    (aset standard-display-table ?$,1($(B  [?Y ?e])
    (aset standard-display-table ?$,1('(B  [?Y ?i])
    (aset standard-display-table ?$,1(.(B  [?U])
    (aset standard-display-table ?$,1("(B  [?D ?j])
    (aset standard-display-table ?$,1(+(B  [?C ?h ?j])
    (aset standard-display-table ?$,1(#(B  [?G ?j])
    (aset standard-display-table ?$,1(%(B  [?S])
    (aset standard-display-table ?$,1(,(B  [?K])
    (aset standard-display-table ?$,1(&(B  [?I])
    (aset standard-display-table ?$,1(((B  [?J])
    (aset standard-display-table ?$,1()(B  [?L ?j])
    (aset standard-display-table ?$,1(*(B  [?N ?j])
    (aset standard-display-table ?$,1(/(B  [?D ?j])

    (when (equal cyrillic-language "Bulgarian")
      (aset standard-display-table ?,Li(B [?s ?h ?t])
      (aset standard-display-table ?,LI(B [?S ?h ?t])
      (aset standard-display-table ?,Ln(B [?i ?u])
      (aset standard-display-table ?,LN(B [?I ?u])
      (aset standard-display-table ?,Lo(B [?i ?a])
      (aset standard-display-table ?,LO(B [?I ?a])
      ;; Unicode version:
      (aset standard-display-table ?$,1(i(B [?s ?h ?t])
      (aset standard-display-table ?$,1(I(B [?S ?h ?t])
      (aset standard-display-table ?$,1(n(B [?i ?u])
      (aset standard-display-table ?$,1(N(B [?I ?u])
      (aset standard-display-table ?$,1(o(B [?i ?a])
      (aset standard-display-table ?$,1(O(B [?I ?a]))

    (when (equal cyrillic-language "Ukrainian")	; based on the official
					; transliteration table
      (aset standard-display-table ?,LX(B [?y])
      (aset standard-display-table ?,L8(B [?Y])
      (aset standard-display-table ?,LY(B [?i])
      (aset standard-display-table ?,L9(B [?Y])
      (aset standard-display-table ?,Ln(B [?i ?u])
      (aset standard-display-table ?,Lo(B [?i ?a])
      ;; Unicode version:
      (aset standard-display-table ?$,1(X(B [?y])
      (aset standard-display-table ?$,1(8(B [?Y])
      (aset standard-display-table ?$,1(Y(B [?i])
      (aset standard-display-table ?$,1(9(B [?Y])
      (aset standard-display-table ?$,1(n(B [?i ?u])
      (aset standard-display-table ?$,1(o(B [?i ?a]))))

;;
(provide 'cyril-util)

;; Local Variables:
;; coding: iso-2022-7bit
;; End:

;;; arch-tag: f6d9dd5d-685c-45d6-a5d8-1e2178228b7e
;;; cyril-util.el ends here