Trailing whitepace deleted.

14 files changed, 223 insertions, 223 deletions

diff --git a/lisp/language/chinese.el b/lisp/language/chinese.el
index 6f67f66d129..14546edbf89 100644
--- a/lisp/language/chinese.el
+++ b/lisp/language/chinese.el
@@ -64,7 +64,7 @@
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; Chinese GB2312 (simplified) 
+;;; Chinese GB2312 (simplified)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (make-coding-system
diff --git a/lisp/language/cyril-util.el b/lisp/language/cyril-util.el
index 394400cda97..3c9839eea21 100644
--- a/lisp/language/cyril-util.el
+++ b/lisp/language/cyril-util.el
@@ -113,7 +113,7 @@ If the argument is nil, we return the display table to its standard state."
     (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])
diff --git a/lisp/language/devan-util.el b/lisp/language/devan-util.el
index cbc5b19a56e..e4353548b7c 100644
--- a/lisp/language/devan-util.el
+++ b/lisp/language/devan-util.el
@@ -52,7 +52,7 @@
   "[$,15U(B-$,15y68(B-$,16?(B]")
 
 (defconst devanagari-composable-pattern
-  (concat 
+  (concat
    "\\([$,15E(B-$,15T6@6A(B][$,15A5B(B]?\\)\\|$,15C(B"
    "\\|\\("
    "\\(?:\\(?:[$,15U(B-$,15y68(B-$,16?(B]$,16-(B\\)?\\(?:[$,15U(B-$,15y68(B-$,16?(B]$,16-(B\\)?\\(?:[$,15U(B-$,15y68(B-$,16?(B]$,16-(B\\)?[$,15U(B-$,15y68(B-$,16?(B]$,16-(B\\)?"
@@ -67,7 +67,7 @@
       (narrow-to-region from to)
       (goto-char (point-min))
       (while (re-search-forward devanagari-composable-pattern nil t)
-        (devanagari-compose-syllable-region (match-beginning 0) 
+        (devanagari-compose-syllable-region (match-beginning 0)
                                             (match-end 0))))))
 (defun devanagari-compose-string (string)
   (with-temp-buffer
@@ -86,14 +86,14 @@
 
 (defun devanagari-range (from to)
   "Make the list of the integers of range FROM to TO."
-  (let (result) 
+  (let (result)
     (while (<= from to) (setq result (cons to result) to (1- to))) result))
 
 (defun devanagari-regexp-of-hashtbl-keys (hashtbl)
   "Return a regular expression that matches all keys in hashtable HASHTBL."
   (let ((max-specpdl-size 1000))
     (regexp-opt
-     (sort 
+     (sort
       (let (dummy)
         (maphash (function (lambda (key val) (setq dummy (cons key dummy)))) hashtbl)
         dummy)
@@ -111,13 +111,13 @@ PATTERN regexp."
 (mapc
  (function (lambda (ucs)
    (aset composition-function-table (decode-char 'ucs ucs)
-         (list (cons devanagari-composable-pattern 
+         (list (cons devanagari-composable-pattern
                      'devanagari-composition-function)))))
  (nconc '(#x0903) (devanagari-range #x0905 #x0939) (devanagari-range #x0958 #x0961)))
 
 ;; Notes on conversion steps.
 
-;; 1. chars to glyphs 
+;; 1. chars to glyphs
 ;;
 ;; Rules will not be applied to the halant appeared at the end of the
 ;; text.  Also, the preceding/following "r" will be treated as special case.
@@ -130,8 +130,8 @@ PATTERN regexp."
 ;; Note that `consonant-glyph' mentioned here does not contain the
 ;; vertical bar (right modifier) attached at the right of the
 ;; consonant.
-;; 
-;; If the glyph-group contains right modifier, 
+;;
+;; If the glyph-group contains right modifier,
 ;;  (1) consonant-glyphs/vowels, with nukta sign
 ;;  (2) spacing
 ;;  (3) right modifier (may be matra)
@@ -140,11 +140,11 @@ PATTERN regexp."
 ;;  (6) anuswar
 ;;  (7) following "r"
 ;;  (8) bottom matra or halant.
-;; 
-;; Otherwise, 
+;;
+;; Otherwise,
 ;;  (1) consonant-glyph/vowels, with nukta sign
 ;;  (3) left matra
-;;  (4) top matra 
+;;  (4) top matra
 ;;  (5) preceding "r"
 ;;  (6) anuswar
 ;;  (7) following "r"
@@ -186,15 +186,15 @@ PATTERN regexp."
     ("$,15M5A(B" . "$,4 b"$(B")
     ("$,15M5B(B" . "$,4 b"$(B")
     ("$,16%(B" . "\$,4"L(B")
-    ("$,15N(B" . "$,4 b"@(B") 
-    ("$,15N5A(B" . "$,4 b"@"&(B") 
+    ("$,15N(B" . "$,4 b"@(B")
+    ("$,15N5A(B" . "$,4 b"@"&(B")
     ("$,16&(B" . "\$,4"@(B")
     ("$,16&5A(B" . "\$,4"@(B\$,4"&(B")
-    ("$,15O(B" . "$,4 b(B") 
+    ("$,15O(B" . "$,4 b(B")
     ("$,16'(B" . "\$,4"D(B")
     ("$,16'5A(B" . "\$,4"D(B\$,4"&(B")
-    ("$,15P(B" . "$,4 b"D(B") 
-    ("$,15P5A(B" . "$,4 b"D"&(B") 
+    ("$,15P(B" . "$,4 b"D(B")
+    ("$,15P5A(B" . "$,4 b"D"&(B")
     ("$,16((B" . "\$,4"H(B")
     ("$,16(5A(B" . "\$,4"H(B\$,4"&(B")
     ("$,15Q(B" . "$,4 K")"L(B") ;; special rule for reodering.
@@ -203,21 +203,21 @@ PATTERN regexp."
     ("$,16)(B" . "\$,4")"L(B")
     ("$,16)5A(B" . "\$,4")"$(B")
     ("$,16)5B(B" . "\$,4")"$(B")
-    ("$,15R(B" . "$,4 K")"@(B") 
-    ("$,15R5A(B" . "$,4 K")"@"&(B") 
+    ("$,15R(B" . "$,4 K")"@(B")
+    ("$,15R5A(B" . "$,4 K")"@"&(B")
     ("$,16*(B" . "\$,4")"@(B")
     ("$,16*5A(B" . "\$,4")"@"&(B")
     ("$,15S(B" . "$,4 K")"D(B")
     ("$,15S5A(B" . "$,4 K")"D"&(B")
     ("$,16+(B" . "\$,4")"D(B")
     ("$,16+5A(B" . "\$,4")"D"&(B")
-    ("$,15T(B" . "$,4 K")"H(B") 
-    ("$,15T5A(B" . "$,4 K")"H"&(B") 
+    ("$,15T(B" . "$,4 K")"H(B")
+    ("$,15T5A(B" . "$,4 K")"H"&(B")
     ("$,16,(B" . "\$,4")"H(B")
     ("$,16,5A(B" . "\$,4")"H"&(B")
-    ("$,16@(B" . "$,4 a"Q(B") 
+    ("$,16@(B" . "$,4 a"Q(B")
     ;;("$,16B(B" . nil)
-    ;;("$,16A(B" . nil) 
+    ;;("$,16A(B" . nil)
     ;;("$,16C(B" . nil)
 
     ;; GRUTTALS
@@ -233,69 +233,69 @@ PATTERN regexp."
     ("$,15V6-5p(B" . "$,4 l")(B")
     ("$,15V6-5p6-(B" . "$,4 l(B")
 
-    ("$,15W(B" . "$,4 m")(B") 
-    ("$,15W6-(B" . "$,4 m(B") 
+    ("$,15W(B" . "$,4 m")(B")
+    ("$,15W6-(B" . "$,4 m(B")
     ("$,15W6-5p(B" . "$,4 o")(B")
     ("$,15W6-5p6-(B" . "$,4 o(B")
 
-    ("$,15X(B" . "$,4 p")(B") 
-    ("$,15X6-(B" . "$,4 p(B") 
-    ("$,15X6-5p(B" . "$,4 q")(B") 
-    ("$,15X6-5p6-(B" . "$,4 q(B") 
+    ("$,15X(B" . "$,4 p")(B")
+    ("$,15X6-(B" . "$,4 p(B")
+    ("$,15X6-5p(B" . "$,4 q")(B")
+    ("$,15X6-5p6-(B" . "$,4 q(B")
 
     ("$,15Y(B" . "$,4 r"S(B")
-    ;; PALATALS  
-    ("$,15Z(B" . "$,4 s")(B") 
-    ("$,15Z6-(B" . "$,4 s(B") 
-    ("$,15Z6-5p(B" . "$,4 t")(B") 
+    ;; PALATALS
+    ("$,15Z(B" . "$,4 s")(B")
+    ("$,15Z6-(B" . "$,4 s(B")
+    ("$,15Z6-5p(B" . "$,4 t")(B")
     ("$,15Z6-5p6-(B" . "$,4 t(B")
 
-    ("$,15[(B" . "$,4 u"T(B") 
+    ("$,15[(B" . "$,4 u"T(B")
 
-    ("$,15\(B" . "$,4 v")(B") 
-    ("$,15\6-(B" . "$,4 v(B") 
-    ("$,15\6-5p(B" . "$,4 x")(B") 
-    ("$,15\6-5p6-(B" . "$,4 x(B") 
-    ("$,15\6-5^(B" . "$,4 y")(B") 
-    ("$,15\6-5^6-(B" . "$,4 y(B") 
+    ("$,15\(B" . "$,4 v")(B")
+    ("$,15\6-(B" . "$,4 v(B")
+    ("$,15\6-5p(B" . "$,4 x")(B")
+    ("$,15\6-5p6-(B" . "$,4 x(B")
+    ("$,15\6-5^(B" . "$,4 y")(B")
+    ("$,15\6-5^6-(B" . "$,4 y(B")
 
-    ("$,15](B" . "$,4 z")(B") 
-    ("$,15]6-(B" . "$,4 z(B") 
-    ("$,15]6-5p(B" . "$,4 {")(B") 
-    ("$,15]6-5p6-(B" . "$,4 {(B") 
+    ("$,15](B" . "$,4 z")(B")
+    ("$,15]6-(B" . "$,4 z(B")
+    ("$,15]6-5p(B" . "$,4 {")(B")
+    ("$,15]6-5p6-(B" . "$,4 {(B")
 
     ("$,15^(B" . "$,4 |")(B")
     ("$,15^6-(B" . "$,4 |(B")
-    ;; CEREBRALS 
+    ;; CEREBRALS
     ("$,15_(B" . "$,4 }"U(B")
     ("$,15_6-5_(B" . "$,4 ~"U(B")
     ("$,15_6-5`(B" . "$,4 "U(B")
 
-    ("$,15`(B" . "$,4! "V(B") 
-    ("$,15`6-5`(B" . "$,4!!"V(B") 
+    ("$,15`(B" . "$,4! "V(B")
+    ("$,15`6-5`(B" . "$,4!!"V(B")
 
-    ("$,15a(B" . "$,4!""W(B") 
-    ("$,15a6-5a(B" . "$,4!$"W(B") 
-    ("$,15a6-5b(B" . "$,4!%"W(B") 
+    ("$,15a(B" . "$,4!""W(B")
+    ("$,15a6-5a(B" . "$,4!$"W(B")
+    ("$,15a6-5b(B" . "$,4!%"W(B")
 
-    ("$,15b(B" . "$,4!&"X(B") 
+    ("$,15b(B" . "$,4!&"X(B")
 
     ("$,15c(B" . "$,4!(")(B")
     ("$,15c6-(B" . "$,4!((B")
-    ;; DENTALS   
-    ("$,15d(B" . "$,4!)")(B") 
-    ("$,15d6-(B" . "$,4!)(B") 
-    ("$,15d6-5p(B" . "$,4!*")(B") 
-    ("$,15d6-5p6-(B" . "$,4!*(B") 
-    ("$,15d6-5d(B" . "$,4!+")(B") 
-    ("$,15d6-5d6-(B" . "$,4!+(B") 
-
-    ("$,15e(B" . "$,4!,")(B") 
-    ("$,15e6-(B" . "$,4!,(B") 
-    ("$,15e6-5p(B" . "$,4!-")(B") 
-    ("$,15e6-5p6-(B" . "$,4!-(B") 
-
-    ("$,15f(B" . "$,4!."Y(B") 
+    ;; DENTALS
+    ("$,15d(B" . "$,4!)")(B")
+    ("$,15d6-(B" . "$,4!)(B")
+    ("$,15d6-5p(B" . "$,4!*")(B")
+    ("$,15d6-5p6-(B" . "$,4!*(B")
+    ("$,15d6-5d(B" . "$,4!+")(B")
+    ("$,15d6-5d6-(B" . "$,4!+(B")
+
+    ("$,15e(B" . "$,4!,")(B")
+    ("$,15e6-(B" . "$,4!,(B")
+    ("$,15e6-5p(B" . "$,4!-")(B")
+    ("$,15e6-5p6-(B" . "$,4!-(B")
+
+    ("$,15f(B" . "$,4!."Y(B")
     ("$,15f6#(B" . "$,4!/"Y(B")
     ("$,15f6-5p(B" . "$,4!0"Y(B")
     ("$,15f6-5f(B" . "$,4!1"Y(B")
@@ -304,61 +304,61 @@ PATTERN regexp."
     ("$,15f6-5o(B" . "$,4!4(B")
     ("$,15f6-5u(B" . "$,4!5"Y(B")
 
-    ("$,15g(B" . "$,4!6")(B") 
-    ("$,15g6-(B" . "$,4!6(B") 
-    ("$,15g6-5p(B" . "$,4!7")(B") 
-    ("$,15g6-5p6-(B" . "$,4!7(B") 
+    ("$,15g(B" . "$,4!6")(B")
+    ("$,15g6-(B" . "$,4!6(B")
+    ("$,15g6-5p(B" . "$,4!7")(B")
+    ("$,15g6-5p6-(B" . "$,4!7(B")
 
-    ("$,15h(B" . "$,4!8")(B") 
-    ("$,15h6-(B" . "$,4!8(B") 
-    ("$,15h6-5p(B" . "$,4!9")(B") 
-    ("$,15h6-5p6-(B" . "$,4!9")(B") 
-    ("$,15h6-5h(B" . "$,4!:")(B") 
-    ("$,15h6-5h6-(B" . "$,4!:(B") 
+    ("$,15h(B" . "$,4!8")(B")
+    ("$,15h6-(B" . "$,4!8(B")
+    ("$,15h6-5p(B" . "$,4!9")(B")
+    ("$,15h6-5p6-(B" . "$,4!9")(B")
+    ("$,15h6-5h(B" . "$,4!:")(B")
+    ("$,15h6-5h6-(B" . "$,4!:(B")
 
     ("$,15i(B" . "$,4!8"#")(B")
-    ;; LABIALS   
-    ("$,15j(B" . "$,4!;")(B") 
-    ("$,15j6-(B" . "$,4!;(B") 
-    ("$,15j6-5p(B" . "$,4!<")(B") 
-    ("$,15j6-5p6-(B" . "$,4!<(B") 
-
-    ("$,15k(B" . "$,4!a"[(B") 
-    ("$,15k6-(B" . "$,4!=(B") 
-    ("$,15k6-5p(B" . "$,4!c"[(B") 
-
-    ("$,15l(B" . "$,4!d")(B") 
-    ("$,15l6-(B" . "$,4!d(B") 
-    ("$,15l6-5p(B" . "$,4!e")(B") 
-    ("$,15l6-5p6-(B" . "$,4!e(B") 
-
-    ("$,15m(B" . "$,4!f")(B") 
-    ("$,15m6-(B" . "$,4!f(B") 
-    ("$,15m6-5p(B" . "$,4!g")(B") 
-    ("$,15m6-5p6-(B" . "$,4!g(B") 
+    ;; LABIALS
+    ("$,15j(B" . "$,4!;")(B")
+    ("$,15j6-(B" . "$,4!;(B")
+    ("$,15j6-5p(B" . "$,4!<")(B")
+    ("$,15j6-5p6-(B" . "$,4!<(B")
+
+    ("$,15k(B" . "$,4!a"[(B")
+    ("$,15k6-(B" . "$,4!=(B")
+    ("$,15k6-5p(B" . "$,4!c"[(B")
+
+    ("$,15l(B" . "$,4!d")(B")
+    ("$,15l6-(B" . "$,4!d(B")
+    ("$,15l6-5p(B" . "$,4!e")(B")
+    ("$,15l6-5p6-(B" . "$,4!e(B")
+
+    ("$,15m(B" . "$,4!f")(B")
+    ("$,15m6-(B" . "$,4!f(B")
+    ("$,15m6-5p(B" . "$,4!g")(B")
+    ("$,15m6-5p6-(B" . "$,4!g(B")
 
     ("$,15n(B" . "$,4!h")(B")
     ("$,15n6-(B" . "$,4!h(B")
     ("$,15n6-5p(B" . "$,4!i")(B")
     ("$,15n6-5p6-(B" . "$,4!i(B")
     ;; SEMIVOWELS
-    ("$,15o(B" . "$,4!j")(B") 
-    ("$,15o6-(B" . "$,4!j(B") 
-    ("$,15o6-5p(B" . "$,4!k")(B") 
-    ("$,15o6-5p6-(B" . "$,4!k(B") 
+    ("$,15o(B" . "$,4!j")(B")
+    ("$,15o6-(B" . "$,4!j(B")
+    ("$,15o6-5p(B" . "$,4!k")(B")
+    ("$,15o6-5p6-(B" . "$,4!k(B")
     ("$,16-5o(B" . "$,4!l(B") ;; when every ohter lig. fails.
 
-    ("$,15p(B" . "$,4!n"W(B") 
+    ("$,15p(B" . "$,4!n"W(B")
     ;; ("$,15p6-(B" . "\$,4"'(B") ;; special case.  only the topmost pos.
-    ("$,15q(B" . "$,4!n"#"W(B") 
+    ("$,15q(B" . "$,4!n"#"W(B")
     ("$,15q6-(B" . "$,4!m(B") ;; IS 13194 speical rule.
-    ("$,15p6!(B" . "$,4!o"[(B") 
-    ("$,15p6"(B" . "$,4!p"\(B") 
+    ("$,15p6!(B" . "$,4!o"[(B")
+    ("$,15p6"(B" . "$,4!p"\(B")
 
-    ("$,15r(B" . "$,4!q")(B") 
-    ("$,15r6-(B" . "$,4!q(B") 
-    ("$,15s(B" . "$,4!s(B") 
-    ("$,15s6-(B" . "$,4!r(B") 
+    ("$,15r(B" . "$,4!q")(B")
+    ("$,15r6-(B" . "$,4!q(B")
+    ("$,15s(B" . "$,4!s(B")
+    ("$,15s6-(B" . "$,4!r(B")
     ("$,15t(B" . "$,4!s"#(B")
     ("$,15t6-(B" . "$,4!r"#(B")
 
@@ -366,8 +366,8 @@ PATTERN regexp."
     ("$,15u6-(B" . "$,4!t(B")
     ("$,15u6-5p(B" . "$,4!u")(B")
     ("$,15u6-5p6-(B" . "$,4!u(B")
-    ;; SIBILANTS 
-    ("$,15v(B" . "$,4!v")(B") 
+    ;; SIBILANTS
+    ("$,15v(B" . "$,4!v")(B")
     ("$,15v6-(B" . "$,4!v(B")
     ("$,15v6-5u(B" . "$,4!w")(B")
     ("$,15v6-5u6-(B" . "$,4!w(B")
@@ -387,42 +387,42 @@ PATTERN regexp."
     ("$,15y6-5p(B" . "$,4!(B")
     ("$,15y6-5n(B" . "$,4" (B")
     ("$,15y6-5o(B" . "$,4"!(B")
-    ;; NUKTAS    
+    ;; NUKTAS
     ("$,168(B" . "$,4 f"R"S(B")
-    ("$,1686-(B" . "$,4 d(B") 
-    ("$,169(B" . "$,4 k")(B") 
-    ("$,1696-(B" . "$,4 k(B") 
-    ("$,16:(B" . "$,4 n")(B") 
-    ("$,16:6-(B" . "$,4 n(B") 
-    ("$,16;(B" . "$,4 w")(B") 
-    ("$,16;6-(B" . "$,4 w(B") 
-    ("$,16<(B" . "$,4!#"W(B") 
-    ("$,16=(B" . "$,4!'"X(B") 
-    ("$,16>(B" . "$,4!b"[(B") 
-    ("$,16>6-(B" . "$,4!>(B") 
+    ("$,1686-(B" . "$,4 d(B")
+    ("$,169(B" . "$,4 k")(B")
+    ("$,1696-(B" . "$,4 k(B")
+    ("$,16:(B" . "$,4 n")(B")
+    ("$,16:6-(B" . "$,4 n(B")
+    ("$,16;(B" . "$,4 w")(B")
+    ("$,16;6-(B" . "$,4 w(B")
+    ("$,16<(B" . "$,4!#"W(B")
+    ("$,16=(B" . "$,4!'"X(B")
+    ("$,16>(B" . "$,4!b"[(B")
+    ("$,16>6-(B" . "$,4!>(B")
     ("$,16?(B" . "$,4!j"#")(B")
     ;; misc modifiers.
     ("$,15A(B" . "\$,4"$(B")
-    ("$,15B(B" . "\$,4"&(B") 
+    ("$,15B(B" . "\$,4"&(B")
     ("$,15C(B" . "$,4 F(B")
     ("$,15|(B" . "$,4"#(B")
     ("$,15}(B" . "$,4 E(B")
     ("$,16-(B" . "$,4""(B")
     ("$,16-5p(B" . "$,4"%(B") ;; following "r"
-    ;; ("$,160(B" . "$,4 D(B") 
+    ;; ("$,160(B" . "$,4 D(B")
     ;; ("$,16D(B" . "$,4 J(B")
-    ;; ("$,16F(B" . "") 
-    ;; ("$,16G(B" . "") 
-    ;; ("$,16H(B" . "") 
-    ;; ("$,16I(B" . "") 
-    ;; ("$,16J(B" . "") 
-    ;; ("$,16K(B" . "") 
-    ;; ("$,16L(B" . "") 
-    ;; ("$,16M(B" . "") 
-    ;; ("$,16N(B" . "") 
+    ;; ("$,16F(B" . "")
+    ;; ("$,16G(B" . "")
+    ;; ("$,16H(B" . "")
+    ;; ("$,16I(B" . "")
+    ;; ("$,16J(B" . "")
+    ;; ("$,16K(B" . "")
+    ;; ("$,16L(B" . "")
+    ;; ("$,16M(B" . "")
+    ;; ("$,16N(B" . "")
     ;; ("$,16O(B" . "")
     )
-  "Devanagari characters to glyphs conversion table.  
+  "Devanagari characters to glyphs conversion table.
 Default value contains only the basic rules.  You may add your own
 preferred rule from the sanskrit fonts."  )
 
@@ -436,7 +436,7 @@ preferred rule from the sanskrit fonts."  )
   (devanagari-regexp-of-hashtbl-keys dev-char-glyph-hash))
 
 ;; glyph-to-glyph conversion table.
-;; it is supposed that glyphs are ordered in 
+;; it is supposed that glyphs are ordered in
 ;;   [consonant/nukta] - [matra/halant] - [preceding-r] - [anuswar].
 
 (defvar dev-glyph-glyph
@@ -497,7 +497,7 @@ preferred rule from the sanskrit fonts."  )
           (devanagari-range from to)))
 
 (defvar dev-glyph-cvn
-  (append 
+  (append
    (dev-charseq #x2b)
    (dev-charseq #x3c #xc1)
    (dev-charseq #xc3))
@@ -508,7 +508,7 @@ preferred rule from the sanskrit fonts."  )
   "Devanagari Spacing Glyphs")
 
 (defvar dev-glyph-right-modifier
-  (append 
+  (append
    (dev-charseq #xc9)
    (dev-charseq #xd2 #xd5))
   "Devanagari Modifiers attached at the right side.")
@@ -525,7 +525,7 @@ preferred rule from the sanskrit fonts."  )
   "Devanagari Matras attached at the top side.")
 
 (defvar dev-glyph-bottom-modifier
-  (append 
+  (append
    (dev-charseq #xd6 #xdf)
    (dev-charseq #xc2))
   "Devanagari Modifiers attached at the bottom.")
@@ -541,9 +541,9 @@ preferred rule from the sanskrit fonts."  )
     (,(dev-charseq #xc5) . 7)
     (,dev-glyph-bottom-modifier . 8)))
 
-(mapc 
+(mapc
  (function (lambda (x)
-   (mapc 
+   (mapc
      (function (lambda (y)
        (put-char-code-property y 'composition-order (cdr x))))
      (car x))))
@@ -563,7 +563,7 @@ preferred rule from the sanskrit fonts."  )
 (defun devanagari-compose-syllable-region (from to)
   "Compose devanagari syllable in region FROM to TO."
   (let ((glyph-str nil) (cons-num 0) glyph-str-list
-        (last-halant nil) (preceding-r nil) (last-modifier nil) 
+        (last-halant nil) (preceding-r nil) (last-modifier nil)
         (last-char (char-before to)) match-str
         glyph-block split-pos)
     (save-excursion
@@ -586,23 +586,23 @@ preferred rule from the sanskrit fonts."  )
         ;; translate the rest characters into glyphs
         (while (re-search-forward dev-char-glyph-regexp nil t)
           (setq match-str (match-string 0))
-          (setq glyph-str 
+          (setq glyph-str
                 (concat glyph-str
                         (gethash match-str dev-char-glyph-hash)))
           ;; count the number of consonant-glyhs.
           (if (string-match devanagari-consonant match-str)
               (setq cons-num (1+ cons-num))))
         ;; preceding-r must be attached before the anuswar if exists.
-        (if preceding-r 
+        (if preceding-r
             (if last-modifier
-                (setq glyph-str (concat (substring glyph-str 0 -1) 
+                (setq glyph-str (concat (substring glyph-str 0 -1)
                                         "$,4"'(B" (substring glyph-str -1)))
               (setq glyph-str (concat glyph-str "$,4"'(B"))))
         (if last-halant (setq glyph-str (concat glyph-str "$,4""(B")))
           ;;; *** glyph-to-glyph conversion ***
         (when (string-match dev-glyph-glyph-regexp glyph-str)
           (setq glyph-str
-                (replace-match (gethash (match-string 0 glyph-str) 
+                (replace-match (gethash (match-string 0 glyph-str)
                                         dev-glyph-glyph-hash)
                                nil t glyph-str))
           (if (and (> cons-num 1)
@@ -615,8 +615,8 @@ preferred rule from the sanskrit fonts."  )
         (while (setq split-pos (string-match "$,4""(B\\|.$" glyph-str))
           (setq glyph-block (substring glyph-str 0 (1+ split-pos)))
           (setq glyph-str (substring glyph-str (1+ split-pos)))
-          (setq 
-           glyph-block 
+          (setq
+           glyph-block
            (if (string-match dev-glyph-right-modifier-regexp glyph-block)
                (sort (string-to-list glyph-block)
                      (function (lambda (x y)
@@ -630,11 +630,11 @@ preferred rule from the sanskrit fonts."  )
           (setq glyph-str-list (nconc glyph-str-list glyph-block)))
           ;; concatenate and attach reference-points.
         (setq glyph-str
-              (cdr 
-               (apply 
-                'nconc 
-                (mapcar 
-                 (function (lambda (x) 
+              (cdr
+               (apply
+                'nconc
+                (mapcar
+                 (function (lambda (x)
                    (list
                     (or (get-char-code-property x 'reference-point)
                     '(5 . 3) ;; default reference point.
diff --git a/lisp/language/ethio-util.el b/lisp/language/ethio-util.el
index f61e1798526..3b59ddca661 100644
--- a/lisp/language/ethio-util.el
+++ b/lisp/language/ethio-util.el
@@ -103,7 +103,7 @@
 ;; but file I/O is done in SERA.
 ;;
 ;; If the filename ends in ".java", editing is done in fidel
-;; but file I/O is done in the \uXXXX style, where XXXX is 
+;; but file I/O is done in the \uXXXX style, where XXXX is
 ;; the Unicode codepoint for the Ethiopic character.
 ;;
 ;; If the filename ends in ".tex", editing is done in fidel
@@ -168,7 +168,7 @@ If nil, use uppercases.")
 ;;
 ;; SERA to FIDEL
 ;;
- 
+
 (defconst ethio-sera-to-fidel-table
   [
    nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
@@ -230,7 +230,7 @@ If nil, use uppercases.")
 ;;; I
    ("$(3"h(B" (?2 "$(3#:(B"))
 ;;; J
-   ("$(3#j(B" (?e "$(3#e(B") (?u "$(3#f(B") (?i "$(3#g(B") (?a "$(3#h(B") (?E "$(3#i(B") (?o "$(3#k(B") 
+   ("$(3#j(B" (?e "$(3#e(B") (?u "$(3#f(B") (?i "$(3#g(B") (?a "$(3#h(B") (?E "$(3#i(B") (?o "$(3#k(B")
          (?W "$(3#l(B" (?a "$(3#l(B")
                   (?e "$(3#j%n(B") (?u "$(3#j%r(B") (?i "$(3#j%o(B") (?E "$(3#j%q(B")))
 ;;; K
@@ -301,18 +301,18 @@ If nil, use uppercases.")
     (?! "$(3%t(B")
     (?e "$(3#5(B") (?u "$(3#6(B") (?U "$(3#6(B") (?i "$(3#7(B") (?a "$(3#8(B") (?A "$(3#8(B")
         (?E "$(3#9(B") (?I "$(3#:(B") (?o "$(3#;(B") (?O "$(3#;(B")
-    (?g "$(3%^(B" 
+    (?g "$(3%^(B"
         (?e "$(3%Y(B") (?u "$(3%Z(B") (?i "$(3%[(B") (?a "$(3%\(B") (?E "$(3%](B") (?o "$(3%_(B"))
     (?h "$(3"H(B"
         (?e "$(3"C(B") (?u "$(3"D(B") (?i "$(3"E(B") (?a "$(3"F(B") (?E "$(3"G(B") (?o "$(3"I(B")
                   (?W "$(3"P(B" (?e "$(3"K(B") (?u "$(3"P(B") (?i "$(3"M(B") (?a "$(3"N(B") (?E "$(3"O(B")))
-    (?k "$(3%>(B" 
+    (?k "$(3%>(B"
         (?e "$(3%9(B") (?u "$(3%:(B") (?i "$(3%;(B") (?a "$(3%<(B") (?E "$(3%=(B") (?o "$(3%?(B"))
-    (?s "$(3!F(B" 
+    (?s "$(3!F(B"
         (?e "$(3!A(B") (?u "$(3!B(B") (?i "$(3!C(B") (?a "$(3!D(B") (?E "$(3!E(B") (?o "$(3!G(B")
         (?W "$(3!H(B" (?a "$(3!H(B")
                    (?e "$(3!F%n(B") (?u "$(3!F%r(B") (?i "$(3!F%o(B") (?E "$(3!F%q(B")))
-    (?S "$(3$L(B" 
+    (?S "$(3$L(B"
         (?e "$(3$G(B") (?u "$(3$H(B") (?i "$(3$I(B") (?a "$(3$J(B") (?E "$(3$K(B") (?o "$(3$M(B")
         (?W "$(3$F(B" (?a "$(3$F(B")
                  (?e "$(3$L%n(B") (?u "$(3$L%r(B") (?i "$(3$L%o(B") (?E "$(3$L%q(B")))
@@ -337,7 +337,7 @@ If nil, use uppercases.")
          (?W "$(3%d(B" (?e "$(3%4(B") (?u "$(3%d(B") (?i "$(3%D(B") (?a "$(3$V(B") (?E "$(3%T(B"))
          (?Y "$(3$a(B" (?a "$(3$a(B")))
 ;;; g
-   ("$(3#r(B" (?e "$(3#m(B") (?u "$(3#n(B") (?i "$(3#o(B") (?a "$(3#p(B") (?E "$(3#q(B") (?o "$(3#s(B") 
+   ("$(3#r(B" (?e "$(3#m(B") (?u "$(3#n(B") (?i "$(3#o(B") (?a "$(3#p(B") (?E "$(3#q(B") (?o "$(3#s(B")
          (?W "$(3#z(B" (?e "$(3#u(B") (?u "$(3#z(B") (?i "$(3#w(B") (?a "$(3#x(B") (?E "$(3#y(B"))
          (?2 "$(3%^(B" (?e "$(3%Y(B") (?u "$(3%Z(B") (?i "$(3%[(B") (?a "$(3%\(B") (?E "$(3%](B") (?o "$(3%_(B")))
 ;;; h
@@ -348,7 +348,7 @@ If nil, use uppercases.")
 ;;; i
    ("$(3"e(B" (?2 "$(3#7(B"))
 ;;; j
-   ("$(3#j(B" (?e "$(3#e(B") (?u "$(3#f(B") (?i "$(3#g(B") (?a "$(3#h(B") (?E "$(3#i(B") (?o "$(3#k(B") 
+   ("$(3#j(B" (?e "$(3#e(B") (?u "$(3#f(B") (?i "$(3#g(B") (?a "$(3#h(B") (?E "$(3#i(B") (?o "$(3#k(B")
          (?W "$(3#l(B" (?a "$(3#l(B")
                   (?e "$(3#j%n(B") (?u "$(3#j%r(B") (?i "$(3#j%o(B") (?E "$(3#j%q(B")))
 ;;; k
@@ -580,7 +580,7 @@ the conversion of \"a\"."
         start table table2 ch)
 
     (setcar (aref ethio-sera-to-fidel-table ?a)
-            (if (eq lang 'tigrigna) "$(3"f(B" "$(3"c(B"))     
+            (if (eq lang 'tigrigna) "$(3"f(B" "$(3"c(B"))
 
     (while (and (not (eobp)) (null new-language))
       (setq ch (following-char))
@@ -773,7 +773,7 @@ Delete the escape even it is not recognised."
    ((or (string= flag "ti") (string= flag "tir")) 'tigrigna)
    ((or (string= flag "am") (string= flag "amh")) 'amharic)
    (t nil)))
-  
+
 (defun ethio-convert-digit nil
   "Convert Arabic digits to Ethiopic digits."
   (let (ch z)
@@ -1114,7 +1114,7 @@ See also the descriptions of the variables
                 fidel nil
                 digit t))
 
-         ;; reduction = 2 and following 10s, 100s, 10000s 
+         ;; reduction = 2 and following 10s, 100s, 10000s
          ((and (= ethio-numeric-reduction 2)
                (memq ch '(370 379 380)))
           (insert (substring (aref ethio-fidel-to-sera-map ch) 1))
@@ -1811,7 +1811,7 @@ Otherwise, [0-9A-F]."
         (insert (ethio-ethiocode-to-char (- ucode 64560))))
        (t
         nil)))
-    
+
     ;; gemination
     (goto-char (point-min))
     (while (re-search-forward "\\ce$(3%s(B" nil 0)
diff --git a/lisp/language/ethiopic.el b/lisp/language/ethiopic.el
index 27c7e77f4b7..b198cf43084 100644
--- a/lisp/language/ethiopic.el
+++ b/lisp/language/ethiopic.el
@@ -59,7 +59,7 @@
               (input-method . "ethiopic")
               (features ethio-util)
               (sample-text . "$(3$Q#U!.(B")
-              (documentation . 
+              (documentation .
 "This language envrironment provides these function key bindings
     \(old bindings are shown in parentheses):
     [f3]   ethio-fidel-to-sera-buffer         (f5)
diff --git a/lisp/language/european.el b/lisp/language/european.el
index 233c099b734..ed4607c6b9a 100644
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -582,7 +582,7 @@ but it selects the Dutch tutorial and input method."))
   (setq translation-table
         (make-translation-table-from-vector encoding-vector))
   (define-translation-table 'mac-roman-decoder translation-table)
-  (define-translation-table 'mac-roman-encoder 
+  (define-translation-table 'mac-roman-encoder
     (char-table-extra-slot translation-table 0)))
 
 (define-ccl-program decode-mac-roman
@@ -640,7 +640,7 @@ positions (integers or markers) specifying the region."
       (compose-string string idx (match-end 0))
       (setq idx (match-end 0))))
   string)
-      
+
 (defun diacritic-compose-buffer ()
   "Compose diacritic characters in the current buffer."
   (interactive)
diff --git a/lisp/language/ind-util.el b/lisp/language/ind-util.el
index aa40f6d02fb..dfd092dd00a 100644
--- a/lisp/language/ind-util.el
+++ b/lisp/language/ind-util.el
@@ -44,7 +44,7 @@
   "Returns the regular expression of hashtable keys."
   (let ((max-specpdl-size 1000))
     (regexp-opt
-     (sort 
+     (sort
       (let (dummy)
         (maphash (function (lambda (key val) (setq dummy (cons key dummy))))
                  hashtbl)
@@ -59,15 +59,15 @@
      (?$,15Q(B ?$,16)(B) (?$,15R(B ?$,16*(B) (?$,15S(B ?$,16+(B) (?$,15T(B ?$,16,(B) (?$,16@(B ?$,16B(B) (?$,16A(B ?$,16C(B))
     (;; CONSONANTS (currently 42, including special cases)
      ?$,15U(B ?$,15V(B ?$,15W(B ?$,15X(B ?$,15Y(B                  ;; GUTTRULS
-     ?$,15Z(B ?$,15[(B ?$,15\(B ?$,15](B ?$,15^(B                  ;; PALATALS  
-     ?$,15_(B ?$,15`(B ?$,15a(B ?$,15b(B ?$,15c(B                  ;; CEREBRALS 
-     ?$,15d(B ?$,15e(B ?$,15f(B ?$,15g(B ?$,15h(B ?$,15i(B              ;; DENTALS   
-     ?$,15j(B ?$,15k(B ?$,15l(B ?$,15m(B ?$,15n(B                  ;; LABIALS   
+     ?$,15Z(B ?$,15[(B ?$,15\(B ?$,15](B ?$,15^(B                  ;; PALATALS
+     ?$,15_(B ?$,15`(B ?$,15a(B ?$,15b(B ?$,15c(B                  ;; CEREBRALS
+     ?$,15d(B ?$,15e(B ?$,15f(B ?$,15g(B ?$,15h(B ?$,15i(B              ;; DENTALS
+     ?$,15j(B ?$,15k(B ?$,15l(B ?$,15m(B ?$,15n(B                  ;; LABIALS
      ?$,15o(B ?$,15p(B ?$,15q(B ?$,15r(B ?$,15s(B ?$,15t(B ?$,15u(B          ;; SEMIVOWELS
-     ?$,15v(B ?$,15w(B ?$,15x(B ?$,15y(B                    ;; SIBILANTS 
-     ?$,168(B ?$,169(B ?$,16:(B ?$,16;(B ?$,16<(B ?$,16=(B ?$,16>(B ?$,16?(B      ;; NUKTAS    
+     ?$,15v(B ?$,15w(B ?$,15x(B ?$,15y(B                    ;; SIBILANTS
+     ?$,168(B ?$,169(B ?$,16:(B ?$,16;(B ?$,16<(B ?$,16=(B ?$,16>(B ?$,16?(B      ;; NUKTAS
      "$,15\6-5^(B" "$,15U6-5w(B")
-    (;; Misc Symbols (7)  
+    (;; Misc Symbols (7)
      ?$,15A(B ?$,15B(B ?$,15C(B ?$,15}(B ?$,16-(B ?$,160(B ?$,16D(B)
     (;; Digits (10)
      ?$,16F(B ?$,16G(B ?$,16H(B ?$,16I(B ?$,16J(B ?$,16K(B ?$,16L(B ?$,16M(B ?$,16N(B ?$,16O(B)
@@ -85,7 +85,7 @@
 
 (defvar indian-base-table-to-language-alist
   '((indian-dev-base-table . "Devanagari")
-    (indian-pnj-base-table . "Punjabi")    
+    (indian-pnj-base-table . "Punjabi")
     (indian-ori-base-table . "Oriya")
     (indian-bng-base-table . "Bengali")
     (indian-asm-base-table . "Assamese")
@@ -100,11 +100,11 @@
      "a" ("aa" "A") "i" ("ii" "I") "u" ("uu" "U")
      ("RRi" "R^i") ("LLi" "L^i") (".c" "e.c") nil "e" "ai"
      "o.c"  nil   "o"   "au"  ("RRI" "R^I") ("LLI" "L^I"))
-    (;; consonants -- 40 
+    (;; consonants -- 40
      "k"   "kh"  "g"   "gh"  ("~N" "N^")
      "ch" ("Ch" "chh") "j" "jh" ("~n" "JN")
      "T"   "Th"  "D"   "Dh"  "N"
-     "t"   "th"  "d"   "dh"  "n"   "nh" 
+     "t"   "th"  "d"   "dh"  "n"   "nh"
      "p"   "ph"  "b"   "bh"  "m"
      "y"   "r"   "rh"  "l"   ("L" "ld") nil  ("v" "w")
      "sh" ("Sh" "shh") "s" "h"
@@ -196,10 +196,10 @@ arguments, with all possible combinations of these multiple SEQUENCES.
 Thus, if SEQ1 contains 3 elements and SEQ2 contains 5 elements, then
 FUNCTION will be called 15 times."
   (if seqrest
-      (mapcar 
+      (mapcar
        (lambda (x)
-         (apply 
-          'mapthread 
+         (apply
+          'mapthread
           `(lambda (&rest y) (apply ',function x y))
           seqrest))
        seq1)
@@ -225,7 +225,7 @@ FUNCTION will be called 15 times."
     (funcall f (pop l1) (pop l2))))
 
 (defun indian--puthash-v (v trans-v hashtbls)
-  (indian--map 
+  (indian--map
    (lambda (v trans-v)
      (indian--puthash-char (car v) trans-v hashtbls))
    v trans-v))
@@ -253,7 +253,7 @@ FUNCTION will be called 15 times."
           (setq v (if (char-valid-p (cadr v)) (char-to-string (cadr v)) ""))
           (if (stringp trans-c) (setq trans-c (list trans-c)))
           (if (stringp trans-v) (setq trans-v (list trans-v)))
-          (indian--puthash-char 
+          (indian--puthash-char
            (concat c v)
            (apply 'append
                   (mapthread 'concat trans-c trans-v))
@@ -277,7 +277,7 @@ FUNCTION will be called 15 times."
          (trans-digits  '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9")))
     (indian--puthash-v vowels trans-vowels hashtbls)
     (indian--puthash-c consonants trans-consonants halant hashtbls)
-    (indian--puthash-cv consonants trans-consonants 
+    (indian--puthash-cv consonants trans-consonants
                               vowels trans-vowels hashtbls)
     (indian--puthash-m misc trans-misc hashtbls)
     (indian--puthash-m digits trans-digits hashtbls)
@@ -298,13 +298,13 @@ FUNCTION will be called 15 times."
 (defmacro indian-translate-region (from to hashtable encode-p)
   `(save-excursion
      (save-restriction
-       (let ((regexp ,(indian-regexp-of-hashtbl-keys 
-                       (if encode-p (car (eval hashtable)) 
+       (let ((regexp ,(indian-regexp-of-hashtbl-keys
+                       (if encode-p (car (eval hashtable))
                          (cdr (eval hashtable))))))
          (narrow-to-region from to)
          (goto-char (point-min))
          (while (re-search-forward regexp nil t)
-           (let ((matchstr (gethash (match-string 0) 
+           (let ((matchstr (gethash (match-string 0)
                                     (if ,encode-p
                                         (car ,hashtable)
                                       (cdr ,hashtable)))))
@@ -314,7 +314,7 @@ FUNCTION will be called 15 times."
 
 (defun indian-dev-itrans-v5-encode-region (from to)
   (interactive "r")
-  (indian-translate-region 
+  (indian-translate-region
    from to indian-dev-itrans-v5-hash t))
 
 (defun indian-dev-itrans-v5-decode-region (from to)
@@ -324,7 +324,7 @@ FUNCTION will be called 15 times."
 
 (defun indian-dev-kyoto-harvard-encode-region (from to)
   (interactive "r")
-  (indian-translate-region 
+  (indian-translate-region
    from to indian-dev-kyoto-harvard-hash t))
 
 (defun indian-dev-kyoto-harvard-decode-region (from to)
@@ -334,7 +334,7 @@ FUNCTION will be called 15 times."
 
 (defun indian-dev-aiba-encode-region (from to)
   (interactive "r")
-  (indian-translate-region 
+  (indian-translate-region
    from to indian-dev-aiba-hash t))
 
 (defun indian-dev-aiba-decode-region (from to)
@@ -525,18 +525,18 @@ FUNCTION will be called 15 times."
 (defvar is13194-to-ucs-malayalam-hashtbl nil)
 (defvar is13194-to-ucs-malayalam-regexp nil)
 
-(mapc 
- (function (lambda (script) 
-   (let ((hashtable (intern (concat "is13194-to-ucs-" 
+(mapc
+ (function (lambda (script)
+   (let ((hashtable (intern (concat "is13194-to-ucs-"
                                     (symbol-name script) "-hashtbl" )))
          (regexp    (intern (concat "is13194-to-ucs-"
                                     (symbol-name script) "-regexp"))))
      (set hashtable (make-hash-table :test 'equal :size 128))
      (mapc
       (function (lambda (x)
-        (put-char-code-property (decode-char 'ucs (car x)) 
+        (put-char-code-property (decode-char 'ucs (car x))
                                 'script script)
-        (put-char-code-property (decode-char 'ucs (car x)) 
+        (put-char-code-property (decode-char 'ucs (car x))
                                 'iscii (cdr x))
         (puthash (cdr x) (char-to-string (decode-char 'ucs (car x)))
                  (eval hashtable))))
@@ -553,7 +553,7 @@ FUNCTION will be called 15 times."
   "Regexp that matches to conversion")
 
 (defun ucs-to-iscii-region (from to)
-  "Converts the indian UCS characters in the region to ISCII.  
+  "Converts the indian UCS characters in the region to ISCII.
 Returns new end position."
   (interactive "r")
   ;; only Devanagari is supported now.
@@ -563,13 +563,13 @@ Returns new end position."
       (goto-char (point-min))
       (let* ((current-repertory is13194-default-repartory))
         (while (re-search-forward ucs-to-is13194-regexp nil t)
-          (replace-match 
+          (replace-match
            (get-char-code-property (string-to-char (match-string 0))
                                    'iscii))))
       (point-max))))
 
 (defun iscii-to-ucs-region (from to)
-  "Converts the ISCII characters in the region to UCS.  
+  "Converts the ISCII characters in the region to UCS.
 Returns new end position."
   (interactive "r")
   ;; only Devanagari is supported now.
@@ -579,13 +579,13 @@ Returns new end position."
       (goto-char (point-min))
       (let* ((current-repertory is13194-default-repartory)
              (current-hashtable
-              (intern (concat "is13194-to-ucs-" 
+              (intern (concat "is13194-to-ucs-"
                               (symbol-name current-repertory) "-hashtbl")))
              (current-regexp
-              (intern (concat "is13194-to-ucs-" 
+              (intern (concat "is13194-to-ucs-"
                               (symbol-name current-repertory) "-regexp"))))
         (while (re-search-forward (eval current-regexp) nil t)
-          (replace-match 
+          (replace-match
            (gethash (match-string 0) (eval current-hashtable) ""))))
       (point-max))))
 
@@ -603,7 +603,7 @@ Returns new end position."
 
 ;;;###autoload
 (defun indian-compose-string (string)
-  (with-temp-buffer 
+  (with-temp-buffer
     (insert string)
     (indian-compose-region (point-min) (point-max))
     (buffer-string)))
@@ -1029,7 +1029,7 @@ See also the function `indian-glyph-char'."
         (error "Invalid indian-glyph char: %d" char))
     (setq code (+ (* (- (nth 1 split) 32) 96) (nth 2 split) -32))
     (cons (% code 256) (aref indian-script-table (/ code 256)))))
-    
+
 (provide 'ind-util)
- 
+
 ;;; ind-util.el ends here
diff --git a/lisp/language/japan-util.el b/lisp/language/japan-util.el
index 465477c6550..97554d1c0de 100644
--- a/lisp/language/japan-util.el
+++ b/lisp/language/japan-util.el
@@ -135,7 +135,7 @@ belongs to `japanese-jisx0201-kana'.")
 (defconst japanese-alpha-numeric-table
   '((?$B#0(B . ?0) (?$B#1(B . ?1) (?$B#2(B . ?2) (?$B#3(B . ?3) (?$B#4(B . ?4)
     (?$B#5(B . ?5) (?$B#6(B . ?6) (?$B#7(B . ?7) (?$B#8(B . ?8) (?$B#9(B . ?9)
-    (?$B#A(B . ?A) (?$B#B(B . ?B) (?$B#C(B . ?C) (?$B#D(B . ?D) (?$B#E(B . ?E) 
+    (?$B#A(B . ?A) (?$B#B(B . ?B) (?$B#C(B . ?C) (?$B#D(B . ?D) (?$B#E(B . ?E)
     (?$B#F(B . ?F) (?$B#G(B . ?G) (?$B#H(B . ?H) (?$B#I(B . ?I) (?$B#J(B . ?J)
     (?$B#K(B . ?K) (?$B#L(B . ?L) (?$B#M(B . ?M) (?$B#N(B . ?N) (?$B#O(B . ?O)
     (?$B#P(B . ?P) (?$B#Q(B . ?Q) (?$B#R(B . ?R) (?$B#S(B . ?S) (?$B#T(B . ?T)
diff --git a/lisp/language/lao-util.el b/lisp/language/lao-util.el
index 0f8d472bdde..7105ae1beb6 100644
--- a/lisp/language/lao-util.el
+++ b/lisp/language/lao-util.el
@@ -86,7 +86,7 @@
            (?(1Q(B vowel-upper "VOWEL SIGN MAI KAN")
            (?(1R(B vowel-base "VOWEL SIGN SARA AR")
            (?(1S(B vowel-base "VOWEL SIGN SARA AM")
-           (?(1T(B vowel-upper "VOWEL SIGN SARA I") 
+           (?(1T(B vowel-upper "VOWEL SIGN SARA I")
            (?(1U(B vowel-upper "VOWEL SIGN SARA II")
            (?(1V(B vowel-upper "VOWEL SIGN SARA EU")
            (?(1W(B vowel-upper "VOWEL SIGN SARA UR")
@@ -104,7 +104,7 @@
            (?(1c(B vowel-base "VOWEL SIGN SARA EI MAI MUAN\"")
            (?(1d(B vowel-base "VOWEL SIGN SARA AI MAI MAY")
            (?(1e(B invalid nil)
-           (?(1f(B special "KO LA (REPETITION)") 
+           (?(1f(B special "KO LA (REPETITION)")
            (?(1g(B invalid nil)
            (?(1h(B tone "TONE MAI EK")
            (?(1i(B tone "TONE MAI THO")
@@ -162,7 +162,7 @@
            (?$,1DQ(B vowel-upper "VOWEL SIGN MAI KAN")
            (?$,1DR(B vowel-base "VOWEL SIGN SARA AR")
            (?$,1DS(B vowel-base "VOWEL SIGN SARA AM")
-           (?$,1DT(B vowel-upper "VOWEL SIGN SARA I") 
+           (?$,1DT(B vowel-upper "VOWEL SIGN SARA I")
            (?$,1DU(B vowel-upper "VOWEL SIGN SARA II")
            (?$,1DV(B vowel-upper "VOWEL SIGN SARA EU")
            (?$,1DW(B vowel-upper "VOWEL SIGN SARA UR")
diff --git a/lisp/language/thai-util.el b/lisp/language/thai-util.el
index bbf116485ea..58588f974d7 100644
--- a/lisp/language/thai-util.el
+++ b/lisp/language/thai-util.el
@@ -265,7 +265,7 @@ positions (integers or markers) specifying the region."
         (compose-string string idx (match-end 0))
         (setq idx (match-end 0)))))
   string)
-      
+
 ;;;###autoload
 (defun thai-compose-buffer ()
   "Compose Thai characters in the current buffer."
diff --git a/lisp/language/thai.el b/lisp/language/thai.el
index 1c1909976a5..f822e93bd1b 100644
--- a/lisp/language/thai.el
+++ b/lisp/language/thai.el
@@ -50,7 +50,7 @@
           (input-method . "thai-kesmanee")
           (unibyte-display . thai-tis620)
           (features thai-util)
-          (sample-text 
+          (sample-text
            . (thai-compose-string
               (copy-sequence "Thai (,T@RIRd7B(B)              ,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B")))
           (documentation . t)))
diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el
index 14987e22663..2336b988fd0 100644
--- a/lisp/language/tibet-util.el
+++ b/lisp/language/tibet-util.el
@@ -163,7 +163,7 @@ The returned string has no composition information."
     ;; If 'a follows a consonant, turn it into the subjoined form.
     ;; * Disabled by Tomabechi 2000/06/09 *
     ;; Because in Unicode, $(7"A(B may follow directly a consonant without
-    ;; any intervening vowel, as in 4$(7"90"914""0"""Q14"A0"A1!;(B=4$(7"90"91(B 4$(7""0""1(B 4$(7"A0"A1(B not 4$(7"90"91(B 4$(7""0""1(B $(7"Q(B 4$(7"A0"A1(B  
+    ;; any intervening vowel, as in 4$(7"90"914""0"""Q14"A0"A1!;(B=4$(7"90"91(B 4$(7""0""1(B 4$(7"A0"A1(B not 4$(7"90"91(B 4$(7""0""1(B $(7"Q(B 4$(7"A0"A1(B
     ;;(if (and (= char ?$(7"A(B)
     ;;       (aref (char-category-set (car last)) ?0))
     ;;  (setq char ?$(7"R(B)) ;; modified for new font by Tomabechi 1999/12/10
@@ -370,7 +370,7 @@ See also docstring of the function tibetan-compose-region."
 
 ;;;
 ;;; Unicode-related definitions.
-;;; 
+;;;
 
 (defvar tibetan-canonicalize-for-unicode-alist
   '(("$(7"Q(B" . "")  ;; remove vowel a
diff --git a/lisp/language/tibetan.el b/lisp/language/tibetan.el
index e85f4132124..3ca1da9d839 100644
--- a/lisp/language/tibetan.el
+++ b/lisp/language/tibetan.el
@@ -27,7 +27,7 @@
 ;; Created: Feb. 17. 1997
 
 ;; History:
-;; 1997.03.13 Modification for special signs and punctuations. 
+;; 1997.03.13 Modification for special signs and punctuations.
 
 ;;; Commentary:
 
@@ -55,7 +55,7 @@
 ;;;2260 $(7"`(B $(7"a(B $(7"b(B $(7"c(B $(7"d(B $(7"e(B $(7"f(B $(7"g(B $(7"h(B $(7"i(B $(7"j(B $(7"k(B $(7"l(B $(7"m(B $(7"n(B $(7"o(B ; Long vowels and
 ;;;2270 $(7"p(B $(7"q(B $(7"r(B $(7"s(B $(7"t(B $(7"u(B $(7"v(B $(7"w(B $(7"x(B $(7"y(B $(7"z(B $(7"{(B $(7"|(B $(7"}(B $(7"~(B // ; vocalic r, l ARE
 ;;;                                                     ; atomically
-;;;                                                     ; encoded. 
+;;;                                                     ; encoded.
 ;;;     00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F
 ;;;2320 // $(7#!(B $(7#"(B $(7##(B $(7#$(B $(7#%(B $(7#&(B $(7#'(B $(7#((B $(7#)(B $(7#*(B $(7#+(B $(7#,(B $(7#-(B $(7#.(B $(7#/(B ; Subjoined consonants
 ;;;2330 $(7#0(B $(7#1(B $(7#2(B $(7#3(B $(7#4(B $(7#5(B $(7#6(B $(7#7(B $(7#8(B $(7#9(B $(7#:(B $(7#;(B $(7#<(B $(7#=(B $(7#>(B $(7#?(B ;
@@ -69,7 +69,7 @@
 ;;;2430 $(7$0(B $(7$1(B $(7$2(B $(7$3(B $(7$4(B $(7$5(B $(7$6(B $(7$7(B $(7$8(B $(7$9(B $(7$:(B $(7$;(B $(7$<(B $(7$=(B $(7$>(B $(7$?(B ; consonants for
 ;;;2440 $(7$@(B $(7$A(B $(7$B(B $(7$C(B $(7$D(B $(7$E(B $(7$F(B $(7$G(B $(7$H(B $(7$I(B $(7$J(B $(7$K(B $(7$L(B $(7$M(B $(7$N(B $(7$O(B ; ordinary Tibetan.
 ;;;2450 $(7$P(B $(7$Q(B $(7$R(B $(7$S(B $(7$T(B $(7$U(B $(7$V(B $(7$W(B $(7$X(B $(7$Y(B $(7$Z(B $(7$[(B $(7$\(B $(7$](B $(7$^(B $(7$_(B ; They are decomposed
-;;;2460 $(7$`(B $(7$a(B $(7$b(B $(7$c(B $(7$d(B $(7$e(B $(7$f(B $(7$g(B $(7$h(B $(7$i(B $(7$j(B $(7$k(B $(7$l(B $(7$m(B $(7$n(B $(7$o(B ; into base and 
+;;;2460 $(7$`(B $(7$a(B $(7$b(B $(7$c(B $(7$d(B $(7$e(B $(7$f(B $(7$g(B $(7$h(B $(7$i(B $(7$j(B $(7$k(B $(7$l(B $(7$m(B $(7$n(B $(7$o(B ; into base and
 ;;;2470 $(7$p(B $(7$q(B $(7$r(B $(7$s(B $(7$t(B $(7$u(B $(7$v(B $(7$w(B $(7$x(B $(7$y(B $(7$z(B $(7${(B $(7$|(B $(7$}(B $(7$~(B // ; subjoined consonants
 ;;;                                                     ; when written on a
 ;;;     00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F ; file in Tibetan
@@ -100,7 +100,7 @@
              (input-method . "tibetan-wylie")
              (features tibet-util)
              (documentation . t)
-             (sample-text 
+             (sample-text
               . (tibetan-compose-string
                  (copy-sequence
 "Tibetan (4$(7"7r'"]0"7"]14"20"21!;4%P0"G#!"Q14"20"21!;(B) $(7!4!5!5!>4"70"714$P0"!#C"Q1!;4"Er'"S0"E"S14"G0"G1!;4"70"714"2r'"[0"2"[1!;4"Dr'"[0"D"[14"#0"#14"G0"G1!>4"Ir'"]r'"_0"I"]"_1!;4"90"9"Q1!;4"/r'"S0"/"S1!;4"50"5"Q14#2x!#9r'"[0"2#9"[1!;4"Hx!"Rx!"Ur'"c0"H"A"U"c1!>(B")))))
diff --git a/lisp/language/vietnamese.el b/lisp/language/vietnamese.el
index aa1c71a8191..b3f09b9d5e9 100644
--- a/lisp/language/vietnamese.el
+++ b/lisp/language/vietnamese.el
@@ -38,7 +38,7 @@
    64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
    80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
    96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
-   112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 
+   112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
    ?,2U(B ?,2!(B ?,2"(B ?,2#(B ?,2$(B ?,2%(B ?,2&(B ?,2'(B ?,2((B ?,2)(B ?,2*(B ?,2+(B ?,2,(B ?,2-(B ?,2.(B ?,2/(B
    ?,20(B ?,21(B ?,22(B ?,25(B ?,2~(B ?,2>(B ?,26(B ?,27(B ?,28(B ?,2v(B ?,2w(B ?,2o(B ?,2|(B ?,2{(B ?,2x(B ?,2O(B
    ?,2u(B ?,1!(B ?,1"(B ?,1#(B ?,1$(B ?,1%(B ?,1&(B ?,1'(B ?,1((B ?,1)(B ?,1*(B ?,1+(B ?,1,(B ?,1-(B ?,1.(B ?,1/(B
@@ -66,7 +66,7 @@
    64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
    80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
    96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
-   112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 
+   112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
    ?,2`(B ?,2d(B ?,2c(B ?,2a(B ?,2U(B ?,2#(B ?,2'(B ?,2h(B ?,2k(B ?,2((B ?,2i(B ?,2)(B ?,2.(B ?,2l(B ?,2o(B ?,2n(B
    ?,2m(B ?,28(B ?,2r(B ?,2v(B ?,2u(B ?,2s(B ?,2w(B ?,25(B ?,26(B ?,27(B ?,2^(B ?,2>(B ?,2~(B ?,2y(B ?,2|(B ?,2{(B
    160 ?,2e(B ?,2b(B ?,2j(B ?,2t(B ?,2=(B ?,2_(B ?,2p(B ?,1e(B ?,1b(B ?,1j(B ?,1t(B ?,1=(B ?,1y(B ?,1p(B ?,2"(B
@@ -92,7 +92,7 @@
    64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
    80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
    96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
-   112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 
+   112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
    ?,2`(B ?,2d(B ?,2c(B ?,2a(B ?,2U(B ?,2#(B ?,2'(B ?,2h(B ?,2k(B ?,2((B ?,2i(B ?,2)(B ?,2.(B ?,2l(B ?,2o(B ?,2n(B
    ?,2m(B ?,28(B ?,2r(B ?,2v(B ?,2u(B ?,2s(B ?,2w(B ?,25(B ?,26(B ?,27(B ?,2^(B ?,2>(B ?,2~(B ?,2y(B ?,2|(B ?,2{(B
    160 ?,2e(B ?,2b(B ?,2j(B ?,2t(B ?,2=(B ?,2_(B ?,2p(B ?,1e(B ?,1b(B ?,1j(B ?,1t(B ?,1=(B ?,1_(B ?,1p(B ?,2"(B
@@ -127,7 +127,7 @@
 ;;    ?,1`(B ?,1a(B ?,1b(B ?,1c(B ?,1d(B ?,1U(B ?,1e(B 231 ?,1h(B ?,1i(B ?,1j(B ?,1((B ?,1l(B ?,1m(B 238 ?,1n(B
 ;;    ?,2G(B ?,2p(B ?,1r(B ?,1s(B ?,1t(B ?,1u(B 246 ?,2=(B ?,1x(B ?,1y(B ?,1z(B ?,1|(B 252 ?,2V(B ?,2((B ?,1O(B]
 ;;   "Vietnamese VPS decoding table.")
-;; 
+;;
 ;; (let ((table (make-translation-table-from-vector viet-vps-decode-table)))
 ;;   (define-translation-table 'viet-vps-nonascii-translation-table table)
 ;;   (define-translation-table 'viet-vps-encode-table
@@ -220,7 +220,7 @@
 ;;       (write-multibyte-character r0 r1)
 ;;       (repeat))))
 ;;   "CCL program to decode VPS.")
-;; 
+;;
 ;; (define-ccl-program ccl-encode-vps
 ;;   `(1
 ;;     ((loop
@@ -228,7 +228,7 @@
 ;;       (translate-character viet-vps-encode-table r0 r1)
 ;;       (write-repeat r1))))
 ;;   "CCL program to encode VPS.")
-;; 
+;;
 ;; (define-ccl-program ccl-encode-vps-font
 ;;   `(0
 ;;     ;; In:  R0:vietnamese-viscii-lower/vietnamese-viscii-upper
@@ -271,7 +271,7 @@
 ;;  '(ccl-decode-vps . ccl-encode-vps)
 ;;  '((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper)
 ;;    (valid-codes (0 . 255))))
-;; 
+;;
 ;; (define-coding-system-alias 'vps 'vietnamese-vps)
 
 (make-coding-system