; Fix typos in symbols

2024-06-29 17:29:38 +02:00 · 2024-06-29 17:29:38 +02:00 · 45a20d781a
commit 45a20d781a
parent d95f039af4
15 changed files with 17 additions and 19 deletions
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@ -1055,7 +1055,7 @@ If DST-N is specified, use it; otherwise assume it to be the current slot."
  "Set constant VAL to current slot."
  (comp--add-const-to-relocs val)
  ;; Leave relocation index nil on purpose, will be fixed-up in final
-  ;; by `comp-finalize-relocs'.
+  ;; by `comp--finalize-relocs'.
  (comp--emit `(setimm ,(comp--slot) ,val)))

 (defun comp--make-curr-block (block-name entry-sp &optional addr)
--- a/lisp/emacs-lisp/rmc.el
+++ b/lisp/emacs-lisp/rmc.el
@ -228,10 +228,9 @@ Usage example:
                (when (setq command
                            (let ((current-key-remap-sequence
                                   (vector tchar)))
-                              ;; Provide an empty prompt to `t-s-t-t' so
-                              ;; that it may not repeatedly display
-                              ;; and/or disable the on-screen keyboard,
-                              ;; or move point.
+                              ;; Provide an empty prompt so that it may
+                              ;; not repeatedly display and/or disable
+                              ;; the on-screen keyboard, or move point.
                              (touch-screen-translate-touch "")))
                  (setq command (if (> (length command) 0)
                                    (aref command 0)
--- a/lisp/erc/erc-common.el
+++ b/lisp/erc/erc-common.el
@ -363,7 +363,7 @@ instead of a `set' state, which precludes any actual saving."
 Non-nil inside an ERC module's activation (or deactivation)
 command, such as `erc-spelling-enable', when it's been called
 indirectly via the module's minor-mode toggle, i.e.,
-`erc-spelling-mode'.  Nil otherwise.  Its value is either the
+`erc-spelling-mode'.  nil otherwise.  Its value is either the
 symbol `toggle' or an integer produced by `prefix-numeric-value'.
 See Info node `(elisp) Defining Minor Modes' for more.")

--- a/lisp/frameset.el
+++ b/lisp/frameset.el
@ -200,7 +200,7 @@ Properties can be set with
 ;; - can be ignored by window managers (most positional args, like `height',
 ;;   `width', `left' and `top', and others, like `auto-raise', `auto-lower')
 ;; - can be set externally in X resources or Window registry (again, most
-;;   positional parameters, and also `toolbar-lines', `menu-bar-lines' etc.)
+;;   positional parameters, and also `tool-bar-lines', `menu-bar-lines' etc.)
 ;, - can contain references to live objects (`buffer-list', `minibuffer') or
 ;;   code (`buffer-predicate')
 ;; - are set automatically, and cannot be changed (`window-id', `parent-id'),
--- a/lisp/org/ob-core.el
+++ b/lisp/org/ob-core.el
@ -1778,7 +1778,7 @@ shown below.

 #+PROPERTY: var foo=1, bar=2

-HEADER-ARGUMENTS is alist of all the arguments."
+HEADER-ARGUMENTS is an alist of all the arguments."
  (let (results)
    (mapc (lambda (pair)
 	    (if (eq (car pair) :var)
--- a/lisp/org/ob-lilypond.el
+++ b/lisp/org/ob-lilypond.el
@ -160,7 +160,7 @@ Otherwise, execute block according to header settings."
    (org-babel-lilypond-process-basic body params)))

 (defun org-babel-lilypond-tangle ()
-  "Tangle lilypond blocks, then `org-babel-liypond-execute-tangled-ly'."
+  "Tangle lilypond blocks, then `org-babel-lilypond-execute-tangled-ly'."
  (interactive)
  (if (org-babel-tangle nil "yes" "lilypond")
      (org-babel-lilypond-execute-tangled-ly) nil))
--- a/lisp/org/org-refile.el
+++ b/lisp/org/org-refile.el
@ -557,7 +557,7 @@ prefix argument (`C-u C-u C-u C-c C-w')."
            (let ((origin (point-marker)))
              ;; Handle special case when we refile to exactly same
              ;; location with tree promotion/demotion.  Point marker
-              ;; saved by `org-width-wide-buffer' (`save-excursion')
+              ;; saved by `org-with-wide-buffer' (`save-excursion')
              ;; will then remain before the inserted subtree in
              ;; unexpected location.
              (set-marker-insertion-type origin t)
--- a/lisp/progmodes/cc-engine.el
+++ b/lisp/progmodes/cc-engine.el
@ -13864,7 +13864,7 @@ comment at the start of cc-engine.el for more info."
  ;;
  ;; This is true when point is at the last non syntactic WS position on the
  ;; line, there is a macro call last on the line, and this particular macro's
-  ;; name is defined by the regexp `c-vs-macro-regexp' as not needing a
+  ;; name is defined by the regexp `c-macro-with-semi-re' as not needing a
  ;; semicolon.
  (save-excursion
    (save-restriction
--- a/lisp/progmodes/ebrowse.el
+++ b/lisp/progmodes/ebrowse.el
@ -851,7 +851,7 @@ Return the buffer created."
 For each member, a symbol is added to the table.  Members are
 extracted from the buffer-local tree `ebrowse--tree-table'.

-Each symbol has its property `ebrowse-info' set to a list (TREE MEMBER-LIST
+Each symbol has its property `ebrowse-tree' set to a list (TREE MEMBER-LIST
 MEMBER) where TREE is the tree in which the member is defined,
 MEMBER-LIST is a symbol describing the member list in which the member
 is found, and MEMBER is a MEMBER structure describing the member.
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@ -2544,7 +2544,7 @@ THINGS are either registrations or unregisterations (sic)."

 (defun eglot--TextDocumentIdentifier ()
  "Compute TextDocumentIdentifier object for current buffer.
-Sets `eglot--TextDocumentIdentifier-uri' (which see) as a side effect."
+Sets `eglot--TextDocumentIdentifier-cache' (which see) as a side effect."
  (unless eglot--TextDocumentIdentifier-cache
    (let ((truename (file-truename (or buffer-file-name
                                       (ignore-errors
--- a/lisp/progmodes/gdb-mi.el
+++ b/lisp/progmodes/gdb-mi.el
@ -5122,7 +5122,7 @@ commands) or source buffers (that display program source code)."

 (defun gdb--buffer-type (buffer)
  "Return the type of BUFFER if it is a function buffer.
-Buffer type is like `gdb-registers-type', `gdb-stack-buffer'.
+Buffer type is like `gdb-registers-buffer', `gdb-stack-buffer'.
 These symbols are used by `gdb-get-buffer-create'.

 Return nil if BUFFER is not a GDB function buffer."
--- a/lisp/which-key.el
+++ b/lisp/which-key.el
@ -1614,7 +1614,7 @@ Within these categories order using `which-key-key-order'."
    (when found `(replaced . ,key-binding))))

 (defun which-key--maybe-replace (key-binding)
-  "Use `which-key--replacement-alist' to maybe replace KEY-BINDING.
+  "Use `which-key-replacement-alist' to maybe replace KEY-BINDING.
 KEY-BINDING is a cons cell of the form \(KEY . BINDING\) each of
 which are strings.  KEY is of the form produced by `key-binding'."
  (let* ((replacer (if which-key-allow-multiple-replacements
--- a/test/lisp/which-key-tests.el
+++ b/test/lisp/which-key-tests.el
@ -53,8 +53,7 @@
             '(("C-a" . "which-key-test--named-map"))))))

 (ert-deftest which-key-test--prefix-declaration ()
-  "Test `which-key-declare-prefixes' and
-`which-key-declare-prefixes-for-mode'. See Bug #109."
+  ;; See Bug #109.
  (let* ((major-mode 'test-mode)
         which-key-replacement-alist)
    (which-key-add-key-based-replacements
--- a/test/src/comp-resources/comp-test-funcs.el
+++ b/test/src/comp-resources/comp-test-funcs.el
@ -361,7 +361,7 @@
       2))

 (defun comp-test-copy-insn-f (insn)
-  ;; From `comp-copy-insn'.
+  ;; From `comp--copy-insn'.
  (if (consp insn)
      (let (result)
 	(while (consp insn)
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@ -1320,7 +1320,7 @@ Return a list of results."
           (5 (message "five")))
         x)
       't
-       ;; FIXME improve `comp-cond-cstrs-target-mvar' to cross block
+       ;; FIXME improve `comp--cond-cstrs-target-mvar' to cross block
       ;; boundary if necessary as this should return:
       ;; (or (integer 1 1) (integer 5 5))
       )