From: Stefan Kangas Date: Sat, 29 Jun 2024 15:29:38 +0000 (+0200) Subject: ; Fix typos in symbols X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=08e884963c9eb91155312b6f81af993cc15d5ad8;p=emacs.git ; Fix typos in symbols (cherry picked from commit 45a20d781a9b00212609bf0e338bd6b1cc9ea68a) --- diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 032e49840a8..6c56fd78859 100644 --- 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) diff --git a/lisp/erc/erc-common.el b/lisp/erc/erc-common.el index 3577e697515..057e7981515 100644 --- 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.") diff --git a/lisp/frameset.el b/lisp/frameset.el index 43411f09402..c5c67dd785a 100644 --- 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'), diff --git a/lisp/org/ob-core.el b/lisp/org/ob-core.el index 727ace84463..bd96556846f 100644 --- 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) diff --git a/lisp/org/ob-lilypond.el b/lisp/org/ob-lilypond.el index a8d85ce7c85..ef747d9bb2c 100644 --- 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)) diff --git a/lisp/org/org-refile.el b/lisp/org/org-refile.el index c8e64903c33..391e2402859 100644 --- 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) diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el index 0b50844732f..7dc850cb839 100644 --- 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 diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el index c204b714140..599371d951c 100644 --- a/lisp/progmodes/eglot.el +++ b/lisp/progmodes/eglot.el @@ -2594,7 +2594,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 diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el index c8b086cfad2..0ce5e1df794 100644 --- 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." diff --git a/lisp/which-key.el b/lisp/which-key.el index 8ad2ba2c365..677a84b328d 100644 --- 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 diff --git a/test/lisp/which-key-tests.el b/test/lisp/which-key-tests.el index 1f2b1965ec3..3b42a7bd504 100644 --- 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 diff --git a/test/src/comp-resources/comp-test-funcs.el b/test/src/comp-resources/comp-test-funcs.el index 54f339f6373..084fcd8c9db 100644 --- 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) diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index dffb7097a3e..6744f14435b 100644 --- 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)) )