Mercurial > hg > xemacs-beta

comparison lisp/packages/ispell.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 4103f0995bd7
children c7528f8e288d
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
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
795 ;;;###autoload 792 ;;;###autoload
796 (define-key global-map [(meta ?\$)] 'ispell-word) 793 (define-key global-map "\M-$" 'ispell-word)
797 794
798 ;;;###autoload 795 ;;;###autoload
799 (defun ispell-word (&optional following quietly continue) 796 (defun ispell-word (&optional following quietly continue)
800 "Check spelling of word under or before the cursor. 797 "Check spelling of word under or before the cursor.
801 If the word is not found in dictionary, display possible corrections 798 If the word is not found in dictionary, display possible corrections
1268 (if (string-lessp "19" emacs-version) 1265 (if (string-lessp "19" emacs-version)
1269 (message nil)) 1266 (message nil))
1270 (enlarge-window 2) 1267 (enlarge-window 2)
1271 ;; Make sure we display the minibuffer 1268 ;; Make sure we display the minibuffer
1272 ;; in this window, not some other. 1269 ;; in this window, not some other.
1273 (if (fboundp 'set-minibuffer-window) 1270 (set-minibuffer-window (selected-window))
1274 (set-minibuffer-window (selected-window)))
1275 (insert (concat help-1 "\n" help-2 "\n" help-3)))) 1271 (insert (concat help-1 "\n" help-2 "\n" help-3))))
1276 (sit-for 5) 1272 (sit-for 5)
1277 (erase-buffer))))) 1273 (erase-buffer)))))
1278 1274
1279 1275