Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/packages/ispell.el	Mon Aug 13 09:00:04 2007 +0200
+++ b/lisp/packages/ispell.el	Mon Aug 13 09:02:59 2007 +0200
@@ -789,11 +789,8 @@
      (not (boundp 'epoch::version))
      (defalias 'ispell 'ispell-buffer))
 
-
-;; XEmacs: \M-$ for whatever reason, drives `make autoloads' bonkers
-
 ;;;###autoload
-(define-key global-map [(meta ?\$)] 'ispell-word)
+(define-key global-map "\M-$" 'ispell-word)
 
 ;;;###autoload
 (defun ispell-word (&optional following quietly continue)
@@ -1270,8 +1267,7 @@
 	       (enlarge-window 2)
 	       ;; Make sure we display the minibuffer
 	       ;; in this window, not some other.
-	       (if (fboundp 'set-minibuffer-window)
-		   (set-minibuffer-window (selected-window)))
+	       (set-minibuffer-window (selected-window))
 	       (insert (concat help-1 "\n" help-2 "\n" help-3))))
 	(sit-for 5)
 	(erase-buffer)))))