[Emacs-diffs] Changes to emacs/lisp/language/european.el

[Dave Love]

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)