emacs-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]