diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-05-08 12:27:53 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-05-08 12:27:53 -0400 |
| commit | 1d5963cc63979c4a19b5de3b9b537c1b3b61dda3 (patch) | |
| tree | ad1c4bba72a8c023dabbe48afd2e6692a09b2cc6 /lisp/mh-e | |
| parent | 86cec478835929993c71982c8da72594f0017950 (diff) | |
| download | emacs-1d5963cc63979c4a19b5de3b9b537c1b3b61dda3.tar.gz | |
* lisp/progmodes/f90.el (f90-mode-syntax-table): Use symbol syntax for "_".
Change all regexps to use things like \_< and \_>.
* lisp/progmodes/ada-mode.el (ada-mode-abbrev-table): Consolidate declaration.
(ada-mode-syntax-table, ada-mode-symbol-syntax-table): Initialize in
the declaration.
(ada-create-syntax-table): Remove.
(ada-capitalize-word): Don't mess with the syntax of "_" since it
already has the right syntax nowadays.
(ada-goto-next-word): Don't change the syntax of "_".
* lisp/progmodes/autoconf.el (autoconf-definition-regexp)
(autoconf-font-lock-keywords, autoconf-current-defun-function):
Handle a _ with symbol syntax.
(autoconf-mode): Don't change the syntax-table for imenu and font-lock.
* lisp/progmodes/vera-mode.el (vera-underscore-is-part-of-word):
* lisp/progmodes/prolog.el (prolog-underscore-wordchar-flag)
(prolog-char-quote-workaround):
* lisp/progmodes/cperl-mode.el (cperl-under-as-char):
* lisp/progmodes/vhdl-mode.el (vhdl-underscore-is-part-of-word):
Mark as obsolete.
(vhdl-mode-syntax-table, vhdl-mode-ext-syntax-table): Initialize in
their declaration.
(vhdl-mode-syntax-table-init): Remove.
* lisp/progmodes/ld-script.el (ld-script-mode-syntax-table): Use symbol
syntax for "_".
(ld-script-font-lock-keywords):
Change regexps to use things like \_< and \_>.
* lisp/progmodes/m4-mode.el (m4-mode-syntax-table): Add comment on last change.
* lisp/font-lock.el (lisp-font-lock-keywords-2): Don't highlight obsolete
with-wrapper-hook.
* lisp/mh-e/mh-comp.el (mh-regexp-in-field-p): Minor simplification.
Diffstat (limited to 'lisp/mh-e')
| -rw-r--r-- | lisp/mh-e/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/mh-e/mh-comp.el | 22 |
2 files changed, 15 insertions, 11 deletions
diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index 6894a185ddc..87e0bf18703 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog @@ -1,3 +1,7 @@ +2013-05-08 Stefan Monnier <monnier@iro.umontreal.ca> + + * mh-comp.el (mh-regexp-in-field-p): Minor simplification. + 2013-03-02 Bill Wohler <wohler@newt.com> Release MH-E version 8.5. diff --git a/lisp/mh-e/mh-comp.el b/lisp/mh-e/mh-comp.el index 1f07a7983b1..9610774b414 100644 --- a/lisp/mh-e/mh-comp.el +++ b/lisp/mh-e/mh-comp.el @@ -1205,17 +1205,17 @@ discarded." (let ((search-result nil)) (while fields (let ((field (car fields)) - (syntax-table mh-regexp-in-field-syntax-table)) - (if (null syntax-table) - (let ((case-fold-search t)) - (cond - ((string-match field "^To$\\|^[BD]?cc$\\|^From$") - (setq syntax-table mh-addr-syntax-table)) - ((string-match field "^Fcc$") - (setq syntax-table mh-fcc-syntax-table)) - (t - (setq syntax-table (syntax-table))) - ))) + (syntax-table + (or mh-regexp-in-field-syntax-table + (let ((case-fold-search t)) + (cond + ((string-match field "^To$\\|^[BD]?cc$\\|^From$") + mh-addr-syntax-table) + ((string-match field "^Fcc$") + mh-fcc-syntax-table) + (t + (syntax-table))) + )))) (if (and (mh-goto-header-field field) (set-syntax-table syntax-table) (re-search-forward |