Mercurial > hg > xemacs-beta
comparison lisp/packages/ispell.el @ 12:bcdc7deadc19 r19-15b7
Import from CVS: tag r19-15b7
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:48:16 +0200 |
| parents | ac2d302a0011 |
| children | 4103f0995bd7 |
comparison
equal
deleted
inserted
replaced
| 11:91ffe8bd52e4 | 12:bcdc7deadc19 |
|---|---|
| 787 | 787 |
| 788 (and (string-lessp "19" emacs-version) | 788 (and (string-lessp "19" emacs-version) |
| 789 (not (boundp 'epoch::version)) | 789 (not (boundp 'epoch::version)) |
| 790 (defalias 'ispell 'ispell-buffer)) | 790 (defalias 'ispell 'ispell-buffer)) |
| 791 | 791 |
| 792 | |
| 793 ;; XEmacs: \M-$ for whatever reason, drives `make autoloads' bonkers | |
| 794 | |
| 792 ;;;###autoload | 795 ;;;###autoload |
| 793 (define-key global-map "\M-$" 'ispell-word) | 796 (define-key global-map [(meta ?\$)] 'ispell-word) |
| 794 | 797 |
| 795 ;;;###autoload | 798 ;;;###autoload |
| 796 (defun ispell-word (&optional following quietly continue) | 799 (defun ispell-word (&optional following quietly continue) |
| 797 "Check spelling of word under or before the cursor. | 800 "Check spelling of word under or before the cursor. |
| 798 If the word is not found in dictionary, display possible corrections | 801 If the word is not found in dictionary, display possible corrections |