Mercurial > emacs

changeset 285:adb31fcccc2b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Fri, 24 May 1991 01:03:48 +0000
parents 03e467a3d92a
children 8a40ab4a424f
files lisp/emacs-lisp/lisp-mode.el lisp/mail/mail-utils.el
diffstat 2 files changed, 12 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- 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)
--- 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 "\