diff options
| author | John Paul Wallington <jpw@pobox.com> | 2008-06-08 21:48:05 +0000 |
|---|---|---|
| committer | John Paul Wallington <jpw@pobox.com> | 2008-06-08 21:48:05 +0000 |
| commit | 88b8b41d1773938e18df39a4f449c524759e1ccf (patch) | |
| tree | 90f82078ee7e1e5e9475211ea442b2442ec3aaca /lisp/mh-e | |
| parent | 6b4093c022450f5fd3bac9010b48602461b6956a (diff) | |
| download | emacs-88b8b41d1773938e18df39a4f449c524759e1ccf.tar.gz | |
(mh-letter-mode-syntax-table): Define within defvar.
Diffstat (limited to 'lisp/mh-e')
| -rw-r--r-- | lisp/mh-e/mh-comp.el | 11 |
1 files 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\\<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.") |