comparison lisp/textmodes/flyspell.el @ 80653:3843bed9cf0e

(flyspell-word, flyspell-large-region, flyspell-region): Call ispell-maybe-find-aspell-dictionaries.

80652:3d0f5d74bca9

;;*    flyspell-word ...                                                */
;;*---------------------------------------------------------------------*/
(defun flyspell-word (&optional following)
  "Spell check a word."
  (interactive (list ispell-following-word))
  (save-excursion
    ;; use the correct dictionary
    (flyspell-accept-buffer-local-defs)
    (let* ((cursor-location (point))
           (flyspell-word (flyspell-get-word following))

    (set-buffer buffer)
    (erase-buffer)
    ;; this is done, we can start checking...
    (if flyspell-issue-message-flag (message "Checking region..."))
    (set-buffer curbuf)
    (ispell-check-version)
    (let ((c (apply 'ispell-call-process-region beg
		    end
		    ispell-program-name
		    nil
		    buffer

;;*---------------------------------------------------------------------*/
;;;###autoload
(defun flyspell-region (beg end)
  "Flyspell text between BEG and END."
  (interactive "r")
  (if (= beg end)
      ()
    (save-excursion
      (if (> beg end)
	  (let ((old beg))

80653:3843bed9cf0e

;;*    flyspell-word ...                                                */
;;*---------------------------------------------------------------------*/
(defun flyspell-word (&optional following)
  "Spell check a word."
  (interactive (list ispell-following-word))
  (ispell-maybe-find-aspell-dictionaries)
  (save-excursion
    ;; use the correct dictionary
    (flyspell-accept-buffer-local-defs)
    (let* ((cursor-location (point))
           (flyspell-word (flyspell-get-word following))

    (set-buffer buffer)
    (erase-buffer)
    ;; this is done, we can start checking...
    (if flyspell-issue-message-flag (message "Checking region..."))
    (set-buffer curbuf)
    (ispell-maybe-find-aspell-dictionaries)
    (let ((c (apply 'ispell-call-process-region beg
		    end
		    ispell-program-name
		    nil
		    buffer

;;*---------------------------------------------------------------------*/
;;;###autoload
(defun flyspell-region (beg end)
  "Flyspell text between BEG and END."
  (interactive "r")
  (ispell-maybe-find-aspell-dictionaries)
  (if (= beg end)
      ()
    (save-excursion
      (if (> beg end)
	  (let ((old beg))