Mercurial > emacs
changeset 8822:33a3f424c8c3
(ispell-menu-map): Order menu items by size: buffer > region > word.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Sat, 17 Sep 1994 00:28:47 +0000 |
parents | 041e02e09745 |
children | fdb7ba55f05c |
files | lisp/textmodes/=ispell4.el lisp/textmodes/ispell.el |
diffstat | 2 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/=ispell4.el Sat Sep 17 00:28:39 1994 +0000 +++ b/lisp/textmodes/=ispell4.el Sat Sep 17 00:28:47 1994 +0000 @@ -234,15 +234,15 @@ (define-key ispell-menu-map [ispell-message] '("Check Message" . ispell-message)) +(define-key ispell-menu-map [ispell-word] + '("Check Word" . ispell-word)) + (define-key ispell-menu-map [ispell-region] '("Check Region" . ispell-region)) (define-key ispell-menu-map [ispell-buffer] '("Check Buffer" . ispell)) -(define-key ispell-menu-map [ispell-word] - '("Check Word" . ispell-word)) - ;;;###autoload (defun ispell (&optional buf start end) "Run Ispell over current buffer's visited file.
--- a/lisp/textmodes/ispell.el Sat Sep 17 00:28:39 1994 +0000 +++ b/lisp/textmodes/ispell.el Sat Sep 17 00:28:47 1994 +0000 @@ -530,10 +530,10 @@ (progn (define-key ispell-menu-map [ispell-continue] '("Continue Check" . ispell-continue)) + (define-key ispell-menu-map [ispell-word] + '("Check Word" . ispell-word)) (define-key ispell-menu-map [ispell-region] '("Check Region" . ispell-region)) - (define-key ispell-menu-map [ispell-word] - '("Check Word" . ispell-word)) (define-key ispell-menu-map [ispell-buffer] '("Check Buffer" . ispell-buffer))))