Mercurial > hg > xemacs-beta
comparison lisp/packages/ispell.el @ 78:c7528f8e288d r20-0b34
Import from CVS: tag r20-0b34
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:05:42 +0200 |
| parents | 131b0175ea99 |
| children | 4be1180a9e89 |
comparison
equal
deleted
inserted
replaced
| 77:6cb4f478e7bc | 78:c7528f8e288d |
|---|---|
| 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 |