Mercurial > hg > xemacs-beta

diff lisp/packages/ispell.el @ 124:9b50b4588a93 r20-1b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b15
author cvs
date Mon, 13 Aug 2007 09:26:39 +0200
parents cca96a509cfe
children 1370575f1259
line wrap: on
line diff
--- a/lisp/packages/ispell.el	Mon Aug 13 09:26:04 2007 +0200
+++ b/lisp/packages/ispell.el	Mon Aug 13 09:26:39 2007 +0200
@@ -658,7 +658,9 @@
 ;;; XEmacs version 19
 (if (and (string-lessp "19" emacs-version)
 	 (string-match "Lucid" emacs-version)
-	 (not (and (boundp 'infodock-version) infodock-version)))
+	 (not (and (boundp 'infodock-version) infodock-version))
+	 (featurep 'menubar)
+	 (or current-menubar default-menubar))
     (let ((dicts (cons (cons "default" nil) ispell-dictionary-alist))
 	  (current-menubar (or current-menubar default-menubar))
 	  (menu