[Emacs-diffs] master abd838e: Spelling fixes

[Paul Eggert]

branch: master
commit abd838ef8bab125f4360b8618ffe742e1e045625
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>

    Spelling fixes
---
 lisp/mail/rmail.el                 |    4 ++--
 lisp/progmodes/elisp-mode.el       |    8 ++++----
 test/automated/elisp-mode-tests.el |   14 +++++++-------
 3 files changed, 13 insertions(+), 13 deletions(-)

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 1ccf5e2..90a140b 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -4652,7 +4652,7 @@ Argument MIME is non-nil if this is a mime message."
 
       (when (and (null decrypts)
                  mime mime-disabled)
-        ;; Re-enable mime processinjg
+        ;; Re-enable mime processing.
        (rmail-mime)
         ;; Find each Show button and show that part.
        (while (search-forward " Show " nil t)
@@ -4672,7 +4672,7 @@ Argument MIME is non-nil if this is a mime message."
 
       (unless decrypts
        (error "Nothing to decrypt")))))
- 
+
 
 ;;;;  Desktop support
 
diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el
index 8392df2..6ad803d 100644
--- a/lisp/progmodes/elisp-mode.el
+++ b/lisp/progmodes/elisp-mode.el
@@ -604,7 +604,7 @@ It can be quoted, or be inside a quoted form."
     (`apropos
      (elisp--xref-find-apropos id))))
 
-;; WORKAROUND: This is nominally a constant, but the text properities
+;; WORKAROUND: This is nominally a constant, but the text properties
 ;; are not preserved thru dump if use defconst.  See bug#21237.
 (defvar elisp--xref-format
   (let ((str "(%s %s)"))
@@ -612,7 +612,7 @@ It can be quoted, or be inside a quoted form."
     (put-text-property 4 6 'face 'font-lock-function-name-face str)
     str))
 
-;; WORKAROUND: This is nominally a constant, but the text properities
+;; WORKAROUND: This is nominally a constant, but the text properties
 ;; are not preserved thru dump if use defconst.  See bug#21237.
 (defvar elisp--xref-format-extra
   (let ((str "(%s %s %s)"))
@@ -693,12 +693,12 @@ otherwise build the summary from TYPE and SYMBOL."
             ;; specializers.
             ;;
             ;; If the default method is declared by the cl-defgeneric
-            ;; declaration, it will have the same location as teh
+            ;; declaration, it will have the same location as the
             ;; cl-defgeneric, so we want to exclude it from the
             ;; result. In this case, it will have a null doc
             ;; string. User declarations of default methods may also
             ;; have null doc strings, but we hope that is
-            ;; rare. Perhaps this hueristic will discourage that.
+            ;; rare. Perhaps this heuristic will discourage that.
            (dolist (method (cl--generic-method-table generic))
              (let* ((info (cl--generic-method-info method));; qual-string 
combined-args doconly
                      (specializers (cl--generic-method-specializers method))
diff --git a/test/automated/elisp-mode-tests.el 
b/test/automated/elisp-mode-tests.el
index 47212e9..64b3f66 100644
--- a/test/automated/elisp-mode-tests.el
+++ b/test/automated/elisp-mode-tests.el
@@ -117,7 +117,7 @@
 ;;; xref
 
 (defun xref-elisp-test-descr-to-target (xref)
-  "Return an appropiate `looking-at' match string for XREF."
+  "Return an appropriate `looking-at' match string for XREF."
   (let* ((loc (xref-item-location xref))
         (type (or (xref-elisp-location-type loc)
                  'defun)))
@@ -176,11 +176,11 @@
       )))
 
 
-(defun xref-elisp-test-run (xrefs expecteds)
-  (should (= (length xrefs) (length expecteds)))
+(defun xref-elisp-test-run (xrefs expected-xrefs)
+  (should (= (length xrefs) (length expected-xrefs)))
   (while xrefs
     (let ((xref (pop xrefs))
-          (expected (pop expecteds)))
+          (expected (pop expected-xrefs)))
 
       (should (equal xref
                      (or (when (consp expected) (car expected)) expected)))
@@ -297,11 +297,11 @@ to (xref-elisp-test-descr-to-target xref)."
   "non-default for separate-default")
 
 (cl-defmethod xref-elisp-generic-implicit-generic ()
-  "doc string implict-generic default"
+  "doc string implicit-generic default"
   "default for implicit generic")
 
 (cl-defmethod xref-elisp-generic-implicit-generic ((this xref-elisp-root-type))
-  "doc string implict-generic xref-elisp-root-type"
+  "doc string implicit-generic xref-elisp-root-type"
   "non-default for implicit generic")
 
 
@@ -460,7 +460,7 @@ to (xref-elisp-test-descr-to-target xref)."
 ;; for more comments.
 ;;
 ;; IMPROVEME: return defvar instead of defun if source near starting
-;; point indicates the user is searching for a varible, not a
+;; point indicates the user is searching for a variable, not a
 ;; function.
 (require 'compile) ;; not loaded by default at test time
 (xref-elisp-deftest find-defs-defun-defvar-el