/[emacs]/emacs/lisp/textmodes/ispell.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/ispell.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.172 by rms, Mon Aug 15 01:37:41 2005 UTC revision 1.173 by lektu, Wed Aug 31 10:26:26 2005 UTC
# Line 201  Line 201 
201    
202  ;;; Code:  ;;; Code:
203    
204    (defvar mail-yank-prefix)
205    
206  ;;; Custom.el macros require recompiling this when they are not present.  ;;; Custom.el macros require recompiling this when they are not present.
207  ;;; Add in backward compatible custom support.  ;;; Add in backward compatible custom support.
208  (eval-when-compile  (eval-when-compile
# Line 914  Assumes that value contains no whitespac Line 916  Assumes that value contains no whitespac
916        (insert-file-contents data-file)        (insert-file-contents data-file)
917        ;; There is zero or one line with special characters declarations.        ;; There is zero or one line with special characters declarations.
918        (when (search-forward-regexp "^special" nil t)        (when (search-forward-regexp "^special" nil t)
919          (let ((specials (split-string          (let ((specials (split-string
920                           (buffer-substring (point)                           (buffer-substring (point)
921                                             (progn (end-of-line) (point))))))                                             (progn (end-of-line) (point))))))
922            ;; The line looks like: special ' -** - -** . -** : -*-            ;; The line looks like: special ' -** - -** . -** : -*-
# Line 951  Assumes that value contains no whitespac Line 953  Assumes that value contains no whitespac
953          (insert-file-contents alias-file)          (insert-file-contents alias-file)
954          ;; Look for a line "add FOO.multi", extract FOO          ;; Look for a line "add FOO.multi", extract FOO
955          (when (search-forward-regexp "^add \\([^.]+\\)\\.multi" nil t)          (when (search-forward-regexp "^add \\([^.]+\\)\\.multi" nil t)
956            (let* ((aliasname (file-name-sans-extension            (let* ((aliasname (file-name-sans-extension
957                               (file-name-nondirectory alias-file)))                               (file-name-nondirectory alias-file)))
958                   (already-exists-p (assoc aliasname ispell-dictionary-alist))                   (already-exists-p (assoc aliasname ispell-dictionary-alist))
959                   (realname (match-string 1))                   (realname (match-string 1))

Legend:
Removed from v.1.172  
changed lines
  Added in v.1.173

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26