("welsh"): Doc fix.

diff --git a/leim/quail/welsh.el b/leim/quail/welsh.el
index e585d3cb80088a95eba4377efcc5576fd97d6626..bbd81843b3421a5c097657a4aa08830a0c58513b 100644 (file)
--- a/leim/quail/welsh.el
+++ b/leim/quail/welsh.el
@@ -25,8 +25,6 @@
 ;;; Commentary:
 
 ;; Welsh input following the Yudit map by david@sheetmusic.org.uk.
-;; This is set up to produce utf-8.  A Latin-8 version of most of it
-;; is commented-out at the end.
 
 ;;; Code:
 
@@ -34,7 +32,7 @@
 
 (quail-define-package
  "welsh" "Welsh" "\e$,1!4\e(B" t
- "Welsh postfix input method, using Unicode"
+ "Welsh postfix input method."
  nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
@@ -118,91 +116,4 @@
  ;; "hawlfraint" (copyright).  Dyma arwyddlun hawlfraint.
  ("(h)" ?\e$,1\7fW\e(B))
 
-;; In the following line paren changed  to bracket to avoid an error
-;; message from quail-update-leim-list-file, which doesn't know about
-;; Lisp comments.
-;; [quail-define-package
-;;  "welsh" "Welsh" "\e$,1!4\e(B" t
-;;  "Welsh postfix input method, using Latin-8"
-;;  nil t nil nil nil nil nil nil nil nil t)
-
-;; (quail-define-rules
-;;  ("A\\" ?\e,A@\e(B)
-;;  ("A/" ?\e,AA\e(B)
-;;  ("A^" ?\e,AB\e(B)
-;;  ("A+" ?\e,AB\e(B)
-;;  ("A\"" ?\e,AD\e(B)
-;;  ("a\\" ?\e,A`\e(B)
-;;  ("a/" ?\e,Aa\e(B)
-;;  ("a^" ?\e,Ab\e(B)
-;;  ("a+" ?\e,Ab\e(B)
-;;  ("a\"" ?\e,Ad\e(B)
-
-;;  ("E\\" ?\e,AH\e(B)
-;;  ("E/" ?\e,AI\e(B)
-;;  ("E^" ?\e,AJ\e(B)
-;;  ("E+" ?\e,AJ\e(B)
-;;  ("E\"" ?\e,AK\e(B)
-;;  ("e\\" ?\e,Ah\e(B)
-;;  ("e/" ?\e,Ai\e(B)
-;;  ("e^" ?\e,Aj\e(B)
-;;  ("e+" ?\e,Aj\e(B)
-;;  ("e\"" ?\e,Ak\e(B)
-
-;;  ("I\\" ?\e,AL\e(B)
-;;  ("I/" ?\e,AM\e(B)
-;;  ("I^" ?\e,AN\e(B)
-;;  ("I+" ?\e,AN\e(B)
-;;  ("I\"" ?\e,AO\e(B)
-;;  ("i\\" ?\e,Al\e(B)
-;;  ("i/" ?\e,Am\e(B)
-;;  ("i^" ?\e,An\e(B)
-;;  ("i+" ?\e,An\e(B)
-;;  ("i\"" ?\e,Ao\e(B)
-
-;;  ("O\\" ?\e,AR\e(B)
-;;  ("O/" ?\e,AS\e(B)
-;;  ("O^" ?\e,AT\e(B)
-;;  ("O+" ?\e,AT\e(B)
-;;  ("O\"" ?\e,AV\e(B)
-;;  ("o\\" ?\e,Ar\e(B)
-;;  ("o/" ?\e,As\e(B)
-;;  ("o^" ?\e,At\e(B)
-;;  ("o+" ?\e,At\e(B)
-;;  ("o\"" ?\e,Av\e(B)
-
-;;  ("U\\" ?\e,AY\e(B)
-;;  ("U/" ?\e,AZ\e(B)
-;;  ("U^" ?\e,A[\e(B)
-;;  ("U+" ?\e,A[\e(B)
-;;  ("U\"" ?\e,A\\e(B)
-;;  ("u\\" ?\e,Ay\e(B)
-;;  ("u/" ?\e,Az\e(B)
-;;  ("u^" ?\e,A{\e(B)
-;;  ("u+" ?\e,A{\e(B)
-;;  ("u\"" ?\e,A|\e(B)
-
-;;  ("Y\\" ?\e,A,\e(B)
-;;  ("Y/" ?\e,A]\e(B)
-;;  ("Y^" ?\e,A^\e(B)
-;;  ("Y+" ?\e,A^\e(B)
-;;  ("Y\"" ?\e,A/\e(B)
-;;  ("y\\" ?\e,A<\e(B)
-;;  ("y/" ?\e,A}\e(B)
-;;  ("y\"" ?\e,A\7f\e(B)
-;;  ("y^" ?\e,A~\e(B)
-;;  ("y+" ?\e,A~\e(B)
-
-;;  ("W\\" ?\e,A(\e(B)
-;;  ("W/" ?\e,A*\e(B)
-;;  ("W^" ?\e,AP\e(B)
-;;  ("W+" ?\e,AP\e(B)
-;;  ("W\"" ?\e,A=\e(B)
-;;  ("w\\" ?\e,A8\e(B)
-;;  ("w/" ?\e,A:\e(B)
-;;  ("w^" ?\e,Ap\e(B)
-;;  ("w+" ?\e,Ap\e(B)
-;;  ("w\"" ?\e,A>\e(B))
-
-
 ;;; welsh.el ends here