diff options
| author | Stefan Kangas | 2022-10-26 22:41:09 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2022-10-26 23:04:23 +0200 |
| commit | db2ed9f333879e5ac283fb48c8b06ed4022f0af9 (patch) | |
| tree | 5ea199f04b4ae451e3041150de204dee5f87fa06 | |
| parent | c716d0cf5692ab853c0eb5dc809c765207762cdb (diff) | |
| download | emacs-db2ed9f333879e5ac283fb48c8b06ed4022f0af9.tar.gz emacs-db2ed9f333879e5ac283fb48c8b06ed4022f0af9.zip | |
; Fix several symbol name typos
| -rw-r--r-- | lisp/abbrev.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/ede/locate.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/semantic/wisent.el | 2 | ||||
| -rw-r--r-- | lisp/ecomplete.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/backtrace.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/comp-cstr.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/package.el | 3 | ||||
| -rw-r--r-- | lisp/erc/erc-capab.el | 2 | ||||
| -rw-r--r-- | lisp/erc/erc-networks.el | 2 | ||||
| -rw-r--r-- | lisp/follow.el | 2 | ||||
| -rw-r--r-- | lisp/gnus/gnus-start.el | 2 | ||||
| -rw-r--r-- | lisp/gnus/smime.el | 2 | ||||
| -rw-r--r-- | lisp/icomplete.el | 2 | ||||
| -rw-r--r-- | lisp/image/image-dired-external.el | 2 | ||||
| -rw-r--r-- | lisp/net/rcirc.el | 2 | ||||
| -rw-r--r-- | lisp/net/sieve-manage.el | 2 | ||||
| -rw-r--r-- | lisp/org/org-agenda.el | 2 | ||||
| -rw-r--r-- | lisp/org/ox-ascii.el | 2 | ||||
| -rw-r--r-- | lisp/progmodes/eglot.el | 4 | ||||
| -rw-r--r-- | lisp/progmodes/flymake.el | 5 | ||||
| -rw-r--r-- | lisp/progmodes/gdb-mi.el | 2 | ||||
| -rw-r--r-- | lisp/progmodes/verilog-mode.el | 4 | ||||
| -rw-r--r-- | lisp/subr.el | 4 | ||||
| -rw-r--r-- | lisp/transient.el | 2 | ||||
| -rw-r--r-- | test/src/comp-tests.el | 2 | ||||
| -rw-r--r-- | test/src/emacs-module-tests.el | 2 |
27 files changed, 32 insertions, 32 deletions
diff --git a/lisp/abbrev.el b/lisp/abbrev.el index a4f0196a789..2ca8e25dac7 100644 --- a/lisp/abbrev.el +++ b/lisp/abbrev.el | |||
| @@ -1221,7 +1221,7 @@ SORTFUN is passed to `sort' to change the default ordering." | |||
| 1221 | 1221 | ||
| 1222 | (defface abbrev-table-name | 1222 | (defface abbrev-table-name |
| 1223 | '((t :inherit font-lock-function-name-face)) | 1223 | '((t :inherit font-lock-function-name-face)) |
| 1224 | "Face used for displaying the abbrev table name in `edit-abbrev-mode'." | 1224 | "Face used for displaying the abbrev table name in `edit-abbrevs-mode'." |
| 1225 | :version "29.1") | 1225 | :version "29.1") |
| 1226 | 1226 | ||
| 1227 | (defvar edit-abbrevs-mode-font-lock-keywords | 1227 | (defvar edit-abbrevs-mode-font-lock-keywords |
diff --git a/lisp/cedet/ede/locate.el b/lisp/cedet/ede/locate.el index b9b1194ccce..dc465a79f2b 100644 --- a/lisp/cedet/ede/locate.el +++ b/lisp/cedet/ede/locate.el | |||
| @@ -172,7 +172,7 @@ You cannot create projects for the baseclass." | |||
| 172 | (defclass ede-locate-locate (ede-locate-base) | 172 | (defclass ede-locate-locate (ede-locate-base) |
| 173 | () | 173 | () |
| 174 | "EDE Locator using the locate command. | 174 | "EDE Locator using the locate command. |
| 175 | Configure the Emacs `locate-program' variable to also | 175 | Configure the Emacs `locate-command' variable to also |
| 176 | configure the use of EDE locate.") | 176 | configure the use of EDE locate.") |
| 177 | 177 | ||
| 178 | (cl-defmethod ede-locate-ok-in-project ((_loc (subclass ede-locate-locate)) | 178 | (cl-defmethod ede-locate-ok-in-project ((_loc (subclass ede-locate-locate)) |
diff --git a/lisp/cedet/semantic/wisent.el b/lisp/cedet/semantic/wisent.el index 55eeef453ea..b13dc994568 100644 --- a/lisp/cedet/semantic/wisent.el +++ b/lisp/cedet/semantic/wisent.el | |||
| @@ -38,7 +38,7 @@ | |||
| 38 | 38 | ||
| 39 | (defvar wisent-lex-lookahead nil | 39 | (defvar wisent-lex-lookahead nil |
| 40 | "Extra lookahead token. | 40 | "Extra lookahead token. |
| 41 | When non-nil it is directly returned by `wisent-lex-function'.") | 41 | When non-nil it is directly returned by `wisent-lexer-function'.") |
| 42 | 42 | ||
| 43 | (defmacro wisent-lex-eoi () | 43 | (defmacro wisent-lex-eoi () |
| 44 | "Return an End-Of-Input lexical token. | 44 | "Return an End-Of-Input lexical token. |
diff --git a/lisp/ecomplete.el b/lisp/ecomplete.el index dfee0734817..b532ef95e7f 100644 --- a/lisp/ecomplete.el +++ b/lisp/ecomplete.el | |||
| @@ -190,7 +190,7 @@ FORCE is non-nil, use TEXT exactly as is." | |||
| 190 | If CHOOSE, allow the user to choose interactively between the | 190 | If CHOOSE, allow the user to choose interactively between the |
| 191 | matches. | 191 | matches. |
| 192 | 192 | ||
| 193 | Auto-select when `ecomplete-message-display-abbrev-auto-select' is | 193 | Auto-select when `ecomplete-auto-select' is |
| 194 | non-nil and there is only a single completion option available." | 194 | non-nil and there is only a single completion option available." |
| 195 | (let* ((matches (ecomplete-get-matches type word)) | 195 | (let* ((matches (ecomplete-get-matches type word)) |
| 196 | (match-list (and matches (split-string matches "\n"))) | 196 | (match-list (and matches (split-string matches "\n"))) |
diff --git a/lisp/emacs-lisp/backtrace.el b/lisp/emacs-lisp/backtrace.el index 4ffe6f573c6..d461698c88e 100644 --- a/lisp/emacs-lisp/backtrace.el +++ b/lisp/emacs-lisp/backtrace.el | |||
| @@ -753,7 +753,7 @@ property for use by navigation." | |||
| 753 | 753 | ||
| 754 | (defun backtrace--line-length-or-nil () | 754 | (defun backtrace--line-length-or-nil () |
| 755 | "Return `backtrace-line-length' if valid, nil else." | 755 | "Return `backtrace-line-length' if valid, nil else." |
| 756 | ;; mirror the logic in `cl-print-to-string-with-limits' | 756 | ;; mirror the logic in `cl-print-to-string-with-limit' |
| 757 | (and (natnump backtrace-line-length) | 757 | (and (natnump backtrace-line-length) |
| 758 | (not (zerop backtrace-line-length)) | 758 | (not (zerop backtrace-line-length)) |
| 759 | backtrace-line-length)) | 759 | backtrace-line-length)) |
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 5ef2d7fe827..a7e1df3622d 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el | |||
| @@ -178,7 +178,7 @@ Earlier variables shadow later ones with the same name.") | |||
| 178 | ;; be displayed when the function's source file will be | 178 | ;; be displayed when the function's source file will be |
| 179 | ;; compiled anyway, but more importantly we would otherwise | 179 | ;; compiled anyway, but more importantly we would otherwise |
| 180 | ;; emit spurious warnings here because we don't have the full | 180 | ;; emit spurious warnings here because we don't have the full |
| 181 | ;; context, such as `declare-functions' placed earlier in the | 181 | ;; context, such as `declare-function's placed earlier in the |
| 182 | ;; source file's code or `with-suppressed-warnings' that | 182 | ;; source file's code or `with-suppressed-warnings' that |
| 183 | ;; surrounded the `defsubst'. | 183 | ;; surrounded the `defsubst'. |
| 184 | (byte-compile-warnings nil)) | 184 | (byte-compile-warnings nil)) |
diff --git a/lisp/emacs-lisp/comp-cstr.el b/lisp/emacs-lisp/comp-cstr.el index 8cff06a383a..1338ae6e139 100644 --- a/lisp/emacs-lisp/comp-cstr.el +++ b/lisp/emacs-lisp/comp-cstr.el | |||
| @@ -96,7 +96,7 @@ Integer values are handled in the `range' slot.") | |||
| 96 | `comp-common-supertype'.") | 96 | `comp-common-supertype'.") |
| 97 | (subtype-p-mem (make-hash-table :test #'equal) :type hash-table | 97 | (subtype-p-mem (make-hash-table :test #'equal) :type hash-table |
| 98 | :documentation "Serve memoization for | 98 | :documentation "Serve memoization for |
| 99 | `comp-subtype-p-mem'.") | 99 | `comp-cstr-ctxt-subtype-p-mem'.") |
| 100 | (union-1-mem-no-range (make-hash-table :test #'equal) :type hash-table | 100 | (union-1-mem-no-range (make-hash-table :test #'equal) :type hash-table |
| 101 | :documentation "Serve memoization for | 101 | :documentation "Serve memoization for |
| 102 | `comp-cstr-union-1'.") | 102 | `comp-cstr-union-1'.") |
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index d619142d64c..f3077cbbdb8 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el | |||
| @@ -835,8 +835,7 @@ byte-compilation of the new package to fail." | |||
| 835 | If DEPS is non-nil, also activate its dependencies (unless they | 835 | If DEPS is non-nil, also activate its dependencies (unless they |
| 836 | are already activated). | 836 | are already activated). |
| 837 | If RELOAD is non-nil, also `load' any files inside the package which | 837 | If RELOAD is non-nil, also `load' any files inside the package which |
| 838 | correspond to previously loaded files (those returned by | 838 | correspond to previously loaded files." |
| 839 | `package--list-loaded-files')." | ||
| 840 | (let* ((name (package-desc-name pkg-desc)) | 839 | (let* ((name (package-desc-name pkg-desc)) |
| 841 | (pkg-dir (package-desc-dir pkg-desc))) | 840 | (pkg-dir (package-desc-dir pkg-desc))) |
| 842 | (unless pkg-dir | 841 | (unless pkg-dir |
diff --git a/lisp/erc/erc-capab.el b/lisp/erc/erc-capab.el index c590b45fd21..8759282a2ae 100644 --- a/lisp/erc/erc-capab.el +++ b/lisp/erc/erc-capab.el | |||
| @@ -62,7 +62,7 @@ | |||
| 62 | ;; You can customize the prefix and the face used to display it, | 62 | ;; You can customize the prefix and the face used to display it, |
| 63 | ;; `erc-capab-identify-unidentified'. If the value of | 63 | ;; `erc-capab-identify-unidentified'. If the value of |
| 64 | ;; `erc-capab-identify-prefix' is nil or you disable this module (see | 64 | ;; `erc-capab-identify-prefix' is nil or you disable this module (see |
| 65 | ;; `erc-capab-identify-disable'), no prefix will be inserted, but the | 65 | ;; `erc-capab-identify-activated'), no prefix will be inserted, but the |
| 66 | ;; flag sent by the server will still be stripped. | 66 | ;; flag sent by the server will still be stripped. |
| 67 | 67 | ||
| 68 | ;;; Code: | 68 | ;;; Code: |
diff --git a/lisp/erc/erc-networks.el b/lisp/erc/erc-networks.el index 2c8f8fb72bb..d8fb8798198 100644 --- a/lisp/erc/erc-networks.el +++ b/lisp/erc/erc-networks.el | |||
| @@ -1256,7 +1256,7 @@ Signal an error when the network cannot be determined." | |||
| 1256 | ;; but aren't being proxied through to a real network. The | 1256 | ;; but aren't being proxied through to a real network. The |
| 1257 | ;; service may send a 422 but no NETWORK param (or *any* 005s). | 1257 | ;; service may send a 422 but no NETWORK param (or *any* 005s). |
| 1258 | (let ((m (concat "Failed to determine network. Please set entry for " | 1258 | (let ((m (concat "Failed to determine network. Please set entry for " |
| 1259 | erc-server-announced-name " in `erc-network-alist'."))) | 1259 | erc-server-announced-name " in `erc-networks-alist'."))) |
| 1260 | (erc-display-error-notice parsed m) | 1260 | (erc-display-error-notice parsed m) |
| 1261 | (erc-error "Failed to determine network"))) ; beep | 1261 | (erc-error "Failed to determine network"))) ; beep |
| 1262 | (setq erc-network name)) | 1262 | (setq erc-network name)) |
diff --git a/lisp/follow.el b/lisp/follow.el index adf1c1b762d..c26949985e7 100644 --- a/lisp/follow.el +++ b/lisp/follow.el | |||
| @@ -1301,7 +1301,7 @@ non-first windows in Follow mode." | |||
| 1301 | "The buffer current at the last call to `follow-adjust-window' or nil. | 1301 | "The buffer current at the last call to `follow-adjust-window' or nil. |
| 1302 | `follow-mode' is not necessarily enabled in this buffer.") | 1302 | `follow-mode' is not necessarily enabled in this buffer.") |
| 1303 | 1303 | ||
| 1304 | ;; This function is added to `pre-display-function' and is thus called | 1304 | ;; This function is added to `pre-redisplay-function' and is thus called |
| 1305 | ;; before each redisplay operation. It supersedes (2018-09) the | 1305 | ;; before each redisplay operation. It supersedes (2018-09) the |
| 1306 | ;; former use of the post command hook, and now does the right thing | 1306 | ;; former use of the post command hook, and now does the right thing |
| 1307 | ;; when a program calls `redisplay' or `sit-for'. | 1307 | ;; when a program calls `redisplay' or `sit-for'. |
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index 8d9e50059fd..4963fd083f7 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el | |||
| @@ -1810,7 +1810,7 @@ where unread is an integer count of calculated unread | |||
| 1810 | messages (or nil), and info is a regular gnus info entry. | 1810 | messages (or nil), and info is a regular gnus info entry. |
| 1811 | 1811 | ||
| 1812 | The info element is shared with the same element of | 1812 | The info element is shared with the same element of |
| 1813 | `gnus-newrc-alist', so as to conserve space." | 1813 | `gnus-newsrc-alist', so as to conserve space." |
| 1814 | (let ((alist gnus-newsrc-alist) | 1814 | (let ((alist gnus-newsrc-alist) |
| 1815 | (ohashtb gnus-newsrc-hashtb) | 1815 | (ohashtb gnus-newsrc-hashtb) |
| 1816 | info method gname rest methods) | 1816 | info method gname rest methods) |
diff --git a/lisp/gnus/smime.el b/lisp/gnus/smime.el index 7bb116d0c54..409befc2426 100644 --- a/lisp/gnus/smime.el +++ b/lisp/gnus/smime.el | |||
| @@ -152,7 +152,7 @@ certificate." | |||
| 152 | (defcustom smime-CA-file (car (gnutls-trustfiles)) | 152 | (defcustom smime-CA-file (car (gnutls-trustfiles)) |
| 153 | "File containing certificates for CAs you trust. | 153 | "File containing certificates for CAs you trust. |
| 154 | The file should contain certificates in PEM format. By default, | 154 | The file should contain certificates in PEM format. By default, |
| 155 | this is initialized from the `gnutls-trusfiles' variable." | 155 | this is initialized from the `gnutls-trustfiles' variable." |
| 156 | :version "29.1" | 156 | :version "29.1" |
| 157 | :type '(choice (const :tag "none" nil) | 157 | :type '(choice (const :tag "none" nil) |
| 158 | file)) | 158 | file)) |
diff --git a/lisp/icomplete.el b/lisp/icomplete.el index 19afdaa278e..0a63e0a1dd5 100644 --- a/lisp/icomplete.el +++ b/lisp/icomplete.el | |||
| @@ -139,7 +139,7 @@ See `icomplete-delay-completions-threshold'." | |||
| 139 | 139 | ||
| 140 | (defvar icomplete-in-buffer nil | 140 | (defvar icomplete-in-buffer nil |
| 141 | "If non-nil, also use Icomplete when completing in non-mini buffers. | 141 | "If non-nil, also use Icomplete when completing in non-mini buffers. |
| 142 | This affects commands like `complete-in-region', but not commands | 142 | This affects commands like `completion-in-region', but not commands |
| 143 | that use their own completions setup.") | 143 | that use their own completions setup.") |
| 144 | 144 | ||
| 145 | (defcustom icomplete-minibuffer-setup-hook nil | 145 | (defcustom icomplete-minibuffer-setup-hook nil |
diff --git a/lisp/image/image-dired-external.el b/lisp/image/image-dired-external.el index 026a84560da..b1f8a6c2285 100644 --- a/lisp/image/image-dired-external.el +++ b/lisp/image/image-dired-external.el | |||
| @@ -216,7 +216,7 @@ Each item has the form (ORIGINAL-FILE TARGET-FILE).") | |||
| 216 | "Maximum number of concurrent jobs permitted for generating images. | 216 | "Maximum number of concurrent jobs permitted for generating images. |
| 217 | Increase at own risk. If you want to experiment with this, | 217 | Increase at own risk. If you want to experiment with this, |
| 218 | consider setting `image-dired-debug' to a non-nil value to see | 218 | consider setting `image-dired-debug' to a non-nil value to see |
| 219 | the time spent on generating thumbnails. Run `image-clear-cache' | 219 | the time spent on generating thumbnails. Run `clear-image-cache' |
| 220 | and remove the cached thumbnail files between each trial run.") | 220 | and remove the cached thumbnail files between each trial run.") |
| 221 | 221 | ||
| 222 | (defun image-dired-pngnq-thumb (spec) | 222 | (defun image-dired-pngnq-thumb (spec) |
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index eadaf00c4b8..b7eeab1735f 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el | |||
| @@ -1049,7 +1049,7 @@ Each element has the form (TYPE HANDLE), where TYPE is a string | |||
| 1049 | and HANDLE is either the symbol `immediate' or `deferred'. | 1049 | and HANDLE is either the symbol `immediate' or `deferred'. |
| 1050 | Messages in an immediate batch are handled just like regular | 1050 | Messages in an immediate batch are handled just like regular |
| 1051 | messages, while deferred messages are stored in | 1051 | messages, while deferred messages are stored in |
| 1052 | `rcirc-batch-messages'.") | 1052 | `rcirc-batched-messages'.") |
| 1053 | 1053 | ||
| 1054 | (defvar-local rcirc-batch-attributes nil | 1054 | (defvar-local rcirc-batch-attributes nil |
| 1055 | "Alist mapping batch IDs to parameters.") | 1055 | "Alist mapping batch IDs to parameters.") |
diff --git a/lisp/net/sieve-manage.el b/lisp/net/sieve-manage.el index 381e1fcd4f8..b2caa62e51f 100644 --- a/lisp/net/sieve-manage.el +++ b/lisp/net/sieve-manage.el | |||
| @@ -385,7 +385,7 @@ Return the buffer associated with the connection." | |||
| 385 | (defun sieve-manage-open (server &optional port stream auth buffer) | 385 | (defun sieve-manage-open (server &optional port stream auth buffer) |
| 386 | "Open a network connection to a managesieve SERVER (string). | 386 | "Open a network connection to a managesieve SERVER (string). |
| 387 | Optional argument PORT is port number (integer) on remote server. | 387 | Optional argument PORT is port number (integer) on remote server. |
| 388 | Optional argument STREAM is any of `sieve-manage-streams' (a symbol). | 388 | Optional argument STREAM is any of `sieve-manage-stream' (a symbol). |
| 389 | Optional argument AUTH indicates authenticator to use, see | 389 | Optional argument AUTH indicates authenticator to use, see |
| 390 | `sieve-manage-authenticators' for available authenticators. | 390 | `sieve-manage-authenticators' for available authenticators. |
| 391 | If nil, chooses the best stream the server is capable of. | 391 | If nil, chooses the best stream the server is capable of. |
diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el index 35f19cf03b4..e43950f13a3 100644 --- a/lisp/org/org-agenda.el +++ b/lisp/org/org-agenda.el | |||
| @@ -5306,7 +5306,7 @@ of what a project is and how to check if it stuck, customize the variable | |||
| 5306 | "Hook run when the fancy diary buffer is cleaned up.") | 5306 | "Hook run when the fancy diary buffer is cleaned up.") |
| 5307 | 5307 | ||
| 5308 | (defun org-agenda-cleanup-fancy-diary () | 5308 | (defun org-agenda-cleanup-fancy-diary () |
| 5309 | "Remove unwanted stuff in buffer created by `fancy-diary-display'. | 5309 | "Remove unwanted stuff in buffer created by `diary-fancy-display'. |
| 5310 | This gets rid of the date, the underline under the date, and the | 5310 | This gets rid of the date, the underline under the date, and the |
| 5311 | dummy entry installed by Org mode to ensure non-empty diary for | 5311 | dummy entry installed by Org mode to ensure non-empty diary for |
| 5312 | each date. It also removes lines that contain only whitespace." | 5312 | each date. It also removes lines that contain only whitespace." |
diff --git a/lisp/org/ox-ascii.el b/lisp/org/ox-ascii.el index 76a1a71fabe..1452f36c11e 100644 --- a/lisp/org/ox-ascii.el +++ b/lisp/org/ox-ascii.el | |||
| @@ -456,7 +456,7 @@ Optional argument JUSTIFY can specify any type of justification | |||
| 456 | among `left', `center', `right' or `full'. A nil value is | 456 | among `left', `center', `right' or `full'. A nil value is |
| 457 | equivalent to `left'. For a justification that doesn't also fill | 457 | equivalent to `left'. For a justification that doesn't also fill |
| 458 | string, see `org-ascii--justify-lines' and | 458 | string, see `org-ascii--justify-lines' and |
| 459 | `org-ascii--justify-block'. | 459 | `org-ascii--justify-element'. |
| 460 | 460 | ||
| 461 | Return nil if S isn't a string." | 461 | Return nil if S isn't a string." |
| 462 | (when (stringp s) | 462 | (when (stringp s) |
diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el index 1b983e94d79..c5870618372 100644 --- a/lisp/progmodes/eglot.el +++ b/lisp/progmodes/eglot.el | |||
| @@ -618,7 +618,7 @@ Honour `eglot-strict-mode'." | |||
| 618 | (cl-defmacro eglot--dcase (obj &rest clauses) | 618 | (cl-defmacro eglot--dcase (obj &rest clauses) |
| 619 | "Like `pcase', but for the LSP object OBJ. | 619 | "Like `pcase', but for the LSP object OBJ. |
| 620 | CLAUSES is a list (DESTRUCTURE FORMS...) where DESTRUCTURE is | 620 | CLAUSES is a list (DESTRUCTURE FORMS...) where DESTRUCTURE is |
| 621 | treated as in `eglot-dbind'." | 621 | treated as in `eglot--dbind'." |
| 622 | (declare (indent 1) (debug (sexp &rest (sexp &rest form)))) | 622 | (declare (indent 1) (debug (sexp &rest (sexp &rest form)))) |
| 623 | (let ((obj-once (make-symbol "obj-once"))) | 623 | (let ((obj-once (make-symbol "obj-once"))) |
| 624 | `(let ((,obj-once ,obj)) | 624 | `(let ((,obj-once ,obj)) |
| @@ -2464,7 +2464,7 @@ may be called multiple times (respecting the protocol of | |||
| 2464 | (defun eglot-xref-backend () "Eglot xref backend." 'eglot) | 2464 | (defun eglot-xref-backend () "Eglot xref backend." 'eglot) |
| 2465 | 2465 | ||
| 2466 | (defvar eglot--temp-location-buffers (make-hash-table :test #'equal) | 2466 | (defvar eglot--temp-location-buffers (make-hash-table :test #'equal) |
| 2467 | "Helper variable for `eglot--handling-xrefs'.") | 2467 | "Helper variable for `eglot--collecting-xrefs'.") |
| 2468 | 2468 | ||
| 2469 | (defvar eglot-xref-lessp-function #'ignore | 2469 | (defvar eglot-xref-lessp-function #'ignore |
| 2470 | "Compare two `xref-item' objects for sorting.") | 2470 | "Compare two `xref-item' objects for sorting.") |
diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el index 5bbbfa822fd..294cf47087c 100644 --- a/lisp/progmodes/flymake.el +++ b/lisp/progmodes/flymake.el | |||
| @@ -1360,8 +1360,9 @@ default) no filter is applied." | |||
| 1360 | flymake-mode-line-warning-counter | 1360 | flymake-mode-line-warning-counter |
| 1361 | flymake-mode-line-note-counter "]") | 1361 | flymake-mode-line-note-counter "]") |
| 1362 | "Mode-line construct for formatting Flymake diagnostic counters. | 1362 | "Mode-line construct for formatting Flymake diagnostic counters. |
| 1363 | This is a suitable place for placing the `flymake-error-counter', | 1363 | This is a suitable place for placing the `flymake-mode-line-error-counter', |
| 1364 | `flymake-warning-counter' and `flymake-note-counter' constructs. | 1364 | `flymake-mode-line-warning-counter' and `flymake-mode-line-note-counter' |
| 1365 | constructs. | ||
| 1365 | Separating each of these with space is not necessary." | 1366 | Separating each of these with space is not necessary." |
| 1366 | :type '(repeat (choice string symbol))) | 1367 | :type '(repeat (choice string symbol))) |
| 1367 | 1368 | ||
diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el index 0de3d213a4d..dff677e785f 100644 --- a/lisp/progmodes/gdb-mi.el +++ b/lisp/progmodes/gdb-mi.el | |||
| @@ -4359,7 +4359,7 @@ member." | |||
| 4359 | "Mapping of local variable names to a string with their value.") | 4359 | "Mapping of local variable names to a string with their value.") |
| 4360 | 4360 | ||
| 4361 | (defun gdb-locals-values-handler-custom () | 4361 | (defun gdb-locals-values-handler-custom () |
| 4362 | "Store the values of local variables in `gdb-locals-value-map'." | 4362 | "Store the values of local variables in `gdb-locals-values-table'." |
| 4363 | (let ((locals-list (bindat-get-field (gdb-mi--partial-output) 'variables))) | 4363 | (let ((locals-list (bindat-get-field (gdb-mi--partial-output) 'variables))) |
| 4364 | (dolist (local locals-list) | 4364 | (dolist (local locals-list) |
| 4365 | (let ((name (bindat-get-field local 'name)) | 4365 | (let ((name (bindat-get-field local 'name)) |
diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el index d6b8edaa365..310a9be4f6e 100644 --- a/lisp/progmodes/verilog-mode.el +++ b/lisp/progmodes/verilog-mode.el | |||
| @@ -9630,7 +9630,7 @@ Returns REGEXP and list of ( (signal_name connection_name)... )." | |||
| 9630 | 9630 | ||
| 9631 | (defun verilog-read-auto-template (module) | 9631 | (defun verilog-read-auto-template (module) |
| 9632 | "Look for an auto_template for the instantiation of the given MODULE. | 9632 | "Look for an auto_template for the instantiation of the given MODULE. |
| 9633 | If found returns `verilog-read-auto-template-inside' structure." | 9633 | If found returns `verilog-read-auto-template-middle' structure." |
| 9634 | (save-excursion | 9634 | (save-excursion |
| 9635 | ;; Find beginning | 9635 | ;; Find beginning |
| 9636 | (let ((pt (point))) | 9636 | (let ((pt (point))) |
| @@ -10024,7 +10024,7 @@ Used for __FLAGS__ in `verilog-expand-command'." | |||
| 10024 | 10024 | ||
| 10025 | (defvar verilog-dir-cache-preserving nil | 10025 | (defvar verilog-dir-cache-preserving nil |
| 10026 | "If true, the directory cache is enabled, and file system changes are ignored. | 10026 | "If true, the directory cache is enabled, and file system changes are ignored. |
| 10027 | See `verilog-dir-exists-p' and `verilog-dir-files'.") | 10027 | See `verilog-dir-file-exists-p' and `verilog-dir-files'.") |
| 10028 | 10028 | ||
| 10029 | ;; If adding new cached variable, add also to verilog-preserve-dir-cache | 10029 | ;; If adding new cached variable, add also to verilog-preserve-dir-cache |
| 10030 | (defvar verilog-dir-cache-list nil | 10030 | (defvar verilog-dir-cache-list nil |
diff --git a/lisp/subr.el b/lisp/subr.el index e49c22158f9..7dfe0ac66c0 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -1296,7 +1296,7 @@ KEY is a string or vector representing a sequence of keystrokes." | |||
| 1296 | 1296 | ||
| 1297 | (defun local-key-binding (keys &optional accept-default) | 1297 | (defun local-key-binding (keys &optional accept-default) |
| 1298 | "Return the binding for command KEYS in current local keymap only. | 1298 | "Return the binding for command KEYS in current local keymap only. |
| 1299 | This is a legacy function; see `keymap-local-binding' for the | 1299 | This is a legacy function; see `keymap-local-lookup' for the |
| 1300 | recommended function to use instead. | 1300 | recommended function to use instead. |
| 1301 | 1301 | ||
| 1302 | KEYS is a string or vector, a sequence of keystrokes. | 1302 | KEYS is a string or vector, a sequence of keystrokes. |
| @@ -1310,7 +1310,7 @@ about this." | |||
| 1310 | 1310 | ||
| 1311 | (defun global-key-binding (keys &optional accept-default) | 1311 | (defun global-key-binding (keys &optional accept-default) |
| 1312 | "Return the binding for command KEYS in current global keymap only. | 1312 | "Return the binding for command KEYS in current global keymap only. |
| 1313 | This is a legacy function; see `keymap-global-binding' for the | 1313 | This is a legacy function; see `keymap-global-lookup' for the |
| 1314 | recommended function to use instead. | 1314 | recommended function to use instead. |
| 1315 | 1315 | ||
| 1316 | KEYS is a string or vector, a sequence of keystrokes. | 1316 | KEYS is a string or vector, a sequence of keystrokes. |
diff --git a/lisp/transient.el b/lisp/transient.el index a4158589706..f7920e414f1 100644 --- a/lisp/transient.el +++ b/lisp/transient.el | |||
| @@ -3501,7 +3501,7 @@ Optional support for popup buttons is also implemented here." | |||
| 3501 | 3501 | ||
| 3502 | (cl-defmethod transient-format-description ((obj transient-child)) | 3502 | (cl-defmethod transient-format-description ((obj transient-child)) |
| 3503 | "The `description' slot may be a function, in which case that is | 3503 | "The `description' slot may be a function, in which case that is |
| 3504 | called inside the correct buffer (see `transient-insert-group') | 3504 | called inside the correct buffer (see `transient--insert-group') |
| 3505 | and its value is returned to the caller." | 3505 | and its value is returned to the caller." |
| 3506 | (and-let* ((desc (oref obj description))) | 3506 | (and-let* ((desc (oref obj description))) |
| 3507 | (if (functionp desc) | 3507 | (if (functionp desc) |
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index 1edbd1777c6..734b4a0d221 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el | |||
| @@ -823,7 +823,7 @@ Return a list of results." | |||
| 823 | (should (= (comp-tests-tco-f 1 0 10) 55)))) | 823 | (should (= (comp-tests-tco-f 1 0 10) 55)))) |
| 824 | 824 | ||
| 825 | (defun comp-tests-fw-prop-checker-1 (_) | 825 | (defun comp-tests-fw-prop-checker-1 (_) |
| 826 | "Check that inside `comp-tests-fw-prop-f' `concat' and `length' are folded." | 826 | "Check that inside `comp-tests-fw-prop-1-f' `concat' and `length' are folded." |
| 827 | (should | 827 | (should |
| 828 | (cl-notany | 828 | (cl-notany |
| 829 | #'identity | 829 | #'identity |
diff --git a/test/src/emacs-module-tests.el b/test/src/emacs-module-tests.el index 1099fd04678..a9a45d54632 100644 --- a/test/src/emacs-module-tests.el +++ b/test/src/emacs-module-tests.el | |||
| @@ -263,7 +263,7 @@ must evaluate to a regular expression string." | |||
| 263 | 263 | ||
| 264 | (ert-deftest module--test-assertions--load-non-live-object-with-global-copy () | 264 | (ert-deftest module--test-assertions--load-non-live-object-with-global-copy () |
| 265 | "Check that -module-assertions verify that non-live objects aren't accessed. | 265 | "Check that -module-assertions verify that non-live objects aren't accessed. |
| 266 | This differs from `module--test-assertions-load-non-live-object' | 266 | This differs from `module--test-assertions--load-non-live-object' |
| 267 | in that it stows away a global reference. The module assertions | 267 | in that it stows away a global reference. The module assertions |
| 268 | should nevertheless detect the invalid load." | 268 | should nevertheless detect the invalid load." |
| 269 | :tags (if (getenv "EMACS_EMBA_CI") '(:unstable)) | 269 | :tags (if (getenv "EMACS_EMBA_CI") '(:unstable)) |