*** empty log message ***

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 75a35d5..54c31c3 100644 (file)
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -17,6 +17,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+(provide 'lisp-mode)
 
 (defvar lisp-mode-syntax-table nil "")
 (defvar emacs-lisp-mode-syntax-table nil "")
@@ -58,19 +59,17 @@
       (modify-syntax-entry ?\[ "(]  " emacs-lisp-mode-syntax-table)
       (modify-syntax-entry ?\] ")[  " emacs-lisp-mode-syntax-table)))
 
+(if (not lisp-mode-syntax-table)
+    (progn (setq lisp-mode-syntax-table
+                (copy-syntax-table emacs-lisp-mode-syntax-table))
+          (modify-syntax-entry ?\| "\"   " lisp-mode-syntax-table)
+          (modify-syntax-entry ?\[ "_   " lisp-mode-syntax-table)
+          (modify-syntax-entry ?\] "_   " lisp-mode-syntax-table)))
+
 (define-abbrev-table 'lisp-mode-abbrev-table ())
 
 (defun lisp-mode-variables (lisp-syntax)
   (cond (lisp-syntax
-         (if (not lisp-mode-syntax-table)
-             (progn (setq lisp-mode-syntax-table
-                          (copy-syntax-table emacs-lisp-mode-syntax-table))
-                    (modify-syntax-entry ?\| "\"   "
-                                         lisp-mode-syntax-table)
-                    (modify-syntax-entry ?\[ "_   "
-                                         lisp-mode-syntax-table)
-                    (modify-syntax-entry ?\] "_   "
-                                         lisp-mode-syntax-table)))
          (set-syntax-table lisp-mode-syntax-table)))
   (setq local-abbrev-table lisp-mode-abbrev-table)
   (make-local-variable 'paragraph-start)

diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el
index 4a47077..320f096 100644 (file)
--- a/lisp/mail/mail-utils.el
+++ b/lisp/mail/mail-utils.el
@@ -19,6 +19,10 @@
 
 
 (provide 'mail-utils)
+
+;;; We require lisp-mode to make sure that lisp-mode-syntax-table has
+;;; been initialized.
+(require 'lisp-mode)
                     
 ;;;###autoload
 (defvar mail-use-rfc822 nil "\