From 6f42bcf224eb1da65b309b4557d743a5ef3049e7 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 24 Aug 2005 14:15:23 +0000 Subject: [PATCH] (news-inews-hook, news-group-hook-alist, mail-send-hook): Defvar at compile time. --- lisp/obsolete/swedish.el | 8 ++++++-- 1 file 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 ? )) -- 2.39.2