Spelling fixes.

3 files changed, 3 insertions, 3 deletions

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 944a412fb63..543539421fe 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -2016,7 +2016,7 @@ extension EXTN.  Normally EXTN is given as the regular expression
 	   ((looking-at "final")
 	    (forward-char 5))
 
-	   ;; Move point past a ClassDeclaraction, but save the class
+	   ;; Move point past a ClassDeclaration, but save the class
 	   ;; Identifier.
 	   ((looking-at "class")
 	    (forward-char 5)
diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index c77ee4b76a9..95f67a6bf66 100644
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -8961,7 +8961,7 @@ This expects NAME TYPE IDLWAVE-TWIN-CLASS to be bound to the right values."
     (nth 1 source)))
 
 (defun idlwave-downcase-safe (string)
-  "Donwcase if string, else return unchanged."
+  "Downcase if string, else return unchanged."
   (if (stringp string)
       (downcase string)
     string))
diff --git a/lisp/progmodes/pascal.el b/lisp/progmodes/pascal.el
index 57ed13969b4..67e3c4a18b4 100644
--- a/lisp/progmodes/pascal.el
+++ b/lisp/progmodes/pascal.el
@@ -227,7 +227,7 @@ will do all lineups."
   :type '(set :extra-offset 8
 	      (const :tag "Everything" all)
 	      (const :tag "Parameter lists" paramlist)
-	      (const :tag "Decalrations" declaration)
+	      (const :tag "Declarations" declaration)
 	      (const :tag "Case statements" case))
   :group 'pascal)