mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(autoloaded toplevel): Don't use ispell-library-directory without

Browse source 
checking that it's bound.
This commit is contained in:
Stefan Monnier 2002-05-31 18:43:28 +00:00
parent 43dc73f18f
commit 262d2cab9e
1 changed files with 8 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/textmodes/ispell.el
View file

@ -830,7 +830,7 @@ and added as a submenu of the \"Edit\" menu.")
;;;###autoload
(if ispell-menu-map-needed
(let ((dicts (reverse (cons (cons "default" nil) ispell-dictionary-alist)))
(dir ispell-library-directory)
(dir (if (boundp 'ispell-library-directory) ispell-library-directory))
name load-dict)
(setq ispell-menu-map (make-sparse-keymap "Spell"))
;; add the dictionaries to the bottom of the list.
@ -839,12 +839,11 @@ and added as a submenu of the \"Edit\" menu.")
load-dict (car (cdr (member "-d" (nth 5 (car dicts)))))
dicts (cdr dicts))
(cond ((not (stringp name))
(define-key ispell-menu-map (vector 'default)
(cons "Select Default Dict"
(cons "Dictionary for which Ispell was configured"
(list 'lambda () '(interactive)
(list
'ispell-change-dictionary "default"))))))
(define-key ispell-menu-map [default]
'("Select Default Dict"
"Dictionary for which Ispell was configured"
. (lambda () (interactive)
(ispell-change-dictionary "default")))))
((or (not dir) ; load all if library dir not defined
(file-exists-p (concat dir "/" name ".hash"))
(file-exists-p (concat dir "/" name ".has"))
@ -853,8 +852,8 @@ and added as a submenu of the \"Edit\" menu.")
(file-exists-p (concat dir "/" load-dict ".has")))))
(define-key ispell-menu-map (vector (intern name))
(cons (concat "Select " (capitalize name) " Dict")
(list 'lambda () '(interactive)
(list 'ispell-change-dictionary name)))))))))
`(lambda () (interactive)
(ispell-change-dictionary ,name)))))))))
;;; define commands in menu in opposite order you want them to appear.