Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
123:c77884c6318d 124:9b50b4588a93
656 (fset 'ispell-menu-map (symbol-value 'ispell-menu-map)))) 656 (fset 'ispell-menu-map (symbol-value 'ispell-menu-map))))
657 657
658 ;;; XEmacs version 19 658 ;;; XEmacs version 19
659 (if (and (string-lessp "19" emacs-version) 659 (if (and (string-lessp "19" emacs-version)
660 (string-match "Lucid" emacs-version) 660 (string-match "Lucid" emacs-version)
661 (not (and (boundp 'infodock-version) infodock-version))) 661 (not (and (boundp 'infodock-version) infodock-version))
662 (featurep 'menubar)
663 (or current-menubar default-menubar))
662 (let ((dicts (cons (cons "default" nil) ispell-dictionary-alist)) 664 (let ((dicts (cons (cons "default" nil) ispell-dictionary-alist))
663 (current-menubar (or current-menubar default-menubar)) 665 (current-menubar (or current-menubar default-menubar))
664 (menu 666 (menu
665 '(["Help" (describe-function 'ispell-help) t] 667 '(["Help" (describe-function 'ispell-help) t]
666 ;;["Help" (popup-menu ispell-help-list) t] 668 ;;["Help" (popup-menu ispell-help-list) t]