aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorPaul Eggert2024-06-04 22:13:47 -0700
committerPaul Eggert2024-06-04 22:16:28 -0700
commit3dcac22dd4225fdec0b97408da38f74de2a77bef (patch)
treec79a8563efbed67aae0bba5d46b628c1e8a5b69b /lisp
parent636461686f1d36388d4523cbb10eb7ec3bbbd63e (diff)
downloademacs-3dcac22dd4225fdec0b97408da38f74de2a77bef.tar.gz
emacs-3dcac22dd4225fdec0b97408da38f74de2a77bef.zip
Spelling fixes
Diffstat (limited to 'lisp')
-rw-r--r--lisp/completion-preview.el2
-rw-r--r--lisp/emacs-lisp/comp.el2
-rw-r--r--lisp/emacs-lisp/package.el2
-rw-r--r--lisp/emacs-lisp/track-changes.el6
-rw-r--r--lisp/eshell/em-script.el2
-rw-r--r--lisp/eshell/esh-io.el2
-rw-r--r--lisp/image.el4
-rw-r--r--lisp/net/dictionary.el2
-rw-r--r--lisp/net/eww.el2
-rw-r--r--lisp/net/tramp-container.el2
-rw-r--r--lisp/net/tramp-sh.el2
-rw-r--r--lisp/net/tramp.el2
-rw-r--r--lisp/outline.el2
-rw-r--r--lisp/progmodes/c-ts-common.el2
-rw-r--r--lisp/progmodes/flymake.el4
-rw-r--r--lisp/progmodes/xref.el2
-rw-r--r--lisp/term/android-win.el2
-rw-r--r--lisp/thingatpt.el2
-rw-r--r--lisp/transient.el2
-rw-r--r--lisp/treesit.el2
-rw-r--r--lisp/url/url-util.el2
-rw-r--r--lisp/window-tool-bar.el6
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.
2650If TEMP-INIT is non-nil, or when invoked with a prefix argument, 2650If TEMP-INIT is non-nil, or when invoked with a prefix argument,
2651the Emacs user directory is set to a temporary directory." 2651the 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.
181The errors are kept in `track-changes--error-log'.") 181The 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.
89If SUBCOMMAND-P is non-nil, execute this as a subcommand." 89If 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.
150If PASS-MODE is non-nil, Eshell will pass the redirection mode as an 150If PASS-MODE is non-nil, Eshell will pass the redirection mode as an
151argument (which is the symbol `overwrite', `append' or `insert') to 151argument (which is the symbol `overwrite', `append' or `insert') to
152OUTPUT-FUNCTION, which should return the real output function (either an 152OUTPUT-FUNCTION, which should return the real output function (either an
153ordinary function or `eshell-generic-target' as desribed above)." 153ordinary 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
812string containing the actual image data. If the property `:type TYPE' 812string containing the actual image data. If the property `:type TYPE'
813is omitted or nil, try to determine the image type from its first few 813is omitted or nil, try to determine the image type from its first few
814bytes of image data. If that doesn't work, and the property `:file 814bytes of image data. If that doesn't work, and the property `:file
815FILE' provide a file name, use its file extension as idication of the 815FILE' provide a file name, use its file extension as indication of the
816image type. If `:type TYPE' is provided, it must match the actual type 816image type. If `:type TYPE' is provided, it must match the actual type
817determined for FILE or DATA by `create-image'. 817determined 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.
2466If the current page is a historial one loaded from 2466If 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
2468page's entry in `eww-history' and return nil. Otherwise, add a new 2468page's entry in `eww-history' and return nil. Otherwise, add a new
2469entry to `eww-history' and return t." 2469entry 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.
4853It is not recommended to change this variable globally. Instead, it 4853It is not recommended to change this variable globally. Instead, it
4854should be set conmnection-local.") 4854should 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'.
1729This function rehighlightes outlines after the buffer under 1729This 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
1731can't update highlighting for `outline-minor-mode-highlight'." 1731can'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'."
188The value can be nil (don't indicate errors but just highlight them), 188The value can be nil (don't indicate errors but just highlight them),
189fringes (use fringes) or margins (use margins) 189fringes (use fringes) or margins (use margins)
190 190
191Difference between fringes and margin is that fringes support diplaying 191Difference between fringes and margin is that fringes support displaying
192bitmaps on graphical displays and margins display text in a blank area 192bitmaps on graphical displays and margins display text in a blank area
193from current buffer that works in both graphical and text displays. 193from 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.
834SETTING should be a setting in `treesit-font-lock-settings'." 834SETTING 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.
381url-query-allowed-chars minus '=', '&', and ';'.") 381url-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.
117This is a list in the same structure as `memory-use-counts'.") 117This is a list in the same structure as `memory-use-counts'.")