diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2005-08-24 14:15:23 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2005-08-24 14:15:23 +0000 |
| commit | 6f42bcf224eb1da65b309b4557d743a5ef3049e7 (patch) | |
| tree | 91abe68d723923908a41e6a49cea3a820ea8651c /lisp/obsolete/swedish.el | |
| parent | 9ca3e5932be2ce3261a911be112df35b4af7e49a (diff) | |
| download | emacs-6f42bcf224eb1da65b309b4557d743a5ef3049e7.tar.gz emacs-6f42bcf224eb1da65b309b4557d743a5ef3049e7.tar.bz2 emacs-6f42bcf224eb1da65b309b4557d743a5ef3049e7.zip | |
(news-inews-hook, news-group-hook-alist, mail-send-hook):
Defvar at compile time.
Diffstat (limited to 'lisp/obsolete/swedish.el')
| -rw-r--r-- | lisp/obsolete/swedish.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/obsolete/swedish.el b/lisp/obsolete/swedish.el index 0deb1b3425d..5e1794705a9 100644 --- a/lisp/obsolete/swedish.el +++ b/lisp/obsolete/swedish.el @@ -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 @@ Leaves point just after the word that looks Swedish." (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 ? )) |