Mercurial > emacs
changeset 95690:c12a32810ea6
(mh-letter-mode-syntax-table): Define within defvar.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Sun, 08 Jun 2008 21:48:05 +0000 |
| parents | 5f60e74ca391 |
| children | 2f24e9c3eb6b |
| files | lisp/mh-e/mh-comp.el |
| diffstat | 1 files changed, 4 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mh-e/mh-comp.el Sun Jun 08 21:47:08 2008 +0000 +++ b/lisp/mh-e/mh-comp.el Sun Jun 08 21:48:05 2008 +0000 @@ -116,15 +116,12 @@ "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.")