/[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.31.4.1 by monnier, Fri Apr 19 15:17:37 2002 UTC revision 1.31.4.2 by lektu, Mon Oct 21 09:12:38 2002 UTC
# Line 33  Line 33 
33  ;; To enable Flyspell in text representing computer programs, type  ;; To enable Flyspell in text representing computer programs, type
34  ;; M-x flyspell-prog-mode.  ;; M-x flyspell-prog-mode.
35  ;; In that mode only text inside comments is checked.  ;; In that mode only text inside comments is checked.
36  ;;                                                                    ;;
37  ;; Note: consider setting the variable ispell-parser to `tex' to  ;; Note: consider setting the variable ispell-parser to `tex' to
38  ;; avoid TeX command checking; use `(setq ispell-parser 'tex)'.  ;; avoid TeX command checking; use `(setq ispell-parser 'tex)'.
39  ;;                                                                    ;;
40  ;; Some user variables control the behavior of flyspell.  They are  ;; Some user variables control the behavior of flyspell.  They are
41  ;; those defined under the `User variables' comment.  ;; those defined under the `User variables' comment.
42    
# Line 201  http://strw.leidenuniv.nl/~dominik/Tools Line 201  http://strw.leidenuniv.nl/~dominik/Tools
201    :group 'flyspell    :group 'flyspell
202    :version "21.1"    :version "21.1"
203    :type 'boolean)    :type 'boolean)
204      
205  ;;;###autoload  ;;;###autoload
206  (defcustom flyspell-mode-line-string " Fly"  (defcustom flyspell-mode-line-string " Fly"
207    "*String displayed on the modeline when flyspell is active.    "*String displayed on the modeline when flyspell is active.
# Line 424  Ispell is automatically spawned on backg Line 424  Ispell is automatically spawned on backg
424  The default flyspell behavior is to highlight incorrect words.  The default flyspell behavior is to highlight incorrect words.
425  With no argument, this command toggles Flyspell mode.  With no argument, this command toggles Flyspell mode.
426  With a prefix argument ARG, turn Flyspell minor mode on iff ARG is positive.  With a prefix argument ARG, turn Flyspell minor mode on iff ARG is positive.
427      
428  Bindings:  Bindings:
429  \\[ispell-word]: correct words (using Ispell).  \\[ispell-word]: correct words (using Ispell).
430  \\[flyspell-auto-correct-word]: automatically correct word.  \\[flyspell-auto-correct-word]: automatically correct word.
# Line 485  flyspell-buffer checks the whole buffer. Line 485  flyspell-buffer checks the whole buffer.
485  ;*    For remembering buffers running flyspell                         */  ;*    For remembering buffers running flyspell                         */
486  ;*---------------------------------------------------------------------*/  ;*---------------------------------------------------------------------*/
487  (defvar flyspell-buffers nil)  (defvar flyspell-buffers nil)
488    
489  ;*---------------------------------------------------------------------*/  ;*---------------------------------------------------------------------*/
490  ;*    flyspell-minibuffer-p ...                                        */  ;*    flyspell-minibuffer-p ...                                        */
491  ;*---------------------------------------------------------------------*/  ;*---------------------------------------------------------------------*/
# Line 558  flyspell-buffer checks the whole buffer. Line 558  flyspell-buffer checks the whole buffer.
558               (format "Welcome to flyspell. Use %s or Mouse-2 to correct words."               (format "Welcome to flyspell. Use %s or Mouse-2 to correct words."
559                       (key-description binding))                       (key-description binding))
560             "Welcome to flyspell. Use Mouse-2 to correct words."))))             "Welcome to flyspell. Use Mouse-2 to correct words."))))
561      
562    ;; Use this so that we can still get major mode bindings at a    ;; Use this so that we can still get major mode bindings at a
563    ;; misspelled word (unless they're overridden by    ;; misspelled word (unless they're overridden by
564    ;; `flyspell-mouse-map').    ;; `flyspell-mouse-map').
# Line 797  Mostly we check word delimiters." Line 797  Mostly we check word delimiters."
797        (insert (format "  cache-start: %S\n" flyspell-word-cache-start))        (insert (format "  cache-start: %S\n" flyspell-word-cache-start))
798        (insert (format "  cache-end  : %S\n" flyspell-word-cache-end))        (insert (format "  cache-end  : %S\n" flyspell-word-cache-end))
799        (goto-char (point-max)))))        (goto-char (point-max)))))
800        
801  ;*---------------------------------------------------------------------*/  ;*---------------------------------------------------------------------*/
802  ;*    flyspell-debug-signal-word-checked ...                           */  ;*    flyspell-debug-signal-word-checked ...                           */
803  ;*---------------------------------------------------------------------*/  ;*---------------------------------------------------------------------*/
# Line 1136  this function changes the last char of t Line 1136  this function changes the last char of t
1136        (setq flyspell-ispell-casechars-cache ispell-casechars)        (setq flyspell-ispell-casechars-cache ispell-casechars)
1137        (setq flyspell-casechars-cache ispell-casechars)        (setq flyspell-casechars-cache ispell-casechars)
1138        flyspell-casechars-cache))))        flyspell-casechars-cache))))
1139            
1140  ;*---------------------------------------------------------------------*/  ;*---------------------------------------------------------------------*/
1141  ;*    flyspell-get-not-casechars-cache ...                             */  ;*    flyspell-get-not-casechars-cache ...                             */
1142  ;*---------------------------------------------------------------------*/  ;*---------------------------------------------------------------------*/
# Line 1299  Word syntax described by `ispell-diction Line 1299  Word syntax described by `ispell-diction
1299      ;; have to kill the temporary buffer      ;; have to kill the temporary buffer
1300      (kill-buffer flyspell-external-ispell-buffer)      (kill-buffer flyspell-external-ispell-buffer)
1301      (setq flyspell-external-ispell-buffer nil)))      (setq flyspell-external-ispell-buffer nil)))
1302      
1303  ;*---------------------------------------------------------------------*/  ;*---------------------------------------------------------------------*/
1304  ;*    flyspell-large-region ...                                        */  ;*    flyspell-large-region ...                                        */
1305  ;*---------------------------------------------------------------------*/  ;*---------------------------------------------------------------------*/
# Line 1463  FLYSPELL-BUFFER." Line 1463  FLYSPELL-BUFFER."
1463  ;*---------------------------------------------------------------------*/  ;*---------------------------------------------------------------------*/
1464  ;*    flyspell-properties-at-p ...                                     */  ;*    flyspell-properties-at-p ...                                     */
1465  ;*    -------------------------------------------------------------    */  ;*    -------------------------------------------------------------    */
1466  ;*    Is there an highlight properties at position pos?                */  ;*    Is there a highlight properties at position pos?                 */
1467  ;*---------------------------------------------------------------------*/  ;*---------------------------------------------------------------------*/
1468  (defun flyspell-properties-at-p (pos)  (defun flyspell-properties-at-p (pos)
1469    "Return t if there is a text property at POS, not counting `local-map'.    "Return t if there is a text property at POS, not counting `local-map'.
# Line 1495  for the overlay." Line 1495  for the overlay."
1495                       flyspell-overlay-keymap-property-name                       flyspell-overlay-keymap-property-name
1496                       flyspell-local-mouse-map))                       flyspell-local-mouse-map))
1497      flyspell-overlay))      flyspell-overlay))
1498        
1499  ;*---------------------------------------------------------------------*/  ;*---------------------------------------------------------------------*/
1500  ;*    flyspell-highlight-incorrect-region ...                          */  ;*    flyspell-highlight-incorrect-region ...                          */
1501  ;*---------------------------------------------------------------------*/  ;*---------------------------------------------------------------------*/
# Line 1731  or \\[ispell-region] to update the Ispel Line 1731  or \\[ispell-region] to update the Ispel
1731    (if (eq flyspell-emacs 'xemacs)    (if (eq flyspell-emacs 'xemacs)
1732        (flyspell-correct-word/mouse-keymap event)        (flyspell-correct-word/mouse-keymap event)
1733        (flyspell-correct-word/local-keymap event)))        (flyspell-correct-word/local-keymap event)))
1734        
1735  ;*---------------------------------------------------------------------*/  ;*---------------------------------------------------------------------*/
1736  ;*    flyspell-correct-word/local-keymap ...                           */  ;*    flyspell-correct-word/local-keymap ...                           */
1737  ;*---------------------------------------------------------------------*/  ;*---------------------------------------------------------------------*/
# Line 1765  consequence is that we can not use overl Line 1765  consequence is that we can not use overl
1765            (let ((flyspell-mode nil))            (let ((flyspell-mode nil))
1766              (if (key-binding (this-command-keys))              (if (key-binding (this-command-keys))
1767                  (command-execute (key-binding (this-command-keys))))))))))                  (command-execute (key-binding (this-command-keys))))))))))
1768      
1769  ;*---------------------------------------------------------------------*/  ;*---------------------------------------------------------------------*/
1770  ;*    flyspell-correct-word/mouse-keymap ...                           */  ;*    flyspell-correct-word/mouse-keymap ...                           */
1771  ;*---------------------------------------------------------------------*/  ;*---------------------------------------------------------------------*/
# Line 2092  This function is meant to be added to 'f Line 2092  This function is meant to be added to 'f
2092  ;*---------------------------------------------------------------------*/  ;*---------------------------------------------------------------------*/
2093  (defun flyspell-change-abbrev (table old new)  (defun flyspell-change-abbrev (table old new)
2094    (set (abbrev-symbol old table) new))    (set (abbrev-symbol old table) new))
2095      
2096  (provide 'flyspell)  (provide 'flyspell)
2097    
2098  ;;; flyspell.el ends here  ;;; flyspell.el ends here

Legend:
Removed from v.1.31.4.1  
changed lines
  Added in v.1.31.4.2

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