From 623db40dd1cd21623c5cecdc0abbf3ce885f92b1 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 17 Nov 2022 08:45:57 +0100 Subject: [PATCH] ; * lisp/*.el: Fix typos in docstrings * lisp/gnus/nnrss.el (nnrss-use-local, nnrss-fetch, nnrss-find-el): * lisp/leim/quail/japanese.el ("japanese"): * lisp/org/ol.el (org-link-search-must-match-exact-headline): * lisp/org/org-faces.el (org-column): * lisp/progmodes/eglot.el (eglot--stay-out-of-p) (eglot-workspace-configuration, eglot--read-execute-code-action): * lisp/vc/vc.el (vc-clone): Fix typos in docstrings. --- lisp/gnus/nnrss.el | 6 +++--- lisp/leim/quail/japanese.el | 2 +- lisp/org/ol.el | 2 +- lisp/org/org-faces.el | 2 +- lisp/progmodes/eglot.el | 7 +++---- lisp/vc/vc.el | 2 +- 6 files changed, 10 insertions(+), 11 deletions(-) diff --git a/lisp/gnus/nnrss.el b/lisp/gnus/nnrss.el index 99e7b2a6f3f..66cee528659 100644 --- a/lisp/gnus/nnrss.el +++ b/lisp/gnus/nnrss.el @@ -77,7 +77,7 @@ this variable to the list of fields to be ignored.") "List of RSS addresses.") (defvar nnrss-use-local nil - "If non-nil nnrss will read the feeds from local files in nnrss-directory.") + "If non-nil nnrss will read the feeds from local files in `nnrss-directory'.") (defvar nnrss-description-field 'X-Gnus-Description "Field name used for DESCRIPTION. @@ -398,7 +398,7 @@ otherwise return nil." (declare-function libxml-parse-html-region "xml.c" (start end &optional base-url discard-comments)) (defun nnrss-fetch (url &optional local) - "Fetch URL and put it in a the expected Lisp structure." + "Fetch URL and put it in the expected Lisp structure." (mm-with-unibyte-buffer ;;some versions of url.el need this to close the connection quickly (let (cs xmlform htmlform) @@ -800,7 +800,7 @@ It is useful when `(setq nnrss-use-local t)'." node)) (defun nnrss-find-el (tag data &optional found-list) - "Find the all matching elements in the data. + "Find all the matching elements in the data. Careful with this on large documents!" (when (consp data) (dolist (bit data) diff --git a/lisp/leim/quail/japanese.el b/lisp/leim/quail/japanese.el index df080fc0e87..fb8b9e61665 100644 --- a/lisp/leim/quail/japanese.el +++ b/lisp/leim/quail/japanese.el @@ -359,7 +359,7 @@ input method. The input method `japanese-zenkaku' is used to enter full width JISX0208 characters corresponding to typed ASCII characters. -List of the all key sequences for Roman-Kana transliteration is shown +List of all the key sequences for Roman-Kana transliteration is shown at the tail. :: Kana-Kanji conversion :: diff --git a/lisp/org/ol.el b/lisp/org/ol.el index 4ad1f6d3452..108f031cde4 100644 --- a/lisp/org/ol.el +++ b/lisp/org/ol.el @@ -339,7 +339,7 @@ another window." (defcustom org-link-search-must-match-exact-headline 'query-to-create "Non-nil means internal fuzzy links can only match headlines. -When nil, the a fuzzy link may point to a target or a named +When nil, the fuzzy link may point to a target or a named construct in the document. When set to the special value `query-to-create', offer to create a new headline when none matched. diff --git a/lisp/org/org-faces.el b/lisp/org/org-faces.el index d96898372f9..78148a1b6d1 100644 --- a/lisp/org/org-faces.el +++ b/lisp/org/org-faces.el @@ -137,7 +137,7 @@ The following faces apply, with this priority. Since column view works by putting overlays with a display property over individual characters in the buffer, the face of the underlining -character (this might for example be the a TODO keyword) might still +character (this might for example be the TODO keyword) might still shine through in some properties. So when your column view looks funny, with \"random\" colors, weight, strike-through, try to explicitly set the properties in the `org-column' face. For example, set diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el index 12808e80c4a..397c8e0937c 100644 --- a/lisp/progmodes/eglot.el +++ b/lisp/progmodes/eglot.el @@ -1688,7 +1688,7 @@ For example, to keep your Company customization, add the symbol `company' to this variable.") (defun eglot--stay-out-of-p (symbol) - "Tell if Eglot should stay of of SYMBOL." + "Tell if Eglot should stay out of SYMBOL." (cl-find (symbol-name symbol) eglot-stay-out-of :test (lambda (s thing) (let ((re (if (symbolp thing) (symbol-name thing) thing))) @@ -2298,8 +2298,7 @@ Instead of a plist, an alist ((SECTION . VALUE) ...) can be used instead, but this variant is less reliable and not recommended. This variable should be set as a directory-local variable. See -See info node `(emacs)Directory Variables' for various ways to to -that. +info node `(emacs)Directory Variables' for various ways to do that. Here's an example value that establishes two sections relevant to the Pylsp and Gopls LSP servers: @@ -3213,7 +3212,7 @@ at point. With prefix argument, prompt for ACTION-KIND." actions))) (defun eglot--read-execute-code-action (actions server &optional action-kind) - "Helper for interactive calls to `eglot-code-actions'" + "Helper for interactive calls to `eglot-code-actions'." (let* ((menu-items (or (cl-loop for a in actions collect (cons (plist-get a :title) a)) diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index 513fbb23fee..fd59c95fc8b 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -3567,7 +3567,7 @@ to provide the `find-revision' operation instead." (defun vc-clone (remote &optional backend directory rev) "Use BACKEND to clone REMOTE into DIRECTORY. -If successful, returns the a string with the directory of the +If successful, returns the string with the directory of the checkout. If BACKEND is nil, iterate through every known backend in `vc-handled-backends' until one succeeds. If REV is non-nil, it indicates a specific revision to check out." -- 2.39.2