From: Stefan Kangas Date: Tue, 20 Sep 2022 10:21:40 +0000 (+0200) Subject: ; Fix typos in Lisp symbols X-Git-Tag: emacs-28.3-rc1~68 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=616dcf27e57388403d4c28d441bf7310bb665241;p=emacs.git ; Fix typos in Lisp symbols --- diff --git a/lisp/allout-widgets.el b/lisp/allout-widgets.el index 736fb7d99d6..7a65777d323 100644 --- a/lisp/allout-widgets.el +++ b/lisp/allout-widgets.el @@ -312,7 +312,7 @@ enhancements, directly.") (defvar-local allout-inhibit-body-modification-hook nil "Override de-escaping of text-prefixes in item bodies during specific changes. -This is used by `allout-buffer-modification-handler' to signal such changes +This is used by `allout-body-modification-handler' to signal such changes to `allout-body-modification-handler', and is always reset by `allout-post-command-business'.") ;;;_ = allout-widgets-icons-cache @@ -2180,7 +2180,7 @@ Operation is inhibited by `allout-inhibit-body-modification-handler'." ;; `allout-before-modification-handler' and ;; `allout-inhibit-body-modification-handler'. ;; -;; Adds the overlay to the `allout-unresolved-body-mod-workhash' during +;; Adds the overlay to the `allout-unresolved-body-mod-workroster' during ;; before-change operation, and removes from that list during after-change ;; operation. (cond (allout-inhibit-body-modification-hook nil))) diff --git a/lisp/autorevert.el b/lisp/autorevert.el index 97a122b7bcf..f66c4935d70 100644 --- a/lisp/autorevert.el +++ b/lisp/autorevert.el @@ -677,7 +677,7 @@ will use an up-to-date value of `auto-revert-interval'." ;; ;; We do this by reverting immediately in response to the first in a ;; flurry of notifications. Any notifications during the following -;; `auto-revert-lockout-interval' seconds are noted but not acted upon +;; `auto-revert--lockout-interval' seconds are noted but not acted upon ;; until the end of that interval. (defconst auto-revert--lockout-interval 2.5 diff --git a/lisp/cedet/ede/autoconf-edit.el b/lisp/cedet/ede/autoconf-edit.el index faf50edaa13..e7a15220550 100644 --- a/lisp/cedet/ede/autoconf-edit.el +++ b/lisp/cedet/ede/autoconf-edit.el @@ -34,8 +34,7 @@ "Initialize a new configure.ac in ROOTDIR for PROGRAM using TESTFILE. ROOTDIR is the root directory of a given autoconf controlled project. PROGRAM is the program to be configured. -TESTFILE is the file used with AC_INIT. -Configure the initial configure script using `autoconf-new-automake-string'." +TESTFILE is the file used with AC_INIT." (interactive "DRoot Dir: \nsProgram: \nsTest File: ") (require 'ede/srecode) (if (bufferp rootdir) diff --git a/lisp/emacs-lisp/benchmark.el b/lisp/emacs-lisp/benchmark.el index c5f621c6c86..7535f0e2f51 100644 --- a/lisp/emacs-lisp/benchmark.el +++ b/lisp/emacs-lisp/benchmark.el @@ -70,7 +70,7 @@ number of repetitions actually used." (defun benchmark--adaptive (func time) "Measure the run time of FUNC, calling it enough times to last TIME seconds. -Result is (REPETITIONS . DATA) where DATA is as returned by `branchmark-call'." +Result is (REPETITIONS . DATA) where DATA is as returned by `benchmark-call'." (named-let loop ((repetitions 1) (data (let ((x (list 0))) (setcdr x x) x))) ;; (message "Running %d iteration" repetitions) diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 7629e190401..21cd747518f 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -1666,7 +1666,7 @@ URLs." (seq "(" (* (not ")")) ")"))) ")"))) "" - ;; Heuristic: We can't reliably do `subsititute-command-keys' + ;; Heuristic: We can't reliably do `substitute-command-keys' ;; substitutions, since the value of a keymap in general can't be ;; known at compile time. So instead, we assume that these ;; substitutions are of some length N. diff --git a/lisp/epa-ks.el b/lisp/epa-ks.el index 8ece09d1488..fc32061449d 100644 --- a/lisp/epa-ks.el +++ b/lisp/epa-ks.el @@ -41,7 +41,7 @@ (defcustom epa-keyserver "pgp.mit.edu" "Domain of keyserver. -This is used by `epa-ks-lookup-key', for looking up public keys." +This is used by `epa-search-keys', for looking up public keys." :type '(choice :tag "Keyserver" (repeat :tag "Random pool" (string :tag "Keyserver address")) @@ -182,7 +182,7 @@ If EXACT is non-nil, don't accept approximate matches." "Prepare KEYS for `tabulated-list-mode', for buffer BUF. KEYS is a list of `epa-ks-key' structures, as parsed by -`epa-ks-parse-result'." +`epa-ks--parse-buffer'." (when (buffer-live-p buf) (let (entries) (dolist (key keys) diff --git a/lisp/eshell/em-glob.el b/lisp/eshell/em-glob.el index 842f27a4920..a94fb276b83 100644 --- a/lisp/eshell/em-glob.el +++ b/lisp/eshell/em-glob.el @@ -198,7 +198,7 @@ The basic syntax is: [a-b] [a-b] matches a character or range [^a] [^a] excludes a character or range -If any characters in PATTERN have the text property `eshell-escaped' +If any characters in PATTERN have the text property `escaped' set to true, then these characters will match themselves in the resulting regular expression." (let ((matched-in-pattern 0) ; How much of PATTERN handled diff --git a/lisp/frame.el b/lisp/frame.el index a6b0f17189f..96914cd2b25 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -1776,7 +1776,7 @@ of frames like calls to map a frame or change its visibility." (insert (format ", DS=%sx%s" (nth 0 item) (nth 1 item)))) (insert "\n")) ((and (eq (nth 0 item) frame) (= (nth 1 item) 5)) - ;; Length 5 is an `adjust-frame-size' item. + ;; Length 5 is an 'adjust_frame_size' item. (insert (format "%s (%s)" (nth 3 item) (nth 2 item))) (setq item (nth 0 (cdr entry))) (unless (and (= (nth 0 item) (nth 2 item)) diff --git a/lisp/hexl.el b/lisp/hexl.el index 7f965486eae..b8d25bfb1f0 100644 --- a/lisp/hexl.el +++ b/lisp/hexl.el @@ -687,7 +687,7 @@ If there is no byte at the target address move to the last byte in that line." (defun hexl-beginning-of-buffer (arg) "Move to the beginning of the hexl buffer. -Leaves `hexl-mark' at previous position. +Leaves mark at previous position. With prefix arg N, puts point N bytes of the way from the true beginning." (interactive "p") (push-mark) diff --git a/lisp/hilit-chg.el b/lisp/hilit-chg.el index 10e2512e9d9..b245d9df16d 100644 --- a/lisp/hilit-chg.el +++ b/lisp/hilit-chg.el @@ -118,7 +118,6 @@ ;; ;; Other interactive functions (that could be bound if desired): ;; `highlight-changes-mode' -;; `highlight-changes-toggle-visibility' ;; `highlight-changes-remove-highlight' ;; `highlight-compare-with-file' ;; `highlight-compare-buffers' diff --git a/lisp/imenu.el b/lisp/imenu.el index a87860f0065..c18b5f00a6e 100644 --- a/lisp/imenu.el +++ b/lisp/imenu.el @@ -310,7 +310,7 @@ element recalculates the buffer's index alist.") (defvar imenu--history-list nil ;; Making this buffer local caused it not to work! - "History list for `jump-to-function-in-buffer'.") + "History list for `imenu-choose-buffer-index'.") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 8978a97e793..2788a93a5ad 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -755,7 +755,7 @@ VALUE must be a translation table to use on encoding. VALUE must be a function to call after some text is inserted and decoded by the coding system itself and before any functions in -`after-insert-functions' are called. This function is passed one +`after-insert-file-functions' are called. This function is passed one argument: the number of characters in the text to convert, with point at the start of the text. The function should leave point and the match data unchanged, and should return the new character diff --git a/lisp/org/ox.el b/lisp/org/ox.el index a6209ee98f6..6316c687db2 100644 --- a/lisp/org/ox.el +++ b/lisp/org/ox.el @@ -4605,7 +4605,7 @@ from the export back-end." ;; a given element, excluded. Note: "-n" switches reset that count. ;; ;; `org-export-unravel-code' extracts source code (along with a code -;; references alist) from an `element-block' or `src-block' type +;; references alist) from an `example-block' or `src-block' type ;; element. ;; ;; `org-export-format-code' applies a formatting function to each line diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 04e4a62c607..eaedf987c5e 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -3188,7 +3188,7 @@ Returns true if comment is found. In POD will not move the point." Mark as generic string if STRING, as generic comment otherwise. A single character is marked as punctuation and directly fontified. Do nothing if BEGIN and END are equal. If -`cperl-use-syntax-text-property' is nil, just fontify." +`cperl-use-syntax-table-text-property' is nil, just fontify." (if (and cperl-use-syntax-table-text-property (> end begin)) (progn diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el index 1e9f3e1f9bb..de98e0458b7 100644 --- a/lisp/progmodes/flymake.el +++ b/lisp/progmodes/flymake.el @@ -1526,7 +1526,7 @@ POS can be a buffer position or a button" (flymake-show-diagnostic (if (button-type pos) (button-start pos) pos)))) (defun flymake--tabulated-entries-1 (diags project-root) - "Helper for `flymake--diagnostic-buffer-entries'. + "Helper for `flymake--diagnostics-buffer-entries'. PROJECT-ROOT indicates that each entry should be preceded by the filename of the diagnostic relative to that directory." (cl-loop diff --git a/lisp/progmodes/hideif.el b/lisp/progmodes/hideif.el index f6a4711e244..8eee8bd0929 100644 --- a/lisp/progmodes/hideif.el +++ b/lisp/progmodes/hideif.el @@ -413,7 +413,7 @@ overlays created." ;; hidden with `hide-ifdef-lines' equals to nil while another part with 't, ;; this case happens. ;; TODO: Should we merge? or just create a container overlay? -- this can - ;; prevent `hideif-show-ifdef' expanding too many hidden contents since there + ;; prevent `show-ifdefs' expanding too many hidden contents since there ;; is only a big overlay exists there without any smaller overlays. (save-restriction (widen) ; Otherwise `point-min' and `point-max' will be restricted and thus @@ -733,7 +733,7 @@ Assuming we've just regexp-matched with `hif-decfloat-regexp' and it matched. if REMATCH is t, do a rematch." ;; In elisp `(string-to-number "01.e2")' will return 1 instead of the expected ;; 100.0; therefore we need to write our own. - ;; This function relies on the regexp groups of `hif-dexfloat-regexp' + ;; This function relies on the regexp groups of `hif-hexfloat-regexp' (if (or fix exp) (setq fix (hif-delete-char-in-string ?' fix) exp (hif-delete-char-in-string ?' exp)) diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el index f7f1784b172..d73c1d4b239 100644 --- a/lisp/progmodes/python.el +++ b/lisp/progmodes/python.el @@ -2909,8 +2909,8 @@ interpreter is run. Variables `python-shell-font-lock-enable', `python-shell-completion-setup-code', `python-shell-completion-string-code', -`python-eldoc-setup-code', `python-eldoc-string-code', -`python-ffap-setup-code' and `python-ffap-string-code' can +`python-eldoc-setup-code', +`python-ffap-setup-code' can customize this mode for different Python interpreters. This mode resets `comint-output-filter-functions' locally, so you diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index d9085323d9a..c59536e85a1 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -169,7 +169,7 @@ This information is useful, but it takes screen space away from file names." (defun tar-swap-data () "Swap buffer contents between current buffer and `tar-data-buffer'. -Preserve the modified states of the buffers and set `buffer-swapped-with'." +Preserve the modified states of the buffers and set `tar-data-swapped'." (let ((data-buffer-modified-p (buffer-modified-p tar-data-buffer)) (current-buffer-modified-p (buffer-modified-p))) (buffer-swap-text tar-data-buffer) diff --git a/lisp/vc/add-log.el b/lisp/vc/add-log.el index 8b55a78f84d..ab67f450a43 100644 --- a/lisp/vc/add-log.el +++ b/lisp/vc/add-log.el @@ -812,7 +812,7 @@ if it were to exist." (defun add-log-find-changelog-buffer (changelog-file-name) "Find a ChangeLog buffer for CHANGELOG-FILE-NAME. -Respect `add-log-use-pseudo-changelog', which see." +Respect `add-log--pseudo-changelog-buffer-name', which see." (if (or (file-exists-p changelog-file-name) (not add-log-dont-create-changelog-file)) (find-file-noselect changelog-file-name) diff --git a/test/lisp/electric-tests.el b/test/lisp/electric-tests.el index 1263767476e..efa42429b37 100644 --- a/test/lisp/electric-tests.el +++ b/test/lisp/electric-tests.el @@ -909,7 +909,7 @@ baz\"\"" (should (equal (buffer-string) "int main () {\n \n}")))) (ert-deftest electric-layout-control-reindentation () - "Same as `emacs-lisp-int-main-kernel-style', but checking + "Same as `electric-layout-int-main-kernel-style', but checking Bug#35254." (ert-with-test-buffer () (plainer-c-mode)