Spelling fixes.

3 files changed, 5 insertions, 5 deletions

diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el
index 16d5da5f12c..efa8be1c80c 100644
--- a/lisp/progmodes/cc-engine.el
+++ b/lisp/progmodes/cc-engine.el
@@ -3697,7 +3697,7 @@ comment at the start of cc-engine.el for more info."
           (while (let ((pos (or (and (looking-at c-nonsymbol-token-regexp)
                                      (match-end 0))
                                 ;; `c-nonsymbol-token-regexp' should always match
-                                ;; since we've skipped backward over punctuator
+                                ;; since we've skipped backward over punctuation
                                 ;; or paren syntax, but consume one char in case
                                 ;; it doesn't so that we don't leave point before
                                 ;; some earlier incorrect token.
@@ -3721,7 +3721,7 @@ comment at the start of cc-engine.el for more info."
                     (if (looking-at c-nonsymbol-token-regexp)
                         (goto-char (match-end 0))
                       ;; `c-nonsymbol-token-regexp' should always match since
-                      ;; we've skipped backward over punctuator or paren
+                      ;; we've skipped backward over punctuation or paren
                       ;; syntax, but move forward in case it doesn't so that
                       ;; we don't leave point earlier than we started with.
                       (forward-char))
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 3dda0c9e3a9..c4f2b9ffe51 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -3124,7 +3124,7 @@ and closing parentheses and brackets."
           (+ (if (or (memq (elt i 2) (append "}])" nil)) ; char-after
                      (eq 'continuation ; do not stagger continuations
                          (elt (cperl-sniff-for-indent parse-data) 0)))
-                 0 ; Closing parenth or continuation of a continuation
+                 0 ; Closing parenthesis or continuation of a continuation
                cperl-continued-statement-offset)
              (if (or (elt i 3)          ; is-block
                      (not (elt i 4))            ; is-brace
@@ -5145,7 +5145,7 @@ Returns some position at the last line."
               (if (eq (following-char) ?\( )
                   (progn
                     (forward-sexp 1)
-                    (setq pp (point)))  ; past parenth-group
+                    (setq pp (point)))  ; past parenthesis-group
                 ;; after `else' or nothing
                 (if ml                  ; after `else'
                     (skip-chars-backward " \t\n")
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index f1a8be24013..6c8160e0aea 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -1368,7 +1368,7 @@ and source-file directory for your debugger."
   )
 
 ;; ======================================================================
-;; xdb (HP PARISC debugger) functions
+;; xdb (HP PA-RISC debugger) functions
 
 ;; History of argument lists passed to xdb.
 (defvar gud-xdb-history nil)