Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 54315:cad9b29a5224
(lisp-mode-variables): Set it.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 08 Mar 2004 02:15:05 +0000 |
| parents | 6a3ed3adac17 |
| children | 96f7b2598aa3 |
comparison
equal
deleted
inserted
replaced
| 54314:597fb06dcdda | 54315:cad9b29a5224 |
|---|---|
| 1 ;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands | 1 ;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands |
| 2 | 2 |
| 3 ;; Copyright (C) 1985, 1986, 1999, 2000, 2001, 2003 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1985,86,1999,2000,01,03,2004 Free Software Foundation, Inc. |
| 4 | 4 |
| 5 ;; Maintainer: FSF | 5 ;; Maintainer: FSF |
| 6 ;; Keywords: lisp, languages | 6 ;; Keywords: lisp, languages |
| 7 | 7 |
| 8 ;; This file is part of GNU Emacs. | 8 ;; This file is part of GNU Emacs. |
| 195 (setq comment-add 1) ;default to `;;' in comment-region | 195 (setq comment-add 1) ;default to `;;' in comment-region |
| 196 (make-local-variable 'comment-column) | 196 (make-local-variable 'comment-column) |
| 197 (setq comment-column 40) | 197 (setq comment-column 40) |
| 198 (make-local-variable 'comment-indent-function) | 198 (make-local-variable 'comment-indent-function) |
| 199 (setq comment-indent-function 'lisp-comment-indent) | 199 (setq comment-indent-function 'lisp-comment-indent) |
| 200 ;; Don't get confused by `;' in doc strings when paragraph-filling. | |
| 201 (set (make-local-variable 'comment-use-global-state) t) | |
| 200 (make-local-variable 'imenu-generic-expression) | 202 (make-local-variable 'imenu-generic-expression) |
| 201 (setq imenu-generic-expression lisp-imenu-generic-expression) | 203 (setq imenu-generic-expression lisp-imenu-generic-expression) |
| 202 (make-local-variable 'multibyte-syntax-as-symbol) | 204 (make-local-variable 'multibyte-syntax-as-symbol) |
| 203 (setq multibyte-syntax-as-symbol t) | 205 (setq multibyte-syntax-as-symbol t) |
| 204 (set (make-local-variable 'syntax-begin-function) 'beginning-of-defun) | 206 (set (make-local-variable 'syntax-begin-function) 'beginning-of-defun) |