(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)
(unless decrypts
(error "Nothing to decrypt")))))
-
+
\f
;;;; Desktop support
(`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)"))
(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)"))
;; 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))
;;; 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)))
)))
-(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)))
"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")
;; 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