Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mode.el @ 2307:10e417efb12a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added or corrected Commentary sections
author Eric S. Raymond <esr@snark.thyrsus.com>
date Mon, 22 Mar 1993 03:27:18 +0000
parents 4f9d60f7de9d
children 17d258d8e8e4
comparison
equal deleted inserted replaced
2306:59c8668f70c7 2307:10e417efb12a
18 ;; GNU General Public License for more details. 18 ;; GNU General Public License for more details.
19 19
20 ;; You should have received a copy of the GNU General Public License 20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to 21 ;; along with GNU Emacs; see the file COPYING. If not, write to
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
23
24 ;;; Code:
25
26 ;;; Commentary:
27
28 ;; The base major mode for editing Lisp code (used also for Emacs Lisp).
29 ;; This mode is documented in the Emacs manual
23 30
24 ;;; Code: 31 ;;; Code:
25 32
26 (defvar lisp-mode-syntax-table nil "") 33 (defvar lisp-mode-syntax-table nil "")
27 (defvar emacs-lisp-mode-syntax-table nil "") 34 (defvar emacs-lisp-mode-syntax-table nil "")
92 (setq comment-start ";") 99 (setq comment-start ";")
93 (make-local-variable 'comment-start-skip) 100 (make-local-variable 'comment-start-skip)
94 (setq comment-start-skip ";+ *") 101 (setq comment-start-skip ";+ *")
95 (make-local-variable 'comment-column) 102 (make-local-variable 'comment-column)
96 (setq comment-column 40) 103 (setq comment-column 40)
97 (make-local-variable 'comment-indent-hook) 104 (make-local-variable 'comment-indent-function)
98 (setq comment-indent-hook 'lisp-comment-indent)) 105 (setq comment-indent-function 'lisp-comment-indent))
99 106
100 (defvar shared-lisp-mode-map () 107 (defvar shared-lisp-mode-map ()
101 "Keymap for commands shared by all sorts of Lisp modes.") 108 "Keymap for commands shared by all sorts of Lisp modes.")
102 109
103 (if shared-lisp-mode-map 110 (if shared-lisp-mode-map