Mercurial > emacs
changeset 65096:53f6f03cfce2
(news-inews-hook, news-group-hook-alist, mail-send-hook):
Defvar at compile time.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 24 Aug 2005 14:15:23 +0000 |
| parents | 23c9aeba8f59 |
| children | b935f3647a50 |
| files | lisp/obsolete/swedish.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/obsolete/swedish.el Wed Aug 24 14:00:17 2005 +0000 +++ b/lisp/obsolete/swedish.el Wed Aug 24 14:15:23 2005 +0000 @@ -33,6 +33,11 @@ (require 'latin-1) +(eval-when-compile + (defvar news-inews-hook) + (defvar news-group-hook-alist) + (defvar mail-send-hook)) + (defvar swedish-re "[ \t\n]\\(och\\|att\\|en\\|{r\\|\\[R\\|p}\\|P\\]\\|som\\|det\\|av\\|den\\|f|r\\|F\\\\R\\)[ \t\n.,?!:;'\")}]" "Regular expression for common Swedish words.") @@ -77,10 +82,9 @@ (setq rmail-show-message-hook 'swascii-to-8859-buffer-maybe) -(or (boundp 'news-group-hook-alist) (setq news-group-hook-alist nil)) (setq news-group-hook-alist (append '(("^swnet." . swascii-to-8859-buffer-maybe)) - news-group-hook-alist)) + (bound-and-true-p news-group-hook-alist))) (defvar 8859-to-swascii-trans (let ((string (make-string 256 ? ))