# HG changeset patch # User Jim Blandy # Date 675047028 0 # Node ID adb31fcccc2bd81969c2f5068df7ba996b565aae # Parent 03e467a3d92a4a325d94f6ca398cce6d1c801516 *** empty log message *** diff -r 03e467a3d92a -r adb31fcccc2b lisp/emacs-lisp/lisp-mode.el --- a/lisp/emacs-lisp/lisp-mode.el Thu May 23 23:18:53 1991 +0000 +++ b/lisp/emacs-lisp/lisp-mode.el Fri May 24 01:03:48 1991 +0000 @@ -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 -r 03e467a3d92a -r adb31fcccc2b lisp/mail/mail-utils.el --- a/lisp/mail/mail-utils.el Thu May 23 23:18:53 1991 +0000 +++ b/lisp/mail/mail-utils.el Fri May 24 01:03:48 1991 +0000 @@ -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 "\