Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 28994:0388cb689633
(lisp-mode-variables): Set comment-add.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 19 May 2000 21:36:14 +0000 |
| parents | 979a905864ab |
| children | 16e560dd4ab8 |
comparison
equal
deleted
inserted
replaced
| 28993:48c4612cf753 | 28994:0388cb689633 |
|---|---|
| 128 (setq comment-start ";") | 128 (setq comment-start ";") |
| 129 (make-local-variable 'comment-start-skip) | 129 (make-local-variable 'comment-start-skip) |
| 130 ;; Look within the line for a ; following an even number of backslashes | 130 ;; Look within the line for a ; following an even number of backslashes |
| 131 ;; after either a non-backslash or the line beginning. | 131 ;; after either a non-backslash or the line beginning. |
| 132 (setq comment-start-skip "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+ *") | 132 (setq comment-start-skip "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+ *") |
| 133 (make-local-variable 'comment-add) | |
| 134 (setq comment-add 1) ;default to `;;' in comment-region | |
| 133 (make-local-variable 'comment-column) | 135 (make-local-variable 'comment-column) |
| 134 (setq comment-column 40) | 136 (setq comment-column 40) |
| 135 (make-local-variable 'comment-indent-function) | 137 (make-local-variable 'comment-indent-function) |
| 136 (setq comment-indent-function 'lisp-comment-indent) | 138 (setq comment-indent-function 'lisp-comment-indent) |
| 137 (make-local-variable 'imenu-generic-expression) | 139 (make-local-variable 'imenu-generic-expression) |