aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorKarl Heuer1994-09-17 00:28:47 +0000
committerKarl Heuer1994-09-17 00:28:47 +0000
commit81b328e5d1bb14f1ab603ef4fb7ce88955b3dd51 (patch)
tree30afef0d81c3c0d5c24a04ed2cba30df161fd89c /lisp
parent0246d165914687b06f2cf819a408ac4ecec6c4a9 (diff)
downloademacs-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.el4
-rw-r--r--lisp/textmodes/ispell4.el6
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.