summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorPaul Eggert <eggert@cs.ucla.edu>2019-12-10 20:04:36 -0800
committerPaul Eggert <eggert@cs.ucla.edu>2019-12-10 20:05:49 -0800
commitb0f20651e3cbb8a66f11ffae4c18634019c20cd4 (patch)
tree067bcb8fa529b4afee6d189f409faf16bd437810 /lisp
parent0940296ebe56ebdf9c32e94191d4f0b18006a910 (diff)
downloademacs-b0f20651e3cbb8a66f11ffae4c18634019c20cd4.tar.gz
; Spelling fixes
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog.76
-rw-r--r--lisp/auth-source-pass.el2
-rw-r--r--lisp/button.el2
-rw-r--r--lisp/cedet/ChangeLog.12
-rw-r--r--lisp/gnus/gnus-cus.el2
-rw-r--r--lisp/gnus/nnimap.el2
-rw-r--r--lisp/icomplete.el2
-rw-r--r--lisp/net/newst-backend.el2
-rw-r--r--lisp/org/org-attach.el4
-rw-r--r--lisp/org/org.el4
-rw-r--r--lisp/progmodes/cc-langs.el2
-rw-r--r--lisp/progmodes/flymake.el2
-rw-r--r--lisp/progmodes/hideshow.el8
-rw-r--r--lisp/progmodes/python.el4
-rw-r--r--lisp/so-long.el24
-rw-r--r--lisp/subr.el2
-rw-r--r--lisp/thingatpt.el2
17 files changed, 36 insertions, 36 deletions
diff --git a/lisp/ChangeLog.7 b/lisp/ChangeLog.7
index 2fe98e8f00d..2c2aabd94b5 100644
--- a/lisp/ChangeLog.7
+++ b/lisp/ChangeLog.7
@@ -17104,8 +17104,8 @@
the rewrite of `hs-inside-comment-p'.
(hs-inside-comment-p): Rewritten from scratch. Semantics changed
when returning non-nil. We can be inside a comment, but that
- comment might not be hidable (the car of the return value should
- be non-nil to be hidable).
+ comment might not be hideable (the car of the return value should
+ be non-nil to be hideable).
(hs-grok-mode-type): Rewrite to be more understandable.
`hs-c-end-regexp' does not exist any more.
Initialize `hs-c-start-regexp' from the alist if specified there.
@@ -17117,7 +17117,7 @@
block, go to their end and look there for the overlays.
(java-hs-adjust-block-beginning): New function.
(hs-hide-all): Hide a comment block only if `hs-inside-comment-p'
- says is hidable.
+ says is hideable.
(hs-hide-block): Simplify. Handle properly the result of
`hs-inside-comment-p'.
(hs-show-block): Likewise.
diff --git a/lisp/auth-source-pass.el b/lisp/auth-source-pass.el
index 45d5a6ce81b..7201a2d1a2c 100644
--- a/lisp/auth-source-pass.el
+++ b/lisp/auth-source-pass.el
@@ -292,7 +292,7 @@ components, from longest to shortest."
(defun auth-source-pass--name-port-user-suffixes (name user port)
"Return a list of possible path suffixes for NAME, USER, & PORT.
-The resulting list is ordered from most specifc to least
+The resulting list is ordered from most specific to least
specific, with paths matching all of NAME, USER, & PORT first,
then NAME & USER, then NAME & PORT, then just NAME."
(seq-mapcat
diff --git a/lisp/button.el b/lisp/button.el
index ac6af0be4f8..d5aaf1b42ee 100644
--- a/lisp/button.el
+++ b/lisp/button.el
@@ -243,7 +243,7 @@ overlay, a buffer position, or (for buttons in the mode-line or
header-line) a string.
If BUTTON has a `button-data' value, call the function with this
-value instad of BUTTON.
+value instead of BUTTON.
This function only works when BUTTON is in the current buffer."
(let ((action (or (and use-mouse-action (button-get button 'mouse-action))
diff --git a/lisp/cedet/ChangeLog.1 b/lisp/cedet/ChangeLog.1
index 1d34219daa0..cf8d6c4f6c6 100644
--- a/lisp/cedet/ChangeLog.1
+++ b/lisp/cedet/ChangeLog.1
@@ -453,7 +453,7 @@
* semantic/ctxt.el (semantic-get-local-variables-default):
Also try to parse local variables for buffers which are currently
- marked as unparseable. Otherwise, it is often impossible to
+ marked as unparsable. Otherwise, it is often impossible to
complete local variables.
* semantic/scope.el (semantic-analyze-scoped-types-default): If we
diff --git a/lisp/gnus/gnus-cus.el b/lisp/gnus/gnus-cus.el
index 5291d1d64d1..57e7f7c8c35 100644
--- a/lisp/gnus/gnus-cus.el
+++ b/lisp/gnus/gnus-cus.el
@@ -257,7 +257,7 @@ Server-assigned value attached to IMAP groups, used to maintain consistency.")
(modseq (choice :tag "modseq"
(const :tag "None" nil)
(string :tag "Sequence number"))
- "Modification seqence number")
+ "Modification sequence number")
(active (cons :tag "active" (integer :tag "min") (integer :tag "max"))
"active")
(permanent-flags (repeat :tag "Permanent Flags" (symbol :tag "Flag"))
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index bbbca8f4193..f02c2e5c1f1 100644
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -233,7 +233,7 @@ textual parts.")
'headers))
(defun nnimap-transform-headers ()
- "Transform server's FETCH response into parseable headers."
+ "Transform server's FETCH response into parsable headers."
(goto-char (point-min))
(let (seen-articles article lines size string labels)
(cl-block nil
diff --git a/lisp/icomplete.el b/lisp/icomplete.el
index 16167ea21e1..cd20064be02 100644
--- a/lisp/icomplete.el
+++ b/lisp/icomplete.el
@@ -69,7 +69,7 @@ When nil, show candidates in full."
:version "24.4")
(defvar icomplete-tidy-shadowed-file-names nil
- "If non-nil, automatically delete superflous parts of file names.
+ "If non-nil, automatically delete superfluous parts of file names.
For example, if the user types ~/ after a long path name,
everything preceding the ~/ is discarded so the interactive
selection process starts again from the user's $HOME.")
diff --git a/lisp/net/newst-backend.el b/lisp/net/newst-backend.el
index 9c24dec2a1e..792ddbbf0b7 100644
--- a/lisp/net/newst-backend.el
+++ b/lisp/net/newst-backend.el
@@ -1598,7 +1598,7 @@ This function calls `message' with arguments STRING and ARGS, if
(defun newsticker--decode-iso8601-date (string)
"Return ISO8601-STRING in format like `encode-time'.
Converts from ISO-8601 to Emacs representation. If no time zone
-is present, this fuction defaults to universal time."
+is present, this function defaults to universal time."
(if string
(condition-case nil
(encode-time (decoded-time-set-defaults (iso8601-parse string) 0))
diff --git a/lisp/org/org-attach.el b/lisp/org/org-attach.el
index bc49be7fe74..d3e1c78b7da 100644
--- a/lisp/org/org-attach.el
+++ b/lisp/org/org-attach.el
@@ -187,7 +187,7 @@ attachment folders based on ID."
"Hook that is invoked by `org-attach-open'.
Created mostly to be compatible with org-attach-git after removing
-git-funtionality from this file.")
+git-functionality from this file.")
(defcustom org-attach-commands
'(((?a ?\C-a) org-attach-attach
@@ -231,7 +231,7 @@ directory in dired and delete from there.\n")
Each entry in this list is a list of three elements:
- A list of keys (characters) to select the command (the fist
character in the list is shown in the attachment dispatcher's
- splash buffer and minubuffer prompt).
+ splash buffer and minibuffer prompt).
- A command that is called interactively when one of these keys
is pressed.
- A docstring for this command in the attachment dispatcher's
diff --git a/lisp/org/org.el b/lisp/org/org.el
index 11bc3641022..c289d5425ec 100644
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -9854,9 +9854,9 @@ Elements of length one have a tab appended. Elements of length
two are kept as is. Longer elements are truncated to length two.
If an element cannot be made unique, an error is raised."
- (let ((orderd-keys (cl-sort (copy-sequence keys) #'< :key #'length))
+ (let ((ordered-keys (cl-sort (copy-sequence keys) #'< :key #'length))
menu-keys)
- (dolist (key orderd-keys)
+ (dolist (key ordered-keys)
(let ((potential-key
(cl-case (length key)
(1 (concat key "\t"))
diff --git a/lisp/progmodes/cc-langs.el b/lisp/progmodes/cc-langs.el
index 44d0d49df5b..da3fc6b318e 100644
--- a/lisp/progmodes/cc-langs.el
+++ b/lisp/progmodes/cc-langs.el
@@ -1416,7 +1416,7 @@ template opener followed by the \"::\" operator - usually."
(c-lang-const c-<-pseudo-digraph-cont-regexp))
(c-lang-defconst c-<-pseudo-digraph-cont-len
- "The maximum length of the main bit of a `c-<pseudp-digraph-cont-regexp' match.
+ "The maximum length of the main bit of a `c-<-pseudo-digraph-cont-regexp' match.
This doesn't count the merely contextual bits of the regexp match."
t 0
c++ 2)
diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el
index f052e002df7..d980d675d4d 100644
--- a/lisp/progmodes/flymake.el
+++ b/lisp/progmodes/flymake.el
@@ -708,7 +708,7 @@ backend is operating normally.")
"Tell if Flymake has running backends in this buffer."
(flymake-running-backends))
-;; FIXME: clone of `isearch-intesects-p'! Make this an util.
+;; FIXME: clone of `isearch-intersects-p'! Make this an util.
(defun flymake--intersects-p (start0 end0 start1 end1)
"Return t if regions START0..END0 and START1..END1 intersect."
(or (and (>= start0 start1) (< start0 end1))
diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el
index 53235ea573b..8f8b79af74b 100644
--- a/lisp/progmodes/hideshow.el
+++ b/lisp/progmodes/hideshow.el
@@ -610,7 +610,7 @@ as cdr."
(forward-comment (- (buffer-size)))
(skip-chars-forward " \t\n\f")
(let ((p (point))
- (hidable t))
+ (hideable t))
(beginning-of-line)
(unless (looking-at (concat "[ \t]*" hs-c-start-regexp))
;; we are in this situation: (example)
@@ -636,13 +636,13 @@ as cdr."
(when (or (not (looking-at hs-c-start-regexp))
(> (point) q))
;; we cannot hide this comment block
- (setq hidable nil)))
+ (setq hideable nil)))
;; goto the end of the comment
(forward-comment (buffer-size))
(skip-chars-backward " \t\n\f")
(end-of-line)
(when (>= (point) q)
- (list (and hidable p) (point))))))))
+ (list (and hideable p) (point))))))))
(defun hs-grok-mode-type ()
"Set up hideshow variables for new buffers.
@@ -741,7 +741,7 @@ and `case-fold-search' are both t."
(save-excursion
(let ((c-reg (hs-inside-comment-p)))
(if (and c-reg (nth 0 c-reg))
- ;; point is inside a comment, and that comment is hidable
+ ;; point is inside a comment, and that comment is hideable
(goto-char (nth 0 c-reg))
(end-of-line)
(when (and (not c-reg)
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index 0eed7acd0d7..b0d3174eabc 100644
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -3856,8 +3856,8 @@ Returns the tracked buffer."
(defun python-pdbtrack-comint-input-filter-function (input)
"Finish tracking session depending on command in INPUT.
-Commands that must finish tracking session is listed in
-`python-pdbtrack-untracking-commands'."
+Commands that must finish the tracking session are listed in
+`python-pdbtrack-exit-command'."
(when (and python-pdbtrack-tracked-buffer
;; Empty input is sent by C-d or `comint-send-eof'
(or (string-empty-p input)
diff --git a/lisp/so-long.el b/lisp/so-long.el
index 3df2de97297..160a945f657 100644
--- a/lisp/so-long.el
+++ b/lisp/so-long.el
@@ -69,7 +69,7 @@
;; the long lines. In such circumstances you may find that `longlines-mode' is
;; the most helpful facility.
;;
-;; Note also that the mitigations are automatically triggered when visiting a
+;; Note also that the mitigation is automatically triggered when visiting a
;; file. The library does not automatically detect if long lines are inserted
;; into an existing buffer (although the `so-long' command can be invoked
;; manually in such situations).
@@ -386,7 +386,7 @@
;; - Added sgml-mode and nxml-mode to `so-long-target-modes'.
;; 0.7.4 - Refactored the handling of `whitespace-mode'.
;; 0.7.3 - Added customize group `so-long' with user options.
-;; - Added `so-long-original-values' to generalise the storage and
+;; - Added `so-long-original-values' to generalize the storage and
;; restoration of values from the original mode upon `so-long-revert'.
;; - Added `so-long-revert-hook'.
;; 0.7.2 - Remember the original major mode even with M-x `so-long-mode'.
@@ -421,7 +421,7 @@
Has no effect if `global-so-long-mode' is not enabled.")
(defvar-local so-long--active nil ; internal use
- "Non-nil when `so-long' mitigations are in effect.")
+ "Non-nil when `so-long' mitigation is in effect.")
(defvar so-long--set-auto-mode nil ; internal use
"Non-nil while `set-auto-mode' is executing.")
@@ -740,7 +740,7 @@ was established."
)
;; It's not clear to me whether all of these would be problematic, but they
;; seemed like reasonable targets. Some are certainly excessive in smaller
- ;; buffers of minified code, but we should be aiming to maximise performance
+ ;; buffers of minified code, but we should be aiming to maximize performance
;; by default, so that Emacs is as responsive as we can manage in even very
;; large buffers of minified code.
"List of buffer-local minor modes to explicitly disable.
@@ -781,7 +781,7 @@ If `so-long-revert' is subsequently invoked, then the variables are restored
to their original states.
The combination of `line-move-visual' (enabled) and `truncate-lines' (disabled)
-is important for maximising responsiveness when moving vertically within an
+is important for maximizing responsiveness when moving vertically within an
extremely long line, as otherwise the full length of the line may need to be
scanned to find the next position."
:type '(alist :key-type (variable :tag "Variable")
@@ -822,12 +822,12 @@ If nil, no mode line indicator will be displayed."
(defface so-long-mode-line-active
'((t :inherit mode-line-emphasis))
- "Face for `so-long-mode-line-info' when mitigations are active."
+ "Face for `so-long-mode-line-info' when mitigation is active."
:package-version '(so-long . "1.0"))
(defface so-long-mode-line-inactive
'((t :inherit mode-line-inactive))
- "Face for `so-long-mode-line-info' when mitigations have been reverted."
+ "Face for `so-long-mode-line-info' when mitigation has been reverted."
:package-version '(so-long . "1.0"))
;; Modes that go slowly and line lengths excessive
@@ -983,7 +983,7 @@ Displayed as part of `mode-line-misc-info'.
`so-long-mode-line-label' defines the text to be displayed (if any).
-Face `so-long-mode-line-active' is used while mitigations are active, and
+Face `so-long-mode-line-active' is used while mitigation is active, and
`so-long-mode-line-inactive' is used if `so-long-revert' is called.
Not displayed when `so-long-mode' is enabled, as the major mode construct
@@ -1659,7 +1659,7 @@ Equivalent to calling (global-so-long-mode 0)"
;;;###autoload
(define-minor-mode global-so-long-mode
- "Toggle automated performance mitigations for files with long lines.
+ "Toggle automated performance mitigation for files with long lines.
Many Emacs modes struggle with buffers which contain excessively long lines,
and may consequently cause unacceptable performance issues.
@@ -1861,11 +1861,11 @@ If it appears in `%s', you should remove it."
; LocalWords: initialized profiler boolean minified pre redisplay config keymap
; LocalWords: noerror selectable mapc sgml nxml hl flydiff defs arg Phil Sainty
; LocalWords: defadvice nadvice whitespace ie bos eos eobp origmode un Un setq
-; LocalWords: docstring auf wiedersehen longlines alist autoload Refactored Inc
-; LocalWords: MERCHANTABILITY RET REGEXP VAR ELPA WS mitigations EmacsWiki eval
+; LocalWords: docstring auf Wiedersehen longlines alist autoload Refactored Inc
+; LocalWords: MERCHANTABILITY RET REGEXP VAR ELPA WS EmacsWiki eval
; LocalWords: rx filename filenames
-;; So long, farewell, auf wiedersehen, goodbye
+;; So long, farewell, auf Wiedersehen, goodbye
;; You have to go, this code is minified
;; Goodbye!
diff --git a/lisp/subr.el b/lisp/subr.el
index ca5af0f0ab7..1b2a1d643fb 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1572,7 +1572,7 @@ be a list of the form returned by `event-start' and `event-end'."
;; individual bytes at known offsets from the string beginning.
;; (make-obsolete 'string-to-unibyte "use `encode-coding-string'." "26.1")
;; string-to-multibyte is also sometimes useful (and there's no good
-;; general replacement for it), so it's also been unobsoleted in Emacs 27.1.
+;; general replacement for it), so it's also been revived in Emacs 27.1.
;; (make-obsolete 'string-to-multibyte "use `decode-coding-string'." "26.1")
;; bug#23850
(make-obsolete 'string-as-unibyte "use `encode-coding-string'." "26.1")
diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index 1ce4b98fd1b..c33fb174a58 100644
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -634,7 +634,7 @@ Signal an error if the entire string was not used."
(defun number-at-point ()
"Return the number at point, or nil if none is found.
Decimal numbers like \"14\" or \"-14.5\", as well as hex numbers
-like \"0xBEEF09\" or \"#xBEEF09\", are regognized."
+like \"0xBEEF09\" or \"#xBEEF09\", are recognized."
(when (thing-at-point-looking-at
"\\(-?[0-9]+\\.?[0-9]*\\)\\|\\(0x\\|#x\\)\\([a-zA-Z0-9]+\\)" 500)
(if (match-beginning 1)