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

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

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

revision 1.86 by rms, Mon Nov 14 04:53:00 2005 UTC revision 1.87 by monnier, Wed Nov 16 16:07:47 2005 UTC
# Line 1552  FLYSPELL-BUFFER." Line 1552  FLYSPELL-BUFFER."
1552  ;*---------------------------------------------------------------------*/  ;*---------------------------------------------------------------------*/
1553  (defun flyspell-delete-region-overlays (beg end)  (defun flyspell-delete-region-overlays (beg end)
1554    "Delete overlays used by flyspell in a given region."    "Delete overlays used by flyspell in a given region."
1555    (let ((l (overlays-in beg end)))    (remove-overlays beg end 'flyspell-overlay t))
     (while (consp l)  
       (progn  
         (if (flyspell-overlay-p (car l))  
             (delete-overlay (car l)))  
         (setq l (cdr l))))))  
1556    
1557    
1558  (defun flyspell-delete-all-overlays ()  (defun flyspell-delete-all-overlays ()

Legend:
Removed from v.1.86  
changed lines
  Added in v.1.87

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