/[emacs]/emacs/lisp/textmodes/ispell.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/ispell.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.178 by monnier, Mon Oct 3 18:11:35 2005 UTC revision 1.179 by rms, Tue Oct 4 20:28:27 2005 UTC
# Line 1557  quit          spell session exited." Line 1557  quit          spell session exited."
1557    (interactive (list ispell-following-word ispell-quietly current-prefix-arg))    (interactive (list ispell-following-word ispell-quietly current-prefix-arg))
1558    (if continue    (if continue
1559        (ispell-continue)        (ispell-continue)
1560        (ispell-maybe-find-aspell-dictionaries)
1561      (ispell-accept-buffer-local-defs)   ; use the correct dictionary      (ispell-accept-buffer-local-defs)   ; use the correct dictionary
1562      (let ((cursor-location (point))     ; retain cursor location      (let ((cursor-location (point))     ; retain cursor location
1563            (word (ispell-get-word following))            (word (ispell-get-word following))
# Line 2615  a new one will be started when needed." Line 2616  a new one will be started when needed."
2616  Return nil if spell session is quit,  Return nil if spell session is quit,
2617   otherwise returns shift offset amount for last line processed."   otherwise returns shift offset amount for last line processed."
2618    (interactive "r")                     ; Don't flag errors on read-only bufs.    (interactive "r")                     ; Don't flag errors on read-only bufs.
2619      (ispell-maybe-find-aspell-dictionaries)
2620    (if (not recheckp)    (if (not recheckp)
2621        (ispell-accept-buffer-local-defs)) ; set up dictionary, local words, etc.        (ispell-accept-buffer-local-defs)) ; set up dictionary, local words, etc.
2622    (let ((skip-region-start (make-marker))    (let ((skip-region-start (make-marker))
# Line 3576  You can bind this to the key C-c i in GN Line 3578  You can bind this to the key C-c i in GN
3578    
3579  (defun ispell-accept-buffer-local-defs ()  (defun ispell-accept-buffer-local-defs ()
3580    "Load all buffer-local information, restarting Ispell when necessary."    "Load all buffer-local information, restarting Ispell when necessary."
   (ispell-maybe-find-aspell-dictionaries)  
3581    (ispell-buffer-local-dict)            ; May kill ispell-process.    (ispell-buffer-local-dict)            ; May kill ispell-process.
3582    (ispell-buffer-local-words)           ; Will initialize ispell-process.    (ispell-buffer-local-words)           ; Will initialize ispell-process.
3583    (ispell-buffer-local-parsing))    (ispell-buffer-local-parsing))

Legend:
Removed from v.1.178  
changed lines
  Added in v.1.179

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26