[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/language/european.el
From: |
Dave Love |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/language/european.el |
Date: |
Wed, 12 Dec 2001 07:35:36 -0500 |
Index: emacs/lisp/language/european.el
diff -c emacs/lisp/language/european.el:1.64
emacs/lisp/language/european.el:1.65
*** emacs/lisp/language/european.el:1.64 Fri Dec 7 09:48:40 2001
--- emacs/lisp/language/european.el Wed Dec 12 07:35:36 2001
***************
*** 2,7 ****
--- 2,8 ----
;; Copyright (C) 1995, 1997, 2001 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
+ ;; Copyright (C) 2001 Free Software Foundation, Inc.
;; Keywords: multilingual, European
***************
*** 24,30 ****
;;; Commentary:
! ;; For Europeans, character sets ISO8859-1,2,3,4,9,14,15 are supported.
;;; Code:
--- 25,32 ----
;;; Commentary:
! ;; For European scripts, character sets ISO8859-1,2,3,4,9,14,15 are
! ;; supported.
;;; Code:
***************
*** 544,550 ****
(defconst diacritic-composition-pattern "\\C^\\c^+")
- ;;;###autoload
(defun diacritic-compose-region (beg end)
"Compose diacritic characters in the region.
When called from a program, expects two arguments,
--- 546,551 ----
***************
*** 556,562 ****
(while (re-search-forward diacritic-composition-pattern nil t)
(compose-region (match-beginning 0) (match-end 0)))))
- ;;;###autoload
(defun diacritic-compose-string (string)
"Compose diacritic characters in STRING and return the resulting string."
(let ((idx 0))
--- 557,562 ----
***************
*** 565,582 ****
(setq idx (match-end 0))))
string)
- ;;;###autoload
(defun diacritic-compose-buffer ()
"Compose diacritic characters in the current buffer."
(interactive)
(diacritic-compose-region (point-min) (point-max)))
- ;;;###autoload
(defun diacritic-post-read-conversion (len)
(diacritic-compose-region (point) (+ (point) len))
len)
- ;;;###autoload
(defun diacritic-composition-function (from to pattern &optional string)
"Compose diacritic text in the region FROM and TO.
The text matches the regular expression PATTERN.
--- 565,579 ----
***************
*** 592,598 ****
(- to from))))
;; Register a function to compose Unicode diacrtics and marks.
! (let ((patterns '(("\\C^\\c^+" . diacrtic-composition-function))))
(let ((c #x300))
(while (<= c #x362)
(aset composition-function-table (decode-char 'ucs c) patterns)
--- 589,595 ----
(- to from))))
;; Register a function to compose Unicode diacrtics and marks.
! (let ((patterns '(("\\C^\\c^+" . diacritic-composition-function))))
(let ((c #x300))
(while (<= c #x362)
(aset composition-function-table (decode-char 'ucs c) patterns)