From: John Paul Wallington <jpw@pobox.com>
Date: Sun, 8 Jun 2008 21:48:05 +0000 (+0000)
Subject: (mh-letter-mode-syntax-table): Define within defvar.
X-Git-Tag: emacs-pretest-23.0.90~4990
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=88b8b41d1773938e18df39a4f449c524759e1ccf;p=emacs.git

(mh-letter-mode-syntax-table): Define within defvar.
---

diff --git a/lisp/mh-e/mh-comp.el b/lisp/mh-e/mh-comp.el
index 4458aa0411f..6dcd2d22147 100644
--- a/lisp/mh-e/mh-comp.el
+++ b/lisp/mh-e/mh-comp.el
@@ -116,15 +116,12 @@ user's MH directory, then in the system MH lib directory.")
   "Regexp of header lines to remove before offering a message as a new draft\\<mh-folder-mode-map>.
 Used by the \\[mh-edit-again] and \\[mh-extract-rejected-mail] commands.")
 
-(defvar mh-letter-mode-syntax-table nil
+(defvar mh-letter-mode-syntax-table
+  (let ((syntax-table (make-syntax-table text-mode-syntax-table)))
+    (modify-syntax-entry ?% "." syntax-table)
+    syntax-table)
   "Syntax table used by MH-E while in MH-Letter mode.")
 
-(if mh-letter-mode-syntax-table
-    ()
-  (setq mh-letter-mode-syntax-table
-        (make-syntax-table text-mode-syntax-table))
-  (modify-syntax-entry ?% "." mh-letter-mode-syntax-table))
-
 (defvar mh-send-args ""
   "Extra args to pass to \"send\" command.")