diff options
| author | Jim Blandy <jimb@redhat.com> | 1991-05-24 01:03:48 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1991-05-24 01:03:48 +0000 |
| commit | ecca85de5679824b489852bade75738310a7fcba (patch) | |
| tree | 8a36d728cb0c11003c564e9f8aa72779d3973d4a /lisp/emacs-lisp | |
| parent | f927c5aedf17f6c37acc624fda99aef0f31f1a19 (diff) | |
| download | emacs-ecca85de5679824b489852bade75738310a7fcba.tar.gz emacs-ecca85de5679824b489852bade75738310a7fcba.tar.bz2 emacs-ecca85de5679824b489852bade75738310a7fcba.zip | |
*** empty log message ***
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 75a35d56cd8..54c31c3c78e 100644 --- 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) |