Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mode.el @ 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 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)