diff options
| author | Paul Eggert | 2024-06-04 22:13:47 -0700 |
|---|---|---|
| committer | Paul Eggert | 2024-06-04 22:16:28 -0700 |
| commit | 3dcac22dd4225fdec0b97408da38f74de2a77bef (patch) | |
| tree | c79a8563efbed67aae0bba5d46b628c1e8a5b69b /lisp | |
| parent | 636461686f1d36388d4523cbb10eb7ec3bbbd63e (diff) | |
| download | emacs-3dcac22dd4225fdec0b97408da38f74de2a77bef.tar.gz emacs-3dcac22dd4225fdec0b97408da38f74de2a77bef.zip | |
Spelling fixes
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/completion-preview.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/package.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/track-changes.el | 6 | ||||
| -rw-r--r-- | lisp/eshell/em-script.el | 2 | ||||
| -rw-r--r-- | lisp/eshell/esh-io.el | 2 | ||||
| -rw-r--r-- | lisp/image.el | 4 | ||||
| -rw-r--r-- | lisp/net/dictionary.el | 2 | ||||
| -rw-r--r-- | lisp/net/eww.el | 2 | ||||
| -rw-r--r-- | lisp/net/tramp-container.el | 2 | ||||
| -rw-r--r-- | lisp/net/tramp-sh.el | 2 | ||||
| -rw-r--r-- | lisp/net/tramp.el | 2 | ||||
| -rw-r--r-- | lisp/outline.el | 2 | ||||
| -rw-r--r-- | lisp/progmodes/c-ts-common.el | 2 | ||||
| -rw-r--r-- | lisp/progmodes/flymake.el | 4 | ||||
| -rw-r--r-- | lisp/progmodes/xref.el | 2 | ||||
| -rw-r--r-- | lisp/term/android-win.el | 2 | ||||
| -rw-r--r-- | lisp/thingatpt.el | 2 | ||||
| -rw-r--r-- | lisp/transient.el | 2 | ||||
| -rw-r--r-- | lisp/treesit.el | 2 | ||||
| -rw-r--r-- | lisp/url/url-util.el | 2 | ||||
| -rw-r--r-- | lisp/window-tool-bar.el | 6 |
22 files changed, 28 insertions, 28 deletions
diff --git a/lisp/completion-preview.el b/lisp/completion-preview.el index 17d9ca938a8..933ee24b620 100644 --- a/lisp/completion-preview.el +++ b/lisp/completion-preview.el | |||
| @@ -465,7 +465,7 @@ completions list." | |||
| 465 | (funcall efn string status))))) | 465 | (funcall efn string status))))) |
| 466 | ;; The predicate is meant for the original completion | 466 | ;; The predicate is meant for the original completion |
| 467 | ;; candidates, which may be symbols or cons cells, but | 467 | ;; candidates, which may be symbols or cons cells, but |
| 468 | ;; now we only have strings, so it might be unapplicable. | 468 | ;; now we only have strings, so it might not be applicable. |
| 469 | (props (plist-put props :predicate nil)) | 469 | (props (plist-put props :predicate nil)) |
| 470 | (completion-at-point-functions | 470 | (completion-at-point-functions |
| 471 | (list (lambda () `(,beg ,end ,col ,@props))))) | 471 | (list (lambda () `(,beg ,end ,col ,@props))))) |
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 1627294199a..032e49840a8 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el | |||
| @@ -207,7 +207,7 @@ Useful to hook into pass checkers.") | |||
| 207 | ;; cl-macs.el. We can't use `cl-deftype-satisfies' directly as the | 207 | ;; cl-macs.el. We can't use `cl-deftype-satisfies' directly as the |
| 208 | ;; relation type <-> predicate is not bijective (bug#45576). | 208 | ;; relation type <-> predicate is not bijective (bug#45576). |
| 209 | (defconst comp-known-predicates | 209 | (defconst comp-known-predicates |
| 210 | ;; FIXME: Auto-generate (most of) it from `cl-deftype-satifies'? | 210 | ;; FIXME: Auto-generate (most of) it from `cl-deftype-satisfies'? |
| 211 | '((arrayp array) | 211 | '((arrayp array) |
| 212 | (atom atom) | 212 | (atom atom) |
| 213 | (bool-vector-p bool-vector) | 213 | (bool-vector-p bool-vector) |
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index fda855d2143..fac824d44a4 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el | |||
| @@ -2646,7 +2646,7 @@ will be deleted." | |||
| 2646 | (message "Nothing to autoremove"))))) | 2646 | (message "Nothing to autoremove"))))) |
| 2647 | 2647 | ||
| 2648 | (defun package-isolate (packages &optional temp-init) | 2648 | (defun package-isolate (packages &optional temp-init) |
| 2649 | "Start an uncustomised Emacs and only load a set of PACKAGES. | 2649 | "Start an uncustomized Emacs and only load a set of PACKAGES. |
| 2650 | If TEMP-INIT is non-nil, or when invoked with a prefix argument, | 2650 | If TEMP-INIT is non-nil, or when invoked with a prefix argument, |
| 2651 | the Emacs user directory is set to a temporary directory." | 2651 | the Emacs user directory is set to a temporary directory." |
| 2652 | (interactive | 2652 | (interactive |
diff --git a/lisp/emacs-lisp/track-changes.el b/lisp/emacs-lisp/track-changes.el index 958def17a2f..92d14959763 100644 --- a/lisp/emacs-lisp/track-changes.el +++ b/lisp/emacs-lisp/track-changes.el | |||
| @@ -177,7 +177,7 @@ This is used to try and detect cases where buffer modifications are \"lost\".") | |||
| 177 | ;; presume that these might be too old to receive fixes, so better not | 177 | ;; presume that these might be too old to receive fixes, so better not |
| 178 | ;; annoy the user too much about errors. | 178 | ;; annoy the user too much about errors. |
| 179 | (string-match "\\..*\\." emacs-version) | 179 | (string-match "\\..*\\." emacs-version) |
| 180 | "If non-nil, keep track of errors in `before/after-chage-functions' calls. | 180 | "If non-nil, keep track of errors in `before/after-change-functions' calls. |
| 181 | The errors are kept in `track-changes--error-log'.") | 181 | The errors are kept in `track-changes--error-log'.") |
| 182 | 182 | ||
| 183 | (cl-defun track-changes-register ( signal &key nobefore disjoint immediate) | 183 | (cl-defun track-changes-register ( signal &key nobefore disjoint immediate) |
| @@ -500,9 +500,9 @@ Details logged to `track-changes--error-log'") | |||
| 500 | 500 | ||
| 501 | (if track-changes--before-clean | 501 | (if track-changes--before-clean |
| 502 | (progn | 502 | (progn |
| 503 | ;; Detect disjointness with previous changes here as well, | 503 | ;; Detect disjointedness with previous changes here as well, |
| 504 | ;; so that if a client calls `track-changes-fetch' all the time, | 504 | ;; so that if a client calls `track-changes-fetch' all the time, |
| 505 | ;; it doesn't prevent others from getting a disjointness signal. | 505 | ;; it doesn't prevent others from getting a disjointedness signal. |
| 506 | (when (and track-changes--before-beg | 506 | (when (and track-changes--before-beg |
| 507 | (let ((found nil)) | 507 | (let ((found nil)) |
| 508 | (dolist (tracker track-changes--disjoint-trackers) | 508 | (dolist (tracker track-changes--disjoint-trackers) |
diff --git a/lisp/eshell/em-script.el b/lisp/eshell/em-script.el index 6e2ca7ca781..88dad840eaa 100644 --- a/lisp/eshell/em-script.el +++ b/lisp/eshell/em-script.el | |||
| @@ -85,7 +85,7 @@ This includes when running `eshell-command'." | |||
| 85 | t)))) | 85 | t)))) |
| 86 | 86 | ||
| 87 | (defun eshell--source-file (file &optional args subcommand-p) | 87 | (defun eshell--source-file (file &optional args subcommand-p) |
| 88 | "Return a Lisp form for executig the Eshell commands in FILE, passing ARGS. | 88 | "Return a Lisp form for executing the Eshell commands in FILE, passing ARGS. |
| 89 | If SUBCOMMAND-P is non-nil, execute this as a subcommand." | 89 | If SUBCOMMAND-P is non-nil, execute this as a subcommand." |
| 90 | (let ((cmd (eshell-parse-command `(:file . ,file)))) | 90 | (let ((cmd (eshell-parse-command `(:file . ,file)))) |
| 91 | (when subcommand-p | 91 | (when subcommand-p |
diff --git a/lisp/eshell/esh-io.el b/lisp/eshell/esh-io.el index c7017ee1d70..0fe177d4c60 100644 --- a/lisp/eshell/esh-io.el +++ b/lisp/eshell/esh-io.el | |||
| @@ -150,7 +150,7 @@ slot, passing the exit status of the redirected command. | |||
| 150 | If PASS-MODE is non-nil, Eshell will pass the redirection mode as an | 150 | If PASS-MODE is non-nil, Eshell will pass the redirection mode as an |
| 151 | argument (which is the symbol `overwrite', `append' or `insert') to | 151 | argument (which is the symbol `overwrite', `append' or `insert') to |
| 152 | OUTPUT-FUNCTION, which should return the real output function (either an | 152 | OUTPUT-FUNCTION, which should return the real output function (either an |
| 153 | ordinary function or `eshell-generic-target' as desribed above)." | 153 | ordinary function or `eshell-generic-target' as described above)." |
| 154 | :version "30.1" | 154 | :version "30.1" |
| 155 | :type '(repeat | 155 | :type '(repeat |
| 156 | (list (string :tag "Target") | 156 | (list (string :tag "Target") |
diff --git a/lisp/image.el b/lisp/image.el index c155cda125e..c75c8ff765a 100644 --- a/lisp/image.el +++ b/lisp/image.el | |||
| @@ -568,7 +568,7 @@ loaded." | |||
| 568 | (rotation (plist-get props :rotation))) | 568 | (rotation (plist-get props :rotation))) |
| 569 | (cond | 569 | (cond |
| 570 | ;; The scale of the image won't be available until | 570 | ;; The scale of the image won't be available until |
| 571 | ;; `image_set_transform', and as such, defer to its judgement. | 571 | ;; `image_set_transform', and as such, defer to its judgment. |
| 572 | ((eq scaling 'default) 'lambda) | 572 | ((eq scaling 'default) 'lambda) |
| 573 | ;; We always smooth when scaling down and small upwards scaling. | 573 | ;; We always smooth when scaling down and small upwards scaling. |
| 574 | ((and scaling (< scaling 2)) | 574 | ((and scaling (< scaling 2)) |
| @@ -812,7 +812,7 @@ where FILE is the file from which to load the image, and DATA is a | |||
| 812 | string containing the actual image data. If the property `:type TYPE' | 812 | string containing the actual image data. If the property `:type TYPE' |
| 813 | is omitted or nil, try to determine the image type from its first few | 813 | is omitted or nil, try to determine the image type from its first few |
| 814 | bytes of image data. If that doesn't work, and the property `:file | 814 | bytes of image data. If that doesn't work, and the property `:file |
| 815 | FILE' provide a file name, use its file extension as idication of the | 815 | FILE' provide a file name, use its file extension as indication of the |
| 816 | image type. If `:type TYPE' is provided, it must match the actual type | 816 | image type. If `:type TYPE' is provided, it must match the actual type |
| 817 | determined for FILE or DATA by `create-image'. | 817 | determined for FILE or DATA by `create-image'. |
| 818 | 818 | ||
diff --git a/lisp/net/dictionary.el b/lisp/net/dictionary.el index 9fb8b8ffaed..b12f3fa4368 100644 --- a/lisp/net/dictionary.el +++ b/lisp/net/dictionary.el | |||
| @@ -1424,7 +1424,7 @@ via `dictionary-dictionaries'." | |||
| 1424 | ;; This function runs from the tooltip timer. We don't want to | 1424 | ;; This function runs from the tooltip timer. We don't want to |
| 1425 | ;; signal errors from the timer due to "Unknown server answers", | 1425 | ;; signal errors from the timer due to "Unknown server answers", |
| 1426 | ;; we prefer not to show anything in that case. FIXME: Perhaps | 1426 | ;; we prefer not to show anything in that case. FIXME: Perhaps |
| 1427 | ;; use with-demoted-errors, to show the unknonw answers in the | 1427 | ;; use with-demoted-errors, to show the unknown answers in the |
| 1428 | ;; echo-area? | 1428 | ;; echo-area? |
| 1429 | (ignore-errors | 1429 | (ignore-errors |
| 1430 | (let* ((word (dictionary-word-at-mouse-event | 1430 | (let* ((word (dictionary-word-at-mouse-event |
diff --git a/lisp/net/eww.el b/lisp/net/eww.el index 32e24f9e2e5..977210e9cc8 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el | |||
| @@ -2463,7 +2463,7 @@ If ERROR-OUT, signal user-error if there are no bookmarks." | |||
| 2463 | 2463 | ||
| 2464 | (defun eww-save-history () | 2464 | (defun eww-save-history () |
| 2465 | "Save the current page's data to the history. | 2465 | "Save the current page's data to the history. |
| 2466 | If the current page is a historial one loaded from | 2466 | If the current page is a historical one loaded from |
| 2467 | `eww-history' (e.g. by calling `eww-back-url'), this will update the | 2467 | `eww-history' (e.g. by calling `eww-back-url'), this will update the |
| 2468 | page's entry in `eww-history' and return nil. Otherwise, add a new | 2468 | page's entry in `eww-history' and return nil. Otherwise, add a new |
| 2469 | entry to `eww-history' and return t." | 2469 | entry to `eww-history' and return t." |
diff --git a/lisp/net/tramp-container.el b/lisp/net/tramp-container.el index d0edbfea1e8..f29d55d78d9 100644 --- a/lisp/net/tramp-container.el +++ b/lisp/net/tramp-container.el | |||
| @@ -168,7 +168,7 @@ If it is nil, the default context will be used." | |||
| 168 | 168 | ||
| 169 | ;;;###tramp-autoload | 169 | ;;;###tramp-autoload |
| 170 | (defcustom tramp-distrobox-program "distrobox" | 170 | (defcustom tramp-distrobox-program "distrobox" |
| 171 | "Name of the Distrobxx client program." | 171 | "Name of the Distrobox client program." |
| 172 | :group 'tramp | 172 | :group 'tramp |
| 173 | :version "30.1" | 173 | :version "30.1" |
| 174 | :type '(choice (const "distrobox") | 174 | :type '(choice (const "distrobox") |
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el index 87c1bc0b460..106149f5dce 100644 --- a/lisp/net/tramp-sh.el +++ b/lisp/net/tramp-sh.el | |||
| @@ -2705,7 +2705,7 @@ The method used must be an out-of-band method." | |||
| 2705 | (let ((dired (tramp-get-ls-command-with v "--dired"))) | 2705 | (let ((dired (tramp-get-ls-command-with v "--dired"))) |
| 2706 | (when (stringp switches) | 2706 | (when (stringp switches) |
| 2707 | (setq switches (split-string switches))) | 2707 | (setq switches (split-string switches))) |
| 2708 | ;; Newer coreutil versions of ls (9.5 and up) imply long format | 2708 | ;; Newer coreutils versions of ls (9.5 and up) imply long format |
| 2709 | ;; output when "--dired" is given. Suppress this implicit rule. | 2709 | ;; output when "--dired" is given. Suppress this implicit rule. |
| 2710 | (when dired | 2710 | (when dired |
| 2711 | (let ((tem switches) | 2711 | (let ((tem switches) |
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 21d563d6bfa..5c90f3680c1 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el | |||
| @@ -4851,7 +4851,7 @@ a connection-local variable." | |||
| 4851 | (defvar tramp-direct-async-process nil | 4851 | (defvar tramp-direct-async-process nil |
| 4852 | "Whether direct asynchronous processes should be used. | 4852 | "Whether direct asynchronous processes should be used. |
| 4853 | It is not recommended to change this variable globally. Instead, it | 4853 | It is not recommended to change this variable globally. Instead, it |
| 4854 | should be set conmnection-local.") | 4854 | should be set connection-local.") |
| 4855 | 4855 | ||
| 4856 | (defun tramp-direct-async-process-p (&rest args) | 4856 | (defun tramp-direct-async-process-p (&rest args) |
| 4857 | "Whether direct async `make-process' can be called." | 4857 | "Whether direct async `make-process' can be called." |
diff --git a/lisp/outline.el b/lisp/outline.el index 373902e3f59..4d74b30dba4 100644 --- a/lisp/outline.el +++ b/lisp/outline.el | |||
| @@ -1726,7 +1726,7 @@ under `outline-minor-mode' is reverted by `revert-buffer'." | |||
| 1726 | 1726 | ||
| 1727 | (defun outline-revert-buffer-rehighlight () | 1727 | (defun outline-revert-buffer-rehighlight () |
| 1728 | "Rehighlight outlines when reverting buffer under `outline-minor-mode'. | 1728 | "Rehighlight outlines when reverting buffer under `outline-minor-mode'. |
| 1729 | This function rehighlightes outlines after the buffer under | 1729 | This function rehighlights outlines after the buffer under |
| 1730 | `outline-minor-mode' is reverted by `revert-buffer' when font-lock | 1730 | `outline-minor-mode' is reverted by `revert-buffer' when font-lock |
| 1731 | can't update highlighting for `outline-minor-mode-highlight'." | 1731 | can't update highlighting for `outline-minor-mode-highlight'." |
| 1732 | (when (and outline-minor-mode-highlight | 1732 | (when (and outline-minor-mode-highlight |
diff --git a/lisp/progmodes/c-ts-common.el b/lisp/progmodes/c-ts-common.el index f027fc28c04..3882a697c48 100644 --- a/lisp/progmodes/c-ts-common.el +++ b/lisp/progmodes/c-ts-common.el | |||
| @@ -291,7 +291,7 @@ and /* */ comments. SOFT works the same as in | |||
| 291 | ;; I want to experiment with explicitly listing out all each cases and | 291 | ;; I want to experiment with explicitly listing out all each cases and |
| 292 | ;; handle them separately, as opposed to fiddling with `comment-start' | 292 | ;; handle them separately, as opposed to fiddling with `comment-start' |
| 293 | ;; and friends. This will have more duplicate code and will be less | 293 | ;; and friends. This will have more duplicate code and will be less |
| 294 | ;; generic, but in the same time might save us from writting cryptic | 294 | ;; generic, but in the same time might save us from writing cryptic |
| 295 | ;; code to handle all sorts of edge cases. | 295 | ;; code to handle all sorts of edge cases. |
| 296 | ;; | 296 | ;; |
| 297 | ;; For this command, let's try to make it basic: if the current line | 297 | ;; For this command, let's try to make it basic: if the current line |
diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el index 2e602658ea7..6301b77beca 100644 --- a/lisp/progmodes/flymake.el +++ b/lisp/progmodes/flymake.el | |||
| @@ -188,7 +188,7 @@ See `flymake-error-bitmap' and `flymake-warning-bitmap'." | |||
| 188 | The value can be nil (don't indicate errors but just highlight them), | 188 | The value can be nil (don't indicate errors but just highlight them), |
| 189 | fringes (use fringes) or margins (use margins) | 189 | fringes (use fringes) or margins (use margins) |
| 190 | 190 | ||
| 191 | Difference between fringes and margin is that fringes support diplaying | 191 | Difference between fringes and margin is that fringes support displaying |
| 192 | bitmaps on graphical displays and margins display text in a blank area | 192 | bitmaps on graphical displays and margins display text in a blank area |
| 193 | from current buffer that works in both graphical and text displays. | 193 | from current buffer that works in both graphical and text displays. |
| 194 | 194 | ||
| @@ -788,7 +788,7 @@ Return to original margin width if ORIG-WIDTH is non-nil." | |||
| 788 | left-margin-width 2) | 788 | left-margin-width 2) |
| 789 | (setq-local flymake--original-margin-width right-margin-width | 789 | (setq-local flymake--original-margin-width right-margin-width |
| 790 | right-margin-width 2)))) | 790 | right-margin-width 2)))) |
| 791 | ;; Apply margin to all windows avalaibles | 791 | ;; Apply margin to all windows available. |
| 792 | (mapc (lambda (x) | 792 | (mapc (lambda (x) |
| 793 | (set-window-buffer x (window-buffer x))) | 793 | (set-window-buffer x (window-buffer x))) |
| 794 | (get-buffer-window-list nil nil 'visible)))) | 794 | (get-buffer-window-list nil nil 'visible)))) |
diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el index 0025f1f9479..beea2b8c1d6 100644 --- a/lisp/progmodes/xref.el +++ b/lisp/progmodes/xref.el | |||
| @@ -2117,7 +2117,7 @@ Such as the current syntax table and the applied syntax properties." | |||
| 2117 | ;; Using the temporary buffer is both a performance and a buffer | 2117 | ;; Using the temporary buffer is both a performance and a buffer |
| 2118 | ;; management optimization. | 2118 | ;; management optimization. |
| 2119 | (with-current-buffer tmp-buffer | 2119 | (with-current-buffer tmp-buffer |
| 2120 | ;; This let is fairly dangerouns, but improves performance | 2120 | ;; This let is fairly dangerous, but improves performance |
| 2121 | ;; for large lists, see https://debbugs.gnu.org/53749#227 | 2121 | ;; for large lists, see https://debbugs.gnu.org/53749#227 |
| 2122 | (let ((inhibit-modification-hooks t)) | 2122 | (let ((inhibit-modification-hooks t)) |
| 2123 | (erase-buffer) | 2123 | (erase-buffer) |
diff --git a/lisp/term/android-win.el b/lisp/term/android-win.el index 3538f41aa84..bab6b6b9ff0 100644 --- a/lisp/term/android-win.el +++ b/lisp/term/android-win.el | |||
| @@ -305,7 +305,7 @@ names which represent them." | |||
| 305 | (new-uri-list nil) | 305 | (new-uri-list nil) |
| 306 | (dnd-unescape-file-uris t)) | 306 | (dnd-unescape-file-uris t)) |
| 307 | (dolist (uri uri-list) | 307 | (dolist (uri uri-list) |
| 308 | ;; If the URI is a preprepared file name, insert it directly. | 308 | ;; If the URI is a prepared file name, insert it directly. |
| 309 | (if (string-match-p "^/content/by-authority\\(-named\\)?/" uri) | 309 | (if (string-match-p "^/content/by-authority\\(-named\\)?/" uri) |
| 310 | (setq uri (concat "file:" uri) | 310 | (setq uri (concat "file:" uri) |
| 311 | dnd-unescape-file-uris nil) | 311 | dnd-unescape-file-uris nil) |
diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el index fe9f5003f0b..a593b6c6241 100644 --- a/lisp/thingatpt.el +++ b/lisp/thingatpt.el | |||
| @@ -792,7 +792,7 @@ Signal an error if the entire string was not used." | |||
| 792 | 792 | ||
| 793 | (defvar thing-at-point-hexadecimal-regexp | 793 | (defvar thing-at-point-hexadecimal-regexp |
| 794 | "\\(0x\\|#x\\)\\([a-fA-F0-9]+\\)" | 794 | "\\(0x\\|#x\\)\\([a-fA-F0-9]+\\)" |
| 795 | "A regexp matchin a hexadecimal number.") | 795 | "A regexp matching a hexadecimal number.") |
| 796 | 796 | ||
| 797 | ;;;###autoload | 797 | ;;;###autoload |
| 798 | (defun number-at-point () | 798 | (defun number-at-point () |
diff --git a/lisp/transient.el b/lisp/transient.el index c3b9448e2c4..c9b6e457d00 100644 --- a/lisp/transient.el +++ b/lisp/transient.el | |||
| @@ -3645,7 +3645,7 @@ have a history of their own.") | |||
| 3645 | (propertize "\n" 'face face 'line-height t)))) | 3645 | (propertize "\n" 'face face 'line-height t)))) |
| 3646 | 3646 | ||
| 3647 | (defmacro transient-with-shadowed-buffer (&rest body) | 3647 | (defmacro transient-with-shadowed-buffer (&rest body) |
| 3648 | "While in the transient buffer, temporarly make the shadowed buffer current." | 3648 | "While in the transient buffer, temporarily make the shadowed buffer current." |
| 3649 | (declare (indent 0) (debug t)) | 3649 | (declare (indent 0) (debug t)) |
| 3650 | `(with-current-buffer (or transient--shadowed-buffer (current-buffer)) | 3650 | `(with-current-buffer (or transient--shadowed-buffer (current-buffer)) |
| 3651 | ,@body)) | 3651 | ,@body)) |
diff --git a/lisp/treesit.el b/lisp/treesit.el index aa3beb86174..bcabf98f1d1 100644 --- a/lisp/treesit.el +++ b/lisp/treesit.el | |||
| @@ -830,7 +830,7 @@ t, nil, append, prepend, keep. See more in | |||
| 830 | `treesit-font-lock-rules'.") | 830 | `treesit-font-lock-rules'.") |
| 831 | 831 | ||
| 832 | (defsubst treesit--font-lock-setting-feature (setting) | 832 | (defsubst treesit--font-lock-setting-feature (setting) |
| 833 | "Reutrn the feature of SETTING. | 833 | "Return the feature of SETTING. |
| 834 | SETTING should be a setting in `treesit-font-lock-settings'." | 834 | SETTING should be a setting in `treesit-font-lock-settings'." |
| 835 | (nth 2 setting)) | 835 | (nth 2 setting)) |
| 836 | 836 | ||
diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el index 4d2609cbb95..f41c5b07ffa 100644 --- a/lisp/url/url-util.el +++ b/lisp/url/url-util.el | |||
| @@ -377,7 +377,7 @@ These characters are specified in RFC 3986, Appendix A.") | |||
| 377 | (aset vec ?& nil) | 377 | (aset vec ?& nil) |
| 378 | (aset vec ?\; nil) | 378 | (aset vec ?\; nil) |
| 379 | vec) | 379 | vec) |
| 380 | "Allowed-charcter byte mask for keys and values in the query segment of a URI. | 380 | "Allowed-character byte mask for keys and values in the query segment of a URI. |
| 381 | url-query-allowed-chars minus '=', '&', and ';'.") | 381 | url-query-allowed-chars minus '=', '&', and ';'.") |
| 382 | 382 | ||
| 383 | ;;;###autoload | 383 | ;;;###autoload |
diff --git a/lisp/window-tool-bar.el b/lisp/window-tool-bar.el index 395aa3aa9cc..a9d10650b98 100644 --- a/lisp/window-tool-bar.el +++ b/lisp/window-tool-bar.el | |||
| @@ -66,7 +66,7 @@ | |||
| 66 | ;; like to also generally make tool bars better. | 66 | ;; like to also generally make tool bars better. |
| 67 | ;; | 67 | ;; |
| 68 | ;; Targeting 0.3: | 68 | ;; Targeting 0.3: |
| 69 | ;; * Properly support reamining less frequently used tool bar item specs. From | 69 | ;; * Properly support remaining less frequently used tool bar item specs. From |
| 70 | ;; `parse_tool_bar_item': | 70 | ;; `parse_tool_bar_item': |
| 71 | ;; * :visible | 71 | ;; * :visible |
| 72 | ;; * :filter | 72 | ;; * :filter |
| @@ -102,7 +102,7 @@ | |||
| 102 | ;; lot of garbage. So this benchmarking focuses on garbage | 102 | ;; lot of garbage. So this benchmarking focuses on garbage |
| 103 | ;; generation. Since it has to run after most commands, generating | 103 | ;; generation. Since it has to run after most commands, generating |
| 104 | ;; significantly more garbage will cause noticeable performance | 104 | ;; significantly more garbage will cause noticeable performance |
| 105 | ;; degration. | 105 | ;; degradation. |
| 106 | ;; | 106 | ;; |
| 107 | ;; The refresh has two steps: | 107 | ;; The refresh has two steps: |
| 108 | ;; | 108 | ;; |
| @@ -111,7 +111,7 @@ | |||
| 111 | ;; bar string. | 111 | ;; bar string. |
| 112 | ;; | 112 | ;; |
| 113 | ;; Additionally, we keep track of the percentage of commands that | 113 | ;; Additionally, we keep track of the percentage of commands that |
| 114 | ;; acutally created a refresh. | 114 | ;; actually created a refresh. |
| 115 | (defvar window-tool-bar--memory-use-delta-step1 (make-list 7 0) | 115 | (defvar window-tool-bar--memory-use-delta-step1 (make-list 7 0) |
| 116 | "Absolute delta of memory use counters during step 1. | 116 | "Absolute delta of memory use counters during step 1. |
| 117 | This is a list in the same structure as `memory-use-counts'.") | 117 | This is a list in the same structure as `memory-use-counts'.") |