# HG changeset patch # User Juanma Barranquero # Date 1125483986 0 # Node ID 330e799da01653eb72a6736a9542609562816d8c # Parent 5e6a52548deb2544229a7dbc902c456e80184866 (mail-yank-prefix): Add defvar. diff -r 5e6a52548deb -r 330e799da016 lisp/textmodes/ispell.el --- a/lisp/textmodes/ispell.el Wed Aug 31 10:25:00 2005 +0000 +++ b/lisp/textmodes/ispell.el Wed Aug 31 10:26:26 2005 +0000 @@ -201,6 +201,8 @@ ;;; Code: +(defvar mail-yank-prefix) + ;;; Custom.el macros require recompiling this when they are not present. ;;; Add in backward compatible custom support. (eval-when-compile @@ -914,7 +916,7 @@ (insert-file-contents data-file) ;; There is zero or one line with special characters declarations. (when (search-forward-regexp "^special" nil t) - (let ((specials (split-string + (let ((specials (split-string (buffer-substring (point) (progn (end-of-line) (point)))))) ;; The line looks like: special ' -** - -** . -** : -*- @@ -951,7 +953,7 @@ (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 + (let* ((aliasname (file-name-sans-extension (file-name-nondirectory alias-file))) (already-exists-p (assoc aliasname ispell-dictionary-alist)) (realname (match-string 1))