diff options
Diffstat (limited to 'lisp/textmodes/ispell.el')
| -rw-r--r-- | lisp/textmodes/ispell.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index fc2155893a9..0c7966f22d3 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -1064,8 +1064,7 @@ Return the new dictionary alist." (insert-file-contents alias-file) ;; Look for a line "add FOO.multi", extract FOO (when (search-forward-regexp "^add \\([^.]+\\)\\.multi" nil t) - (let* ((aliasname (file-name-sans-extension - (file-name-nondirectory alias-file))) + (let* ((aliasname (file-name-base alias-file)) (already-exists-p (assoc aliasname alist)) (realname (match-string 1)) (realdict (assoc realname alist))) |