[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 1a15d14 2/2: Fix spelling mistake in private defun
From: |
Reuben Thomas |
Subject: |
[Emacs-diffs] master 1a15d14 2/2: Fix spelling mistake in private defun name (Bug#25218) |
Date: |
Sat, 17 Dec 2016 21:08:42 +0000 (UTC) |
branch: master
commit 1a15d14e143ed84d8116c6510f9619d936ea43a1
Author: Reuben Thomas <address@hidden>
Commit: Reuben Thomas <address@hidden>
Fix spelling mistake in private defun name (Bug#25218)
lisp/textmodes/flyspell.el (flyspell-ajust-cursor-point): Rename to
`flyspell-adjust-cursor-point'.
---
lisp/textmodes/flyspell.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index c63508d..bfe839a 100644
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -1949,7 +1949,7 @@ This command proposes various successive corrections for
the current word."
(funcall flyspell-insert-function word)
(flyspell-word)
(flyspell-display-next-corrections flyspell-auto-correct-ring))
- (flyspell-ajust-cursor-point pos (point) old-max)
+ (flyspell-adjust-cursor-point pos (point) old-max)
(setq flyspell-auto-correct-pos (point)))
;; Fetch the word to be checked.
(let ((word (flyspell-get-word)))
@@ -2016,7 +2016,7 @@ This command proposes various successive corrections for
the current word."
(flyspell-word)
(flyspell-display-next-corrections
(cons new-word
flyspell-auto-correct-ring))
- (flyspell-ajust-cursor-point pos
+ (flyspell-adjust-cursor-point pos
(point)
old-max))))))))))
(setq flyspell-auto-correct-pos (point))
@@ -2185,15 +2185,15 @@ If OPOINT is non-nil, restore point there after
adjusting it for replacement."
(funcall flyspell-insert-function new-word)
(if flyspell-abbrev-p
(flyspell-define-abbrev word new-word)))
- (flyspell-ajust-cursor-point save cursor-location old-max)))
+ (flyspell-adjust-cursor-point save cursor-location old-max)))
(t
(goto-char save)
nil)))
;;*---------------------------------------------------------------------*/
-;;* flyspell-ajust-cursor-point ... */
+;;* flyspell-adjust-cursor-point ... */
;;*---------------------------------------------------------------------*/
-(defun flyspell-ajust-cursor-point (save cursor-location old-max)
+(defun flyspell-adjust-cursor-point (save cursor-location old-max)
(if (>= save cursor-location)
(let ((new-pos (+ save (- (point-max) old-max))))
(goto-char (cond