[Emacs-diffs] Changes to emacs/lisp/textmodes/ispell.el

[Juanma Barranquero]

Index: emacs/lisp/textmodes/ispell.el
diff -c emacs/lisp/textmodes/ispell.el:1.172 
emacs/lisp/textmodes/ispell.el:1.173
*** emacs/lisp/textmodes/ispell.el:1.172        Mon Aug 15 01:37:41 2005
--- emacs/lisp/textmodes/ispell.el      Wed Aug 31 10:26:26 2005
***************
*** 201,206 ****
--- 201,208 ----
  
  ;;; 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,920 ****
        (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 
                         (buffer-substring (point)
                                           (progn (end-of-line) (point))))))
          ;; The line looks like: special ' -** - -** . -** : -*-
--- 916,922 ----
        (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
                         (buffer-substring (point)
                                           (progn (end-of-line) (point))))))
          ;; The line looks like: special ' -** - -** . -** : -*-
***************
*** 951,957 ****
        (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)))
                 (already-exists-p (assoc aliasname ispell-dictionary-alist))
                 (realname (match-string 1))
--- 953,959 ----
        (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)))
                 (already-exists-p (assoc aliasname ispell-dictionary-alist))
                 (realname (match-string 1))