; Fix typos

This commit is contained in:
Stefan Kangas 2022-06-30 17:33:03 +02:00 committed by Ihor Radchenko
parent 381a2ae4dd
commit 41e19f1d7a
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
9 changed files with 30 additions and 30 deletions

View File

@ -700,7 +700,7 @@ is cleared and contents are removed in the process."
;; DATUM is i.e. a headline, it's property list (`:title'
;; in case of headline) can contain parsed objects. The
;; objects will contain `:parent' property set to the DATUM
;; iteself. When copied, these inner `:parent' propery
;; itself. When copied, these inner `:parent' propery
;; values will contain incorrect object decoupled from
;; DATUM. Changes to the DATUM copy will not longer be
;; reflected in the `:parent' properties. So, we need to
@ -1289,7 +1289,7 @@ parser (e.g. `:end' and :END:). Return value is a plist."
(category (catch 'buffer-category
(unless org-element-org-data-parser--recurse
(org-with-point-at end
;; Avoid recusrive calls from
;; Avoid recursive calls from
;; `org-element-at-point-no-context'.
(let ((org-element-org-data-parser--recurse t))
(while (re-search-backward "^[ \t]*#\\+CATEGORY:" (point-min) t)
@ -6092,7 +6092,7 @@ completing the request."
(log org-element--cache-size 2))
(org-element-cache-reset)
(throw 'org-element--cache-quit t)))
;; Done deleting everthing starting before END.
;; Done deleting everything starting before END.
;; DATA-KEY is the first known element after END.
;; Move on to phase 1.
(org-element--cache-log-message
@ -6664,7 +6664,7 @@ The function returns the new value of `org-element--cache-change-warning'."
;; `org-element--cache-submit-request'). After the edit, we want to
;; look if there was a sensitive removed during edit.
;; FIXME: This is not the most efficient way and we now
;; have to delete more elemetns than needed in some
;; have to delete more elements than needed in some
;; cases. A better approach may be storing the warning
;; in the modification request itself.
(let ((org-element--cache-change-warning-before org-element--cache-change-warning)
@ -6748,7 +6748,7 @@ that range. See `after-change-functions' for more information."
"This variable controls how buffer changes are handled by the cache.
By default (when this variable is nil), cache re-parses modified
headlines immidiately after modification preserving all the unaffected
headlines immediately after modification preserving all the unaffected
elements inside the headline.
The default behaviour works best when users types inside Org buffer of
@ -6870,7 +6870,7 @@ known element in cache (it may start after END)."
;; costly. Instead, we should better re-parse only the
;; headline itself when possible. If a headline is still
;; starting from old :begin position, we do not care that
;; its boundaries could have extended to shrinked - we
;; its boundaries could have extended to shrunk - we
;; will re-parent and shift them anyway.
(and (eq 'headline (org-element-type up))
(not org-element--cache-avoid-synchronous-headline-re-parsing)
@ -7154,7 +7154,7 @@ The element is: %S\n The real element is: %S\n Cache around :begin:\n%S\n%S\n%S"
(cdr (org-element--cache-find (org-element-property :begin real-element) 'both)))
(org-element-cache-reset))))))
;;; Cache persistance
;;; Cache persistence
(defun org-element--cache-persist-before-write (container &optional associated)
"Sync cache before saving."

View File

@ -162,7 +162,7 @@
;; functions, it is important to keep in mind that 'invisible text
;; property may have multiple possible values (not just nil and
;; t). Hence, (next-single-char-property-change pos 'invisible) is not
;; guarantied to return the boundary of invisible/visible text.
;; guaranteed to return the boundary of invisible/visible text.
;;; Interactive searching inside folded text (via isearch)
@ -348,7 +348,7 @@ following symbols:
used.
- `merge-folds': Do not distinguish between different types of folding
specs. This is the most aggressive optimisation with unforseen and
specs. This is the most aggressive optimisation with unforeseen and
potentially drastic effects.")
(put 'org-fold-core--optimise-for-huge-buffers 'safe-local-variable 'listp)
@ -1031,7 +1031,7 @@ TYPE can be either `text-properties' or `overlays'."
(org-fold-core-region (car region) (cdr region) nil)))
(defun org-fold-core--isearch-filter-predicate-text-properties (beg end)
"Make sure that folded text is searchable when user whant so.
"Make sure that folded text is searchable when user want so.
This function is intended to be used as `isearch-filter-predicate'."
(and
;; Check folding specs that cannot be searched
@ -1096,7 +1096,7 @@ This is a hack, but I do not see a better way around until isearch
gets support of text properties.")
(defun org-fold-core--create-isearch-overlays (beg end)
"Replace text property invisibility spec by overlays between BEG and END.
All the searcheable folded regions will be changed to use overlays
All the searchable folded regions will be changed to use overlays
instead of text properties. The created overlays will be stored in
`org-fold-core--isearch-overlays'."
(let ((pos beg))
@ -1346,7 +1346,7 @@ negative integer or 0, nil is returned."
;; ---- end of indirect buffer ----
;; If we copy the text under "Headline" from the indirect buffer and
;; insert it under "Another headline" in the base buffer, the inserted
;; text will be hidden since it's folding text properties are copyed.
;; text will be hidden since it's folding text properties are copied.
;; Basically, the copied text would have two sets of folding text
;; properties: (1) Properties for base buffer telling that the text is
;; hidden; (2) Properties for the indirect buffer telling that the

View File

@ -22,7 +22,7 @@
;;; Commentary:
;;
;; This file implements persistant cache storage across Emacs sessions.
;; This file implements persistent cache storage across Emacs sessions.
;; Both global and buffer-local data can be stored. This
;; implementation is not meant to be used to store important data -
;; all the caches should be safe to remove at any time.
@ -77,7 +77,7 @@
;;
;; Each data collection can be associated with a local or remote file,
;; its inode number, or contents hash. The persistent data collection
;; can later be accessed using either file bufer, file, inode, or
;; can later be accessed using either file buffer, file, inode, or
;; contents hash.
;;
;; The data collections can be versioned and removed upon expiry.
@ -256,11 +256,11 @@ They keys are conses of (container . associated).")
"Whether to report read/write time.
When the value is a number, it is a threshold number of seconds. If
the read/write time of a single variable exceeds the threashold, a
the read/write time of a single variable exceeds the threshold, a
message is displayed.
When the value is a non-nil non-number, always display the message.
When the value is nil, never diplay the message.")
When the value is nil, never display the message.")
;;;; Common functions
@ -506,7 +506,7 @@ MISC, if non-nil will be appended to the collection."
(defmacro org-persist-read:generic (container reference-data collection)
"Read and return the data stored in CONTAINER.
REFERENCE-DATA is associated with CONTAINER in the persist file.
COLLECTION is the plist holding data collectin."
COLLECTION is the plist holding data collection."
`(let* ((c (org-persist--normalize-container ,container))
(read-func-symbol (intern (format "org-persist-read:%s" (car c)))))
(setf ,collection (plist-put ,collection :last-access (float-time)))
@ -554,7 +554,7 @@ COLLECTION is the plist holding data collectin."
(defmacro org-persist-load:generic (container reference-data collection)
"Load the data stored in CONTAINER for side effects.
REFERENCE-DATA is associated with CONTAINER in the persist file.
COLLECTION is the plist holding data collectin."
COLLECTION is the plist holding data collection."
`(let* ((container (org-persist--normalize-container ,container))
(load-func-symbol (intern (format "org-persist-load:%s" (car container)))))
(setf ,collection (plist-put ,collection :last-access (float-time)))
@ -912,7 +912,7 @@ Do nothing in an indirect buffer."
(delete-directory (file-name-directory ,persist-file)))))
(defun org-persist-gc ()
"Remove expired or unregisted containers.
"Remove expired or unregistered containers.
Also, remove containers associated with non-existing files."
(unless (and org-persist-disable-when-emacs-Q
;; FIXME: This is relying on undocumented fact that

View File

@ -821,7 +821,7 @@ See also `org-src-mode-hook'."
(defun org-src-associate-babel-session (info)
"Associate edit buffer with comint session.
INFO should be a list simlar in format to the return value of
INFO should be a list similar in format to the return value of
`org-babel-get-src-block-info'."
(interactive)
(let ((session (cdr (assq :session (nth 2 info)))))

View File

@ -5086,7 +5086,7 @@ This includes angle, plain, and bracket links."
(progn
(add-face-text-property start end face-property)
(add-text-properties start end properties))
;; Initialise folding when used ouside org-mode.
;; Initialise folding when used outside org-mode.
(unless (or (derived-mode-p 'org-mode)
(and (org-fold-folding-spec-p 'org-link-description)
(org-fold-folding-spec-p 'org-link)))

View File

@ -997,7 +997,7 @@ The most comprehensive option can be set with,
which causes source code to be run through
`engrave-faces-latex-buffer', which generates colorings using
Emacs' font-lock information. This requires the Emacs package
engrave-faces (availible from ELPA), and the LaTeX package
engrave-faces (available from ELPA), and the LaTeX package
fvextra be installed.
The styling of the engraved result can customised with
@ -1222,7 +1222,7 @@ as long as it:
In the default value the colors \"EFD\" and \"EfD\" are provided
as they are respectively the foreground and background colours,
just in case they aren't provided by the generated preamble, so
we can asume they are always set.
we can assume they are always set.
Within this preamble there are two recognised macro-like placeholders:
@ -1370,7 +1370,7 @@ which are given by `org-latex-engraved-preamble' and
(t (funcall gen-theme-spec engraved-theme))))
(funcall gen-theme-spec engraved-theme))
(message "Cannot engrave source blocks. Consider installing `engrave-faces'.")
"% WARNING syntax highlighting unavailible as engrave-faces-latex was missing.\n")
"% WARNING syntax highlighting unavailable as engrave-faces-latex was missing.\n")
"\n")
(concat
"\n% Setup for code blocks\n\n"
@ -1750,7 +1750,7 @@ This is used to choose a separator for constructs like \\verb."
when (not (string-match (regexp-quote (char-to-string c)) s))
return (char-to-string c))))
(defun org-latex--make-option-string (options &optional seperator)
(defun org-latex--make-option-string (options &optional separator)
"Return a comma separated string of keywords and values.
OPTIONS is an alist where the key is the options keyword as
a string, and the value a list containing the keyword value, or
@ -1767,7 +1767,7 @@ nil."
(format "{%s}" value)
value))))))
options
(or seperator ",")))
(or separator ",")))
(defun org-latex--wrap-label (element output info)
"Wrap label associated to ELEMENT around OUTPUT, if appropriate.
@ -3475,7 +3475,7 @@ to the Verbatim environment or Verb command."
engraved-wrapped
"}")
engraved-wrapped))
(user-error "Cannot engrave code as `engrave-faces-latex' is unavailible.")))
(user-error "Cannot engrave code as `engrave-faces-latex' is unavailable.")))
(cl-defun org-latex-src-block--engraved
(&key src-block info lang caption caption-above-p num-start retain-labels attributes float &allow-other-keys)

View File

@ -687,7 +687,7 @@ using the `:findex' and `:kindex' properties.
If PLAIN-LIST is a description list whose `:compact' attribute is
non-nil and ITEM has no content but is followed by another item,
then store the `@findex' and `@kindex' values in the next item.
If the previous item stored its respecive values in this item,
If the previous item stored its respective values in this item,
then move them to the next item.
INFO is a plist used as a communication channel."

View File

@ -3769,7 +3769,7 @@ Text
(org-test-with-temp-text "* H\n"
(forward-line)
(or (org-element-at-point) t)))
;; Return greater element when ouside contents.
;; Return greater element when outside contents.
(should
(eq 'drawer
(org-test-with-temp-text

View File

@ -100,7 +100,7 @@ removed from the final plist."
(cl-remove-if #'file-directory-p
(directory-files dir)))))))
;; Check the default trasformation function,
;; Check the default transformation function,
;; org-html-publish-to-html. Because org-test-publish uses
;; org-publish-attachment by default, we must not just override with
;; nil but tell it to remove the :publishing-function from the list.