From abd838ef8bab125f4360b8618ffe742e1e045625 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sun, 16 Aug 2015 23:52:30 -0700 Subject: [PATCH] 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 1ccf5e2aea6..90a140b272c 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 8392df2a6b9..6ad803d9be8 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 47212e919c6..64b3f665a03 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 -- 2.39.2