Mercurial > emacs
changeset 65262:330e799da016
(mail-yank-prefix): Add defvar.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 31 Aug 2005 10:26:26 +0000 |
| parents | 5e6a52548deb |
| children | 45ef6ad79344 |
| files | lisp/textmodes/ispell.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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))