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

[Kenichi Handa]

Index: emacs/lisp/language/european.el
diff -c emacs/lisp/language/european.el:1.74 
emacs/lisp/language/european.el:1.75
*** emacs/lisp/language/european.el:1.74        Thu Oct 17 11:27:37 2002
--- emacs/lisp/language/european.el     Mon Oct 28 09:40:18 2002
***************
*** 625,637 ****
  Optional 4th argument STRING, if non-nil, is a string containing text
  to compose.
  
! The return value is number of composed characters."
!   (if (< (1+ from) to)
!       (prog1 (- to from)
!       (if string
!           (compose-string string from to)
!         (compose-region from to))
!       (- to from))))
  
  ;; Register a function to compose Unicode diacrtics and marks.
  (let ((patterns '(("\\C^\\c^+" . diacritic-composition-function))))
--- 625,636 ----
  Optional 4th argument STRING, if non-nil, is a string containing text
  to compose.
  
! The return value is the number of composed characters."
!   (when (< (1+ from) to)
!       (if string
!         (compose-string string from to)
!       (compose-region from to))
!       (- to from)))
  
  ;; Register a function to compose Unicode diacrtics and marks.
  (let ((patterns '(("\\C^\\c^+" . diacritic-composition-function))))