diff options
| author | Karl Heuer | 1994-09-17 00:28:47 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-09-17 00:28:47 +0000 |
| commit | 81b328e5d1bb14f1ab603ef4fb7ce88955b3dd51 (patch) | |
| tree | 30afef0d81c3c0d5c24a04ed2cba30df161fd89c /lisp | |
| parent | 0246d165914687b06f2cf819a408ac4ecec6c4a9 (diff) | |
| download | emacs-81b328e5d1bb14f1ab603ef4fb7ce88955b3dd51.tar.gz emacs-81b328e5d1bb14f1ab603ef4fb7ce88955b3dd51.zip | |
(ispell-menu-map): Order menu items by size: buffer > region > word.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/textmodes/ispell.el | 4 | ||||
| -rw-r--r-- | lisp/textmodes/ispell4.el | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 2325998529c..c1bf5e52709 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el | |||
| @@ -530,10 +530,10 @@ language.aff file \(e.g., english.aff\).") | |||
| 530 | (progn | 530 | (progn |
| 531 | (define-key ispell-menu-map [ispell-continue] | 531 | (define-key ispell-menu-map [ispell-continue] |
| 532 | '("Continue Check" . ispell-continue)) | 532 | '("Continue Check" . ispell-continue)) |
| 533 | (define-key ispell-menu-map [ispell-region] | ||
| 534 | '("Check Region" . ispell-region)) | ||
| 535 | (define-key ispell-menu-map [ispell-word] | 533 | (define-key ispell-menu-map [ispell-word] |
| 536 | '("Check Word" . ispell-word)) | 534 | '("Check Word" . ispell-word)) |
| 535 | (define-key ispell-menu-map [ispell-region] | ||
| 536 | '("Check Region" . ispell-region)) | ||
| 537 | (define-key ispell-menu-map [ispell-buffer] | 537 | (define-key ispell-menu-map [ispell-buffer] |
| 538 | '("Check Buffer" . ispell-buffer)))) | 538 | '("Check Buffer" . ispell-buffer)))) |
| 539 | 539 | ||
diff --git a/lisp/textmodes/ispell4.el b/lisp/textmodes/ispell4.el index b57917909a8..3e87b7c7322 100644 --- a/lisp/textmodes/ispell4.el +++ b/lisp/textmodes/ispell4.el | |||
| @@ -234,15 +234,15 @@ that have not already been dumped will be lost." | |||
| 234 | (define-key ispell-menu-map [ispell-message] | 234 | (define-key ispell-menu-map [ispell-message] |
| 235 | '("Check Message" . ispell-message)) | 235 | '("Check Message" . ispell-message)) |
| 236 | 236 | ||
| 237 | (define-key ispell-menu-map [ispell-word] | ||
| 238 | '("Check Word" . ispell-word)) | ||
| 239 | |||
| 237 | (define-key ispell-menu-map [ispell-region] | 240 | (define-key ispell-menu-map [ispell-region] |
| 238 | '("Check Region" . ispell-region)) | 241 | '("Check Region" . ispell-region)) |
| 239 | 242 | ||
| 240 | (define-key ispell-menu-map [ispell-buffer] | 243 | (define-key ispell-menu-map [ispell-buffer] |
| 241 | '("Check Buffer" . ispell)) | 244 | '("Check Buffer" . ispell)) |
| 242 | 245 | ||
| 243 | (define-key ispell-menu-map [ispell-word] | ||
| 244 | '("Check Word" . ispell-word)) | ||
| 245 | |||
| 246 | ;;;###autoload | 246 | ;;;###autoload |
| 247 | (defun ispell (&optional buf start end) | 247 | (defun ispell (&optional buf start end) |
| 248 | "Run Ispell over current buffer's visited file. | 248 | "Run Ispell over current buffer's visited file. |