Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 285:adb31fcccc2b
*** empty log message ***
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Fri, 24 May 1991 01:03:48 +0000 |
parents | cdf87250ed27 |
children | 5abb8aac7c6b |
comparison
equal
deleted
inserted
replaced
284:03e467a3d92a | 285:adb31fcccc2b |
---|---|
15 | 15 |
16 ;; You should have received a copy of the GNU General Public License | 16 ;; You should have received a copy of the GNU General Public License |
17 ;; along with GNU Emacs; see the file COPYING. If not, write to | 17 ;; along with GNU Emacs; see the file COPYING. If not, write to |
18 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | 18 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. |
19 | 19 |
20 (provide 'lisp-mode) | |
20 | 21 |
21 (defvar lisp-mode-syntax-table nil "") | 22 (defvar lisp-mode-syntax-table nil "") |
22 (defvar emacs-lisp-mode-syntax-table nil "") | 23 (defvar emacs-lisp-mode-syntax-table nil "") |
23 (defvar lisp-mode-abbrev-table nil "") | 24 (defvar lisp-mode-abbrev-table nil "") |
24 | 25 |
56 (modify-syntax-entry ?\( "() " emacs-lisp-mode-syntax-table) | 57 (modify-syntax-entry ?\( "() " emacs-lisp-mode-syntax-table) |
57 (modify-syntax-entry ?\) ")( " emacs-lisp-mode-syntax-table) | 58 (modify-syntax-entry ?\) ")( " emacs-lisp-mode-syntax-table) |
58 (modify-syntax-entry ?\[ "(] " emacs-lisp-mode-syntax-table) | 59 (modify-syntax-entry ?\[ "(] " emacs-lisp-mode-syntax-table) |
59 (modify-syntax-entry ?\] ")[ " emacs-lisp-mode-syntax-table))) | 60 (modify-syntax-entry ?\] ")[ " emacs-lisp-mode-syntax-table))) |
60 | 61 |
62 (if (not lisp-mode-syntax-table) | |
63 (progn (setq lisp-mode-syntax-table | |
64 (copy-syntax-table emacs-lisp-mode-syntax-table)) | |
65 (modify-syntax-entry ?\| "\" " lisp-mode-syntax-table) | |
66 (modify-syntax-entry ?\[ "_ " lisp-mode-syntax-table) | |
67 (modify-syntax-entry ?\] "_ " lisp-mode-syntax-table))) | |
68 | |
61 (define-abbrev-table 'lisp-mode-abbrev-table ()) | 69 (define-abbrev-table 'lisp-mode-abbrev-table ()) |
62 | 70 |
63 (defun lisp-mode-variables (lisp-syntax) | 71 (defun lisp-mode-variables (lisp-syntax) |
64 (cond (lisp-syntax | 72 (cond (lisp-syntax |
65 (if (not lisp-mode-syntax-table) | |
66 (progn (setq lisp-mode-syntax-table | |
67 (copy-syntax-table emacs-lisp-mode-syntax-table)) | |
68 (modify-syntax-entry ?\| "\" " | |
69 lisp-mode-syntax-table) | |
70 (modify-syntax-entry ?\[ "_ " | |
71 lisp-mode-syntax-table) | |
72 (modify-syntax-entry ?\] "_ " | |
73 lisp-mode-syntax-table))) | |
74 (set-syntax-table lisp-mode-syntax-table))) | 73 (set-syntax-table lisp-mode-syntax-table))) |
75 (setq local-abbrev-table lisp-mode-abbrev-table) | 74 (setq local-abbrev-table lisp-mode-abbrev-table) |
76 (make-local-variable 'paragraph-start) | 75 (make-local-variable 'paragraph-start) |
77 (setq paragraph-start (concat "^$\\|" page-delimiter)) | 76 (setq paragraph-start (concat "^$\\|" page-delimiter)) |
78 (make-local-variable 'paragraph-separate) | 77 (make-local-variable 'paragraph-separate) |