diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/eieio-opt.el | 6 | ||||
| -rw-r--r-- | lisp/emacs-lisp/generator.el | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/eieio-opt.el b/lisp/emacs-lisp/eieio-opt.el index f08c1de936b..fdbf05b3993 100644 --- a/lisp/emacs-lisp/eieio-opt.el +++ b/lisp/emacs-lisp/eieio-opt.el @@ -86,7 +86,7 @@ Argument CH-PREFIX is another character prefix to display." (defun eieio-build-class-alist (&optional class instantiable-only buildlist) "Return an alist of all currently active classes for completion purposes. Optional argument CLASS is the class to start with. -If INSTANTIABLE-ONLY is non nil, only allow names of classes which +If INSTANTIABLE-ONLY is non-nil, only allow names of classes which are not abstract, otherwise allow all classes. Optional argument BUILDLIST is more list to attach and is used internally." (let* ((cc (or class 'eieio-default-superclass)) @@ -107,7 +107,7 @@ Optional argument BUILDLIST is more list to attach and is used internally." (defun eieio-read-class (prompt &optional histvar instantiable-only) "Return a class chosen by the user using PROMPT. Optional argument HISTVAR is a variable to use as history. -If INSTANTIABLE-ONLY is non nil, only allow names of classes which +If INSTANTIABLE-ONLY is non-nil, only allow names of classes which are not abstract." (intern (completing-read prompt (eieio-build-class-alist nil instantiable-only) nil t nil @@ -117,7 +117,7 @@ are not abstract." "Return a class chosen by the user using PROMPT. CLASS is the base class, and completion occurs across all subclasses. Optional argument HISTVAR is a variable to use as history. -If INSTANTIABLE-ONLY is non nil, only allow names of classes which +If INSTANTIABLE-ONLY is non-nil, only allow names of classes which are not abstract." (intern (completing-read prompt (eieio-build-class-alist class instantiable-only) diff --git a/lisp/emacs-lisp/generator.el b/lisp/emacs-lisp/generator.el index caf5fed154b..dd709b32b09 100644 --- a/lisp/emacs-lisp/generator.el +++ b/lisp/emacs-lisp/generator.el @@ -541,7 +541,7 @@ don't yield.") (defun cps--replace-variable-references (var new-var form) "Replace all non-shadowed references to VAR with NEW-VAR in FORM. -This routine does not modify FORM. Instead, it returns a +This routine does not modify FORM. Instead, it returns a modified copy." (macroexpand-all `(cl-symbol-macrolet ((,var ,new-var)) ,form) @@ -760,7 +760,7 @@ Return the value with which ITERATOR finished iteration." (cps--advance-for ,cs)))) (defun cps--handle-loop-for (var) - "Support `iter-by' in `loop'. " + "Support `iter-by' in `loop'." ;; N.B. While the cl-loop-for-handler is a documented interface, ;; there's no documented way for cl-loop-for-handler callbacks to do ;; anything useful! Additionally, cl-loop currently lexbinds useful |