Mercurial > emacs
comparison lisp/textmodes/ispell.el @ 65262:330e799da016
(mail-yank-prefix): Add defvar.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 31 Aug 2005 10:26:26 +0000 |
| parents | 008b8c9ce315 |
| children | 5386c7235881 a3716f7538f2 |
comparison
equal
deleted
inserted
replaced
| 65261:5e6a52548deb | 65262:330e799da016 |
|---|---|
| 198 ;; Improved message reference matching in `ispell-message'. | 198 ;; Improved message reference matching in `ispell-message'. |
| 199 ;; Fixed bug in returning to nroff mode from tex mode. | 199 ;; Fixed bug in returning to nroff mode from tex mode. |
| 200 | 200 |
| 201 | 201 |
| 202 ;;; Code: | 202 ;;; Code: |
| 203 | |
| 204 (defvar mail-yank-prefix) | |
| 203 | 205 |
| 204 ;;; Custom.el macros require recompiling this when they are not present. | 206 ;;; Custom.el macros require recompiling this when they are not present. |
| 205 ;;; Add in backward compatible custom support. | 207 ;;; Add in backward compatible custom support. |
| 206 (eval-when-compile | 208 (eval-when-compile |
| 207 (if (not (fboundp 'defcustom)) | 209 (if (not (fboundp 'defcustom)) |
| 912 ;; This file really should exist; there is no sensible recovery. | 914 ;; This file really should exist; there is no sensible recovery. |
| 913 (with-temp-buffer | 915 (with-temp-buffer |
| 914 (insert-file-contents data-file) | 916 (insert-file-contents data-file) |
| 915 ;; There is zero or one line with special characters declarations. | 917 ;; There is zero or one line with special characters declarations. |
| 916 (when (search-forward-regexp "^special" nil t) | 918 (when (search-forward-regexp "^special" nil t) |
| 917 (let ((specials (split-string | 919 (let ((specials (split-string |
| 918 (buffer-substring (point) | 920 (buffer-substring (point) |
| 919 (progn (end-of-line) (point)))))) | 921 (progn (end-of-line) (point)))))) |
| 920 ;; The line looks like: special ' -** - -** . -** : -*- | 922 ;; The line looks like: special ' -** - -** . -** : -*- |
| 921 ;; -** means that this character | 923 ;; -** means that this character |
| 922 ;; - doesn't appear at word start | 924 ;; - doesn't appear at word start |
| 949 (dolist (alias-file aliases) | 951 (dolist (alias-file aliases) |
| 950 (with-temp-buffer | 952 (with-temp-buffer |
| 951 (insert-file-contents alias-file) | 953 (insert-file-contents alias-file) |
| 952 ;; Look for a line "add FOO.multi", extract FOO | 954 ;; Look for a line "add FOO.multi", extract FOO |
| 953 (when (search-forward-regexp "^add \\([^.]+\\)\\.multi" nil t) | 955 (when (search-forward-regexp "^add \\([^.]+\\)\\.multi" nil t) |
| 954 (let* ((aliasname (file-name-sans-extension | 956 (let* ((aliasname (file-name-sans-extension |
| 955 (file-name-nondirectory alias-file))) | 957 (file-name-nondirectory alias-file))) |
| 956 (already-exists-p (assoc aliasname ispell-dictionary-alist)) | 958 (already-exists-p (assoc aliasname ispell-dictionary-alist)) |
| 957 (realname (match-string 1)) | 959 (realname (match-string 1)) |
| 958 (realdict (assoc realname ispell-dictionary-alist))) | 960 (realdict (assoc realname ispell-dictionary-alist))) |
| 959 (when (and realdict (not already-exists-p)) | 961 (when (and realdict (not already-exists-p)) |