From 88b8b41d1773938e18df39a4f449c524759e1ccf Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Sun, 8 Jun 2008 21:48:05 +0000 Subject: [PATCH] (mh-letter-mode-syntax-table): Define within defvar. --- lisp/mh-e/mh-comp.el | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) 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\\. 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.") -- 2.11.4.GIT