diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2022-11-18 15:48:22 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2022-11-18 16:02:19 +0100 |
| commit | ba485eb949ddec53b1d7b5d78f3fcfbe2be60d7d (patch) | |
| tree | aee24e35b156969e2450699b3d02621bcec3375e /lisp/emacs-lisp | |
| parent | c116d9f74c8fc81a7e98b1519fa300998a8a15c3 (diff) | |
| download | emacs-ba485eb949ddec53b1d7b5d78f3fcfbe2be60d7d.tar.gz emacs-ba485eb949ddec53b1d7b5d78f3fcfbe2be60d7d.tar.bz2 emacs-ba485eb949ddec53b1d7b5d78f3fcfbe2be60d7d.zip | |
; Fix typos
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/hierarchy.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/rmc.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/tcover-ses.el | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 113718fba3e..0ee094c34d8 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -2823,7 +2823,7 @@ blocks." (first-processed (l) (if-let ((p (cl-find-if (lambda (p) (comp-block-idom p)) l))) p - (signal 'native-ice "cant't find first preprocessed")))) + (signal 'native-ice "can't find first preprocessed")))) (when-let ((blocks (comp-func-blocks comp-func)) (entry (gethash 'entry blocks)) diff --git a/lisp/emacs-lisp/hierarchy.el b/lisp/emacs-lisp/hierarchy.el index fb5d518b22d..d955019a9db 100644 --- a/lisp/emacs-lisp/hierarchy.el +++ b/lisp/emacs-lisp/hierarchy.el @@ -191,7 +191,7 @@ PARENTFN, CHILDRENFN, ACCEPTFN, and DELAY-CHILDREN-P have the same meaning as in (defun hierarchy-add-list (hierarchy list &optional wrap childrenfn) "Add to HIERARCHY the sub-lists in LIST. -If WRAP is non-nil, allow duplicate items in LIST by wraping each +If WRAP is non-nil, allow duplicate items in LIST by wrapping each item in a cons (id . item). The root's id is 1. CHILDRENFN is a function (defaults to `cdr') taking LIST as a diff --git a/lisp/emacs-lisp/rmc.el b/lisp/emacs-lisp/rmc.el index dae6590b9bc..1083a6868ba 100644 --- a/lisp/emacs-lisp/rmc.el +++ b/lisp/emacs-lisp/rmc.el @@ -125,7 +125,7 @@ ;;;###autoload (defun read-multiple-choice (prompt choices &optional help-string show-help long-form) - "Ask user to select an entry from CHOICES, promting with PROMPT. + "Ask user to select an entry from CHOICES, prompting with PROMPT. This function allows to ask the user a multiple-choice question. CHOICES should be a list of the form (KEY NAME [DESCRIPTION]). diff --git a/lisp/emacs-lisp/tcover-ses.el b/lisp/emacs-lisp/tcover-ses.el index 2b1672ffd64..645b1a328f0 100644 --- a/lisp/emacs-lisp/tcover-ses.el +++ b/lisp/emacs-lisp/tcover-ses.el @@ -569,7 +569,7 @@ spreadsheet files with invalid formatting." (signal 'singularity-error nil)) ;Shouldn't get here (singularity-error (error "No error from %s?" x)) (error nil))) - ;;Test quit-handling in ses-update-cells. Cant' use `eval' here. + ;; Test quit-handling in ses-update-cells. Can't use `eval' here. (let ((inhibit-quit t)) (setq quit-flag t) (condition-case nil |