; Fix typos in symbols

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)

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
+                              ;; Provide an empty prompt so that it may
-                              ;; that it may not repeatedly display
+                              ;; not repeatedly display and/or disable
-                              ;; and/or disable the on-screen keyboard,
+                              ;; the on-screen keyboard, or move point.
-                              ;; or move point.
                               (touch-screen-translate-touch "")))
                   (setq command (if (> (length command) 0)
                                     (aref command 0)

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.")
 

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'),

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)

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))

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)

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

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.

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

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."

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

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
+  ;; See Bug #109.
-`which-key-declare-prefixes-for-mode'. See Bug #109."
   (let* ((major-mode 'test-mode)
          which-key-replacement-alist)
     (which-key-add-key-based-replacements

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)

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))
        )